code:
;FileName_SHOP.ERB -------------------------------- Rev1.00
;RESULT_104(�ݒ�) ����
;CALL		SYSTEM
;ARG		VOID
;RETURN		VOID
;COMMENT
;----------------------------------------------------------
@SCHEDULE
#DIM �����l
#DIM �O���A�Q����
�O���A�Q���� = CFLAG:MASTER:�A�Q���� - DAY * 1440
PRINTFORML [0] - �N�����Ԑݒ�i���݁F%�����\��(TIME:3)%�j
PRINTFORML [1] - �����ݒ�i���݁F\@ CFLAG:MASTER:�����ʒu == 16 ? %CALLNAME:(FLAG:15)%�̏��� # %NAME_FROM_PLACE(CFLAG:MASTER:�����ʒu)% \@�j
;SIF FLAG:15 == 0
;	PRINTL [2] - �Z�ݍ���
PRINTFORML [4] - ���E�i���݁F\@ FLAG:���E ? �I�� # �I�t \@�j
PRINTFORML [5] - ����
PRINTFORML [6] - �𒎂̕r���ړ��i���݁F\@ !MAIN_MAP ? %STR:���__��% # %STR:(���__�� + 8000)% \@�j
SIF ITEM:�Ւd
	PRINTFORML [7] - ���������сi���݂̑ΏہF\@ FLAG:���������� ? %CALLNAME:(FLAG:����������)%# �Ȃ�\@�j
;#;PRINTFORML [-99] - �f�o�b�O�p�A�֐��Ăяo���ڂ���
PRINTL [100] - �߂�
INPUT
IF RESULT == 100
	RETURN 0
ELSEIF RESULT == 0
	�����l = 0
	FOR LOCAL,1,CHARANUM
		IF CFLAG:LOCAL:�����ʒu == CFLAG:MASTER:�����ʒu
			�����l = LOCAL
			BREAK
		ENDIF
	NEXT
	$INPUT_LOOP
	PRINTFORML �����ɋN�����܂����H�i�O���A�Q���ԁF%�����\��(�O���A�Q����)%�j�i�������ԁF{�������ԗ\��(TIME:3) / 60}����{�������ԗ\��(TIME:3) % 60}���j
	PRINTBUTTON "���� �� ", 60
	PRINTBUTTON "����", 10
	PRINTBUTTON "������", 1
	PRINTL
	PRINT ���@
	SIF TIME:3 < 600
		PRINT �O
	PRINTFORM %TOFULL(TOSTR(TIME:3 / 60))%�F
	SIF TIME:3 % 60 < 10
		PRINT �O
	PRINTFORM %TOFULL(TOSTR(TIME:3 % 60))%�@��
	PRINTL
	PRINTBUTTON "���� �� ", -60
	PRINTBUTTON "����", -10
	PRINTBUTTON "������", -1
	PRINTL
	SIF �����l < CHARANUM && �����l
		PRINTBUTTON "[��������" + CALLNAME:�����l + "�̋N�����Ԃɍ��킹��]", 10000
	PRINTL
	IF �������ԗ\��(TIME:3) < 240
		CALL COLORMESSAGE("�Œ�ł�4���Ԉȏ�Q��K�v������܂�", C_ORANGE, 1)
	ELSE
		PRINTFORML [0] - ����
	ENDIF
	INPUT
	IF RESULT == 0 && �������ԗ\��(TIME:3) >= 240
		PRINTFORM �ڊo�܂���
		CALL COLORMESSAGE(@"%�����\��(TIME:3)%", C_YELLOW)
		PRINTFORMW �ɐݒ肵�܂����B
		RETURN 1
	ELSEIF RESULT == 10000 && �����l < CHARANUM && �����l
		TIME:3 = CFLAG:�����l:�N������
	ELSEIF INRANGE(RESULT, -1360, 1360)
		TIME:3 += RESULT
		IF TIME:3 >= 1440
			TIME:3 -= 1440
		ELSEIF TIME:3 < 0
			TIME:3 += 1440
		ENDIF
	ENDIF
	CLEARLINE 7
	GOTO INPUT_LOOP
[SKIPSTART]
	;�O�̂��������ĂȂ����炱������߂���
	VARSET LOCAL
	FOR LOCAL, 0, 24
		IF �������ԗ\��(LOCAL * 60) < 240
			SETCOLOR 50, 50, 50
			PRINTPLAINFORM [{LOCAL, 2}]
		ELSE
			SIF TIME:3 == LOCAL * 60
				SETCOLOR C_AQUA
			PRINTFORM [{LOCAL, 2}]
		ENDIF
		RESETCOLOR
		SIF LOCAL % 12 == 11
			PRINTL
	NEXT
	IF �����l < CHARANUM && �����l
		LOCAL:1 = CFLAG:�����l:�N������ / 60
		DRAWLINE
		PRINTFORML [{LOCAL:1, 2}] - ��������%CALLNAME:�����l%�̋N������
	ENDIF
	$INPUT_LOOP
	INPUT
	SIF RESULT < 0 || RESULT > 23 || �������ԗ\��(RESULT * 60) < 240
		GOTO INPUT_LOOP
	TIME:3 = RESULT * 60
	PRINTFORM �ڊo�܂���
	CALL COLORMESSAGE(@"%�����\��(TIME:3)%", C_YELLOW)
	PRINTFORMW �ɐݒ肵�܂����B�i{�������ԗ\��(TIME:3) / 60}����{�������ԗ\��(TIME:3) % 60}���Q�܂��j
[SKIPEND]
;;------------------------------------------------------------
;;�ĂQ�@�������Ԃ𒼐ڎw�肷����@�A�N�����Ԃ������Őݒ肵�Ă����
;	$INPUT_LOOP_0
;	PRINTL �Œ�ł�4���Ԃ͐Q��K�v������A12���Ԉȏ�͎��R�ɖڂ����߂Ă��܂��܂�
;	PRINTFORML �����ԐQ�܂����H(4~12����͂��Ă�������)(8���Ԃ����ϓI�Ȑ������Ԃł�)
;	$INPUT_LOOP_1
;	INPUT
;	SIF RESULT < 4 || RESULT > 12
;		GOTO INPUT_LOOP_1
;	TIME:3 = ((LOCAL:1 / 60) + RESULT) * 60
;	SIF (LOCAL:1 % 60)
;		TIME:3 += 60
;	SIF TIME:3 >= 1440
;		TIME:3 -= 1440
;	PRINTFORML �N�����Ԃ́i%�����\��(TIME:3)%�j�ɂȂ�܂�
;	PRINTL ��낵���ł����H
;	PRINTL  [0] �͂�
;	PRINTL  [1] ������
;	$INPUT_LOOP_2
;	INPUT
;	IF RESULT == 0
;		PRINTFORMW �N�����Ԃ��i%�����\��(TIME:3)%�j�ɐݒ肵�܂���
;	ELSEIF RESULT == 1
;		GOTO INPUT_LOOP_0
;	ELSE
;		GOTO INPUT_LOOP_2
;	ENDIF
ELSEIF RESULT == 1
	PRINTL ����̃L�����Ɠ������ɂȂ邱�Ƃ��o���܂�
	SIF CFLAG:MASTER:�����ʒu == �f�t�H���g�����ʒu
		SETCOLOR C_AQUA
	PRINTFORML [0] - %NAME_FROM_PLACE(�f�t�H���g�����ʒu)%
	RESETCOLOR
	FOR LOCAL,1,CHARANUM
		SIF CFLAG:MASTER:�����ʒu == CFLAG:LOCAL:�����ʒu
			SETCOLOR C_AQUA
		IF TALENT:LOCAL:����
			IF CFLAG:LOCAL:�_�ЍݏZ
				PRINTFORML [{LOCAL}] - %CALLNAME:LOCAL%�̕���
			ELSEIF FLAG:15 == LOCAL && !MAIN_MAP
				PRINTFORML [{LOCAL}] - %CALLNAME:LOCAL%�̕���
			ELSEIF FLAG:16 == LOCAL && !MAIN_MAP
				PRINTFORML [{LOCAL}] - %CALLNAME:LOCAL%�̕���
			ELSEIF LOCAL == 71 && !MAIN_MAP
				PRINTFORML [{LOCAL}] - %CALLNAME:LOCAL%�̒�����
			ENDIF
		ENDIF
		RESETCOLOR
;		IF MAP_�Z�l(MAIN_MAP,LOCAL) && CFLAG:LOCAL:��ƌ��
;			LOCAL:1 ++
;			SIF CFLAG:LOCAL:�Z�ݍ��ݕK�v�M���x > CFLAG:LOCAL:�M���x && DAY > 1
;				SETCOLOR C_L_GRAY
;			IF MAIN_MAP == 0
;				LOCALS:LOCAL = %STR:(CFLAG:LOCAL:��ƌ��)%
;			ELSE
;				LOCALS:LOCAL = %STR:(CFLAG:LOCAL:��ƌ�� + 8000)%
;			ENDIF
;			PRINTFORML [{LOCAL + 500}] - %LOCALS%�@���:%CALLNAME:LOCAL% �K�v�M���x:{CFLAG:LOCAL:�Z�ݍ��ݕK�v�M���x}
;			RESETCOLOR
;		ENDIF
	NEXT
;	SIF !MAIN_MAP
;		PRINTL [999] - �[��
	PRINTFORML [998] - �L�����Z��
	$INPUT_LOOP2
	INPUT
	IF RESULT == 998
		RETURN 1
	ELSEIF RESULT < 0 || RESULT >= CHARANUM
		CLEARLINE 1
		GOTO INPUT_LOOP2
	ELSEIF RESULT == 0
	;�������Ȃ�����
		CFLAG:MASTER:�����ʒu = �f�t�H���g�����ʒu
		SIF �f�t�H���g�����ʒu == 53
			STR:53 = %CALLNAME:MASTER%�̔[��
;	ELSEIF RESULT == 999
;		CFLAG:MASTER:�����ʒu = 53
;		STR:53 = %CALLNAME:MASTER%�̔[��
	ELSEIF RESULT == 71 && TALENT:MASTER:100 >= -4 && TALENT:RESULT:����
		PRINTW ���l����Ȃ�����ꏏ�ɂ͐Q���Ȃ�
		CLEARLINE 2
		GOTO INPUT_LOOP2
	ELSEIF TALENT:RESULT:���� && CFLAG:RESULT:�_�ЍݏZ
		CFLAG:MASTER:�����ʒu = CFLAG:RESULT:�����ʒu
		STR:53 = �[��
	;ELSEIF TALENT:RESULT:���� && (RESULT <= 10 ||FLAG:16 == RESULT)
	;	CFLAG:MASTER:�����ʒu = CFLAG:RESULT:�����ʒu
;	ELSEIF INRANGE(RESULT - 500,1,CHARANUM)

	ELSE
		CLEARLINE 1
		GOTO INPUT_LOOP2
	ENDIF
	PRINTFORML %NAME_FROM_PLACE(CFLAG:MASTER:�����ʒu)%�ɐݒ肵�܂���
	PRINTFORMW �ύX�͗������甽�f����܂�
ELSEIF RESULT == 4
	FLAG:���E = !FLAG:���E
	IF FLAG:���E
		PRINTFORMW �A�Q���ɗ]����TSP���g���ē��E���܂�
	ELSE
		PRINTFORMW ���E���I�t�ɂ��܂���
	ENDIF
ELSEIF RESULT == 5
	CALL NAME_CUSTOM(MASTER)
ELSEIF RESULT == 6
	CALL �𒎈����z��
ELSEIF RESULT == 7 && ITEM:�Ւd
	CALL AUTO_ENMUSUBI
ELSEIF RESULT == -99
	;���̍��ڂł͂Ȃ�
	;@TEST_����e�X�g�p�̒��g���������ĉ�������
	;#; CALL TEST_����e�X�g�p
ENDIF
RETURN 1

[SKIPSTART]
�֐��̓���e�X�g�p
PRINTFORM���R�s�y����Ό���\�����̃E�F�C�g�̕p�x�������x�̗p�r�ɂ͎g����
���ӓ_
�E�g�p�ł���^�C�~���O��������i�̂ŁA������e�ɂ���Ă͋������ς��j
�ECFLAG�̑���Ȃǂ��s�����ꍇ�ɂ̓Z�[�u�����ɂ��̂܂�Emuera���I�������ق�������
�E�g���I������甒���ɖ߂��Ă����܂��傤
[SKIPEND]
@TEST_����e�X�g�p
;�D���ɏ���

[SKIPSTART]
;����Ղ�\���A�����C�x���g�̓���e�X�g
DO
	PRINTFORMW �Ă��Ƒҋ@��
	CALL DAIRY_EV2
LOOP 1
[SKIPEND]

@�𒎈����z��
#DIMS �����z���於��
#DIM �����z����n�_
PRINTFORML �ǂ��Ɉړ������悤���H
FOR LOCAL,1,100
	IF ROOMDATA:LOCAL & �ꏊ_�~�[
		IF MAIN_MAP == 0
			LOCALS = %STR:LOCAL%
		ELSE
			LOCALS = %STR:(LOCAL + 8000 + MAIN_MAP * 100)%
		ENDIF
		IF LOCAL == ���__�� % 100
			SETCOLOR C_AQUA
		ELSEIF PRIVATEROOM:LOCAL && !TALENT:(PRIVATEROOM:LOCAL):����
			SETCOLOR 100, 100, 100
		ENDIF
		PRINTFORML [{LOCAL}] %LOCALS%
		RESETCOLOR
	ENDIF
NEXT
DRAWLINE
PRINTFORML [100] ����ς��߂�
INPUT
IF INRANGE(RESULT,1,99) && ROOMDATA:RESULT & �ꏊ_�~�[
	IF PRIVATEROOM:RESULT && !TALENT:(PRIVATEROOM:RESULT):����
		PRINTFORMW �������ɂ����ɒu���͕̂s�����낤
		RESTART
	ENDIF
	�����z����n�_ = RESULT
	IF MAIN_MAP == 0
		�����z���於�� = %STR:�����z����n�_%
	ELSE
		�����z���於�� = %STR:(�����z����n�_ + 8000 + MAIN_MAP * 100)%
		�����z����n�_ += MAIN_MAP * 100
	ENDIF

	PRINTFORML %�����z���於��%�ɕr�������Ă������Ƃɂ���
	PRINTFORML ���g�̓��������r���^�Ԃ̂͂Ȃ��Ȃ��̏d�J�����c�c
	CALL COLORMESSAGE(@"�𒎂�%�����z���於��%�Ɉړ������܂���",C_YELLOW,2)
	���__�� = �����z����n�_
ENDIF

;����(ARG)�ɋN������ꍇ�ǂꂾ���������邩���Z�o
@�������ԗ\��(ARG)
#FUNCTION
LOCAL = CFLAG:MASTER:�A�Q���� - DAY * 1440
IF ARG >= LOCAL
	RETURNF ARG - LOCAL
ELSE
	RETURNF 1440 + ARG - LOCAL
ENDIF

@AUTO_ENMUSUBI
PRINTFORML ���̓���|�����Ă��Ȃ������ꍇ�A�Q��O�Ɏ����őΏۃL�����Ƃ̉����т��肤�悤�ɂ��܂��B
PRINTFORML �Ώۂ�I��ł�������
FOR LOCAL,1,CHARANUM
	SIF TALENT:LOCAL:�s������
		CONTINUE
	SIF CFLAG:LOCAL:�o��
		CONTINUE
	SIF FLAG:���������� == LOCAL
		SETCOLOR C_YELLOW
	PRINTFORMLC [{LOCAL}] %CALLNAME:LOCAL%
	RESETCOLOR
NEXT
PRINTFORML
DRAWLINE
PRINTFORML [999] ��߂�
INPUT
IF RESULT == 999
	FLAG:���������� = 0
ELSEIF INRANGE(RESULT,1,CHARANUM)
	FLAG:���������� = RESULT
ENDIF

repo_name: akadiya/eratw

license: unknown


code:
;-------------------------------------------------
;�����ւ�
;����n�R�}���h�A���x��1
;-------------------------------------------------
@COM429
#DIM C_ID
#DIM ID_�����ւ��Ώ�, �L�����N�^�����
#DIM �����ւ��\�l��
#DIM L_ID ;�g�p���X�g��ID
CALLF MAKE_CHARA_LIST("�����ւ��\�L�������X�g", L_ID, ID_�����ւ��Ώ�, �����ւ��\�l��)
IF �����ւ��\�l�� <= 1
	PRINTFORMW %CALLNAME:(MASTER)%�͒��ւ��邱�Ƃɂ���
	CALL ���������ւ�(MASTER)
	CALL CLOTHES_SETTING_TRAIN(MASTER)
	RETURN -1
ENDIF

;���ւ��Ώۂ̑I��
;���X�g�쐬���ɉ۔������Ă�̂ł����ł͕K�v�Ȃ��ł�
PRINTFORML ���𒅑ւ��鎖���ł��܂�
PRINTFORML �N�̒��ւ������܂���?
PRINTFORML
CALL SIMPLE_CHARA_LIST(ID_�����ւ��Ώ�, �����ւ��\�l��)
;�L�����Z������
SIF RESULT == 999
	RETURN -1

;RESULT�͂�������̂�
C_ID = ID_�����ւ��Ώ�:(RESULT)
SIF FLAG:���Ԓ�~ == 1 && !(C_ID == MASTER)
	CFLAG:C_ID:���Ԓ�~�����ւ� = 1
CALL ���������ւ�(C_ID)
CALL CLOTHES_SETTING_TRAIN(C_ID)
RETURN 0

;CLOTHES_SETTING_TRAIN�ɌC�E���������ړ��������̂�
;������CLOTHES_SETTING_TRAIN����ƌC��E���ł��܂��A�C�ݒ�̕ۑ����ł��܂���
;�Ăяo������CLOTHES_SETTING_TRAIN���邱��
@���������ւ�(C_ID)
#DIM C_ID
CALL SHOW_CLOTHES(C_ID, "���݂̈ߑ�")
PRINTFORML %CALLNAME:C_ID%�̂����ւ���
PRINTFORML
PRINTFORML [6] - �ߑ��m�F
PRINTFORML [5] - �ߑ��̂����ɂ���w��
PRINTFORML [4] - �p�W���}�̕ύX
PRINTFORML [3] - �����̈ߑ��̕ύX
PRINTFORML [2] - �ߑ��̈ꎞ�ύX
PRINTFORML [1] - ���ς��
PRINTFORML
PRINTFORML [0] - �߂�
DO
	INPUT
	SELECTCASE RESULT
	CASE 6
		CALL SHOW_CHARA_CLOTHES(C_ID, 0)
	CASE 5
		CALL SHOW_CLOTHES(C_ID, "�����ɂ���ߑ�")
		PRINTFORML %CALLNAME:C_ID%�̂����ɂ���ߑ���ݒ蒆
		PRINTFORML
		PRINTFORML [4] - ���݂̈ߑ����w�肷��
		PRINTFORML [3] - �ߑ��Z�b�g���w�肷��
		PRINTFORML [2] - ����L�����̕��i���̐^��
		PRINTFORML [1] - �����ɂ���w��̃��Z�b�g
		PRINTFORML
		PRINTFORML [0] - ��߂�
		DO
			INPUT
			SELECTCASE RESULT
			CASE 4
				CALL DECIDE_CLOTHES(C_ID, "�����ɂ���ߑ�", "���݂̈ߑ�")
			CASE 3
				CALL COSPLAY_SET(C_ID, "�����ɂ���ߑ�")
			CASE 2
				CALL COSPLAY_CHARA(C_ID, "�����ɂ���ߑ�")
			CASE 1
				PRINTFORML �{���Ƀ��Z�b�g���܂����H
				PRINTFORML
				PRINTFORML [1] - ���Z�b�g����
				PRINTFORML [0] - ��߂�
				DO
					INPUT
					SELECTCASE RESULT
					CASE 1
						CALL CTRL_CLOTHES_SET(C_ID, "�����ɂ���ߑ��̃��Z�b�g")
					CASE 0
					CASEELSE
						REUSELASTLINE �����ȓ��͂ł�
						CONTINUE
					ENDSELECT
					RESTART
				LOOP 1
			CASE 0
				RESTART
			CASEELSE
			ENDSELECT
			RESTART
		LOOP 1
	CASE 4
		SIF C_ID == MASTER
			RESTART
		CALL SHOW_CLOTHES(C_ID, "�����̃p�W���}")
		PRINTFORML %CALLNAME:C_ID%�̃p�W���}��ݒ蒆
		PRINTFORML
		PRINTFORML [5] - �D���Ȃ悤�ɂ�����
		PRINTFORML [4] - �����ɂ���ߑ��ŐQ�Ă��炤
		PRINTFORML [3] - �p�W���}���w�肷��
		PRINTFORML [2] - �S���ŐQ�Ă��炤
		PRINTFORML [1] - �p���c�����ŐQ�Ă��炤
		PRINTFORML
		PRINTFORML [0] - ��߂�
		DO
			INPUT
			SELECTCASE RESULT
			CASE 5
				CFLAG:C_ID:�p�W���}�w�� = 0
			CASE 4
				SIF CFLAG:C_ID:�����ɂ���ߑ�
					CALL CTRL_CLOTHES_SET(C_ID, "�p�W���}�̕ύX_�����ɂ���ߑ�")
			CASE 3
				CALL COSPLAY_SELECT(C_ID, "�p�W���}", "�p�W���}�Z�b�g")
			CASE 2
				CALL CTRL_CLOTHES_SET(C_ID, "�p�W���}�̕ύX_�S��")
			CASE 1
				CALL CTRL_CLOTHES_SET(C_ID, "�p�W���}�̕ύX_�p���C�`")
			CASE 0
			CASEELSE
				REUSELASTLINE �����ȓ��͂ł�
				CONTINUE
			ENDSELECT
			RESTART
		LOOP 1
	CASE 3
		CALL SHOW_CLOTHES(C_ID, "�����̈ߑ�")
		PRINTFORML %CALLNAME:C_ID%�̕��i����ݒ蒆
		PRINTFORML
		PRINTFORML [4] - ���݂̈ߑ����w�肷��i�����ɂ���ɏ㏑������܂��j
		PRINTFORML [3] - �ߑ��Z�b�g���w�肷��
		PRINTFORML [2] - ����L�����̕��i���̐^��
		PRINTFORML [1] - �{�l�܂���
		PRINTFORML
		PRINTFORML [0] - ��߂�
		DO
			INPUT
			SELECTCASE RESULT
			CASE 4
				CALL DECIDE_CLOTHES(C_ID, "���i��", "���݂̈ߑ�")
			CASE 3
				CALL COSPLAY_SET(C_ID, "���i��")
			CASE 2
				CALL COSPLAY_CHARA(C_ID, "���i��")
			CASE 1
				PRINTFORMW ���i���̐ݒ�͖{�l�̋C���ɔC���܂�
				CFLAG:C_ID:��{�����Z�b�g = 0
			CASE 0
			ENDSELECT
			RESTART
		LOOP 1
	CASE 2
		;#;PRINTFORML CFLAG:C_ID:�ߑ��ꎞ�ύX{CFLAG:C_ID:�ߑ��ꎞ�ύX}
		CALL SHOW_CLOTHES(C_ID, "���݂̈ߑ�")
		PRINTFORML %CALLNAME:C_ID%�̌��݂̈ߑ��𒅂��ւ���
		PRINTFORML
		PRINTFORML [4] - �����ɂ���ߑ��ɒ����ւ�
		PRINTFORML [3] - �ߑ��Z�b�g���w�肷��
		PRINTFORML [2] - ����L�����̕��i���̐^��
		PRINTFORML [1] - �����̃f�t�H���g�ɖ߂�
		PRINTFORML
		PRINTFORML [0] - ��߂�
		DO
			INPUT
			SELECTCASE RESULT
			CASE 4
				SIF !CFLAG:C_ID:�����ɂ���ߑ�
					RESTART
				CALL DECIDE_CLOTHES(C_ID, "���݂̈ߑ�", "�����ɂ���ߑ�")
			CASE 3
				CALL COSPLAY_SET(C_ID, "���݂̈ߑ�")
			CASE 2
				CALL COSPLAY_CHARA(C_ID, "���݂̈ߑ�")
			CASE 1
				PRINTFORMW �����̈ߑ��𒅂�������
				CALL CTRL_CLOTHES_SET(C_ID, "���݈ߑ��̕ύX_���i��")
			CASE 0
			ENDSELECT
			RESTART
		LOOP 1
	CASE 1
		PRINTFORML %CALLNAME:C_ID%�̂��ς���ᖡ��
		PRINTFORML ���ݒ��p���̂��ς�F%GET_STR(C_ID, "�����g����_���炵�\", EQUIP:C_ID:�����g�����Q, "���O")%
		SELECTCASE CFLAG:C_ID:�w��p���c
		CASE 0
			PRINTFORML �@���݂̂��ς�ݒ�F�w��Ȃ�
		CASE 100
			PRINTFORML �@���݂̂��ς�ݒ�F�m�[�p���w��
		CASEELSE
			PRINTFORML �@���݂̂��ς�ݒ�F%GET_STR(C_ID, "�����g����_���炵�\", CFLAG:C_ID:�w��p���c, "���O")%
		ENDSELECT
		PRINTFORML
		PRINTFORML
		PRINTFORML [2] - ���݂̂��ς�������ɂ���w��
		PRINTFORML [1] - ���ς�̂����ɂ���w�����������
		PRINTFORML
		PRINTFORML [0] - ��߂�
		DO
			INPUT
			SELECTCASE RESULT
			CASE 2
				PRINTFORMW ���݂̂��ς�������ɂ���Ɏw�肵�܂���
				CFLAG:C_ID:�w��p���c = EQUIP:C_ID:�����g�����Q
				SIF !CFLAG:C_ID:�w��p���c
					CFLAG:C_ID:�w��p���c = 100
			CASE 1
				PRINTFORMW ���ς�̂����ɂ���w����������܂���
				CFLAG:C_ID:�w��p���c = 0
			CASE 0
			ENDSELECT
			RESTART
		LOOP 1
	CASE 0
		RETURN
	CASEELSE
		REUSELASTLINE �����ȓ��͂ł�
		CONTINUE
	ENDSELECT
	RESTART
LOOP 1

;�͕킳����ΏۃL�����̑I��
@COSPLAY_CHARA(C_ID, TYPE)
#DIM  C_ID
#DIMS TYPE
#DIM  COS_CHARA
PRINTFORML %CALLNAME:C_ID%��%TYPE%��ݒ蒆
PRINTFORML �N�̈ߑ���^�������܂����H
CALL SHOW_CHARA_LIST("���i���͕�\�L�������X�g", "�̗͋C��")
COS_CHARA = RESULT
IF GROUPMATCH(COS_CHARA, 0, 999)
	PRINTFORMW �ߑ��̐ݒ�𒆒f����
	RETURN
ELSEIF COS_CHARA == C_ID
	SELECTCASE TYPE
	CASE "�����ɂ���ߑ�"
		PRINTFORMW �ߑ��̐ݒ�𒆒f����
	CASE "���i��"
		PRINTFORMW ���i���̐ݒ�͖{�l�̋C���ɔC���܂�
		CFLAG:C_ID:��{�����Z�b�g = 0
	CASE "���݂̈ߑ�"
		PRINTFORMW �����̈ߑ��𒅂�������
		CALL CTRL_CLOTHES_SET(C_ID, "���݈ߑ��̕ύX_���i��")
	ENDSELECT
	RETURN
ENDIF
CALL DECIDE_CLOTHES(C_ID, TYPE, "�L�������i��", COS_CHARA)
SIF RESULT
	RESTART

;�ߑ��Z�b�g�̃J�e�S���I��
@COSPLAY_SET(C_ID, TYPE)
#DIM  C_ID
#DIM  SET_ID
#DIMS TYPE
#DIMS CATEGORY
CALL SHOW_CLOTHES(C_ID, TYPE)
PRINTFORML %CALLNAME:C_ID%��%TYPE%��ݒ蒆
PRINTFORML �ߑ��̎�ނ̑I��
PRINTFORML
PRINTFORML [3] - ��{�ߑ��Z�b�g
PRINTFORML [2] - �R�X�v���ߑ��Z�b�g
PRINTFORML [1] - �L��������ߑ��Z�b�g
PRINTFORML
PRINTFORML [0] - ��߂�
DO
	INPUT
	SELECTCASE RESULT
	CASE 3
		CATEGORY '= "��{�ߑ��Z�b�g"
	CASE 2
		CATEGORY '= "�R�X�v���ߑ��Z�b�g"
	CASE 1
		CATEGORY '= "�L��������ߑ��Z�b�g"
	CASE 0
		RETURN
	CASEELSE
		REUSELASTLINE �����ȓ��͂ł�
		CONTINUE
	ENDSELECT
	BREAK
LOOP 1
CALL COSPLAY_SELECT(C_ID, TYPE, CATEGORY)

;�X�̈ߑ��Z�b�g�̑I��
@COSPLAY_SELECT(C_ID, TYPE, CATEGORY)
#DIM  C_ID
#DIM  SET_ID
#DIMS TYPE
#DIMS CATEGORY
PRINTFORML %CALLNAME:C_ID%��%TYPE%��ݒ蒆�i%CATEGORY%�j
PRINTFORML �g�p����ߑ��Z�b�g��I�����ĉ�����
PRINTFORML
CALL CLASS_LIST("�ߑ��Z�b�g", CATEGORY)
PRINTFORML
PRINTFORML [0] - ��߂�
DO
	INPUT
	SET_ID = RESULT
	SELECTCASE SET_ID
	CASE 0
		RETURN
	CASEELSE
		SIF GET_INT(0, "�ߑ��Z�b�g" , SET_ID, CATEGORY)
			BREAK
		REUSELASTLINE �����ȓ��͂ł�
		CONTINUE
	ENDSELECT
LOOP 1
CALL DECIDE_CLOTHES(C_ID, TYPE, "�ߑ��Z�b�g", SET_ID)
SIF RESULT
	RESTART

;�ߑ�����̍ŏI�m�F
@DECIDE_CLOTHES(C_ID, COS_SAVE, COS_LOAD, SET_ID)
#DIM  C_ID     ;�ݒ肷��L����
#DIMS COS_SAVE ;�ߑ��̕ۑ���
#DIMS COS_LOAD ;�ߑ��̎Q�ƌ�
#DIM  SET_ID   ;�Q�ƈߑ�����ID
;#; PRINTFORML C_ID{C_ID}, COS_SAVE%COS_SAVE%, COS_LOAD%COS_LOAD%, SET_ID{SET_ID}
PRINTFORMW �ŏI�m�F
CALL SHOW_CLOTHES(C_ID, COS_LOAD, SET_ID)
PRINTFORML
PRINTFORML ���̈ߑ��ł悢�ł����H
PRINTFORML
PRINTFORML [1] - ����
PRINTFORML [0] - �l���Ȃ���
PRINTFORML
PRINTFORML [9] - ��߂�
DO
	INPUT
	SELECTCASE RESULT
	CASE 1
		BREAK
	CASE 0
		RETURN 1
	CASE 9
		RETURN
	CASEELSE
		REUSELASTLINE �����ȓ��͂ł�
		CONTINUE
	ENDSELECT
LOOP 1

SELECTCASE COS_LOAD
CASE "���݂̈ߑ�"
	SELECTCASE COS_SAVE
	CASE "���i��"
		PRINTFORMW ���ܒ��p���Ă���ߑ��𖈓����Ă��炤���Ƃɂ���
		CFLAG:C_ID:��{�����Z�b�g = 100
		CALL CTRL_CLOTHES_SET(C_ID, "���݈ߑ��̕ۑ�_�����ɂ���")
	CASE "�����ɂ���ߑ�"
		PRINTFORMW ���ܒ��p���Ă���ߑ��������ɂ���Ɏw�肵��
		CALL CTRL_CLOTHES_SET(C_ID, "���݈ߑ��̕ۑ�_�����ɂ���")
	ENDSELECT

CASE "�ߑ��Z�b�g"
	PRINTFORMW %CALLNAME:C_ID%��%COS_SAVE%��%GET_STR(C_ID, "�ߑ��Z�b�g", SET_ID, "���O")%���w�肵�܂���
	SELECTCASE COS_SAVE
	CASE "���݂̈ߑ�"
		CALL CTRL_CLOTHES_SET(C_ID, "���݈ߑ��̕ύX_�ߑ��Z�b�g", SET_ID)
	CASE "���i��"
		CALL CTRL_CLOTHES_SET(C_ID, "���i���̕ύX_�ߑ��Z�b�g", SET_ID)
	CASE "�����ɂ���ߑ�"
		CALL CTRL_CLOTHES_SET(C_ID, "�����ɂ���ߑ��̕ύX_�ߑ��Z�b�g", SET_ID)
	CASE "�p�W���}"
		CALL CTRL_CLOTHES_SET(C_ID, "�p�W���}�̕ύX_�ߑ��Z�b�g", SET_ID)
	ENDSELECT

CASE "�L�������i��"
	PRINTFORMW %CALLNAME:C_ID%��%CALLNAME:SET_ID%�̊i�D��^�������邱�Ƃɂ���
	SELECTCASE COS_SAVE
	CASE "���݂̈ߑ�"
		CALL CTRL_CLOTHES_SET(C_ID, "���݈ߑ��̕ύX_�L�����ߑ�", SET_ID, "���i��")
	CASE "���i��"
		CALL CTRL_CLOTHES_SET(C_ID, "���i���̕ύX_�L�����ߑ�", SET_ID, "���i��")
	CASE "�����ɂ���ߑ�"
		CALL CTRL_CLOTHES_SET(C_ID, "�����ɂ���ߑ��̕ύX_�L�����ߑ�", SET_ID, "���i��")
	ENDSELECT

ENDSELECT

;�����ւ�
@COM_ABLE429
;�ړ����s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(429)
	RETURN RESULT
;�����ݒ�
SIF (CFLAG:MASTER:���݈ʒu != CFLAG:MASTER:311) && (CFLAG:���݈ʒu != CFLAG:311)
	RETURN 0
SIF !GETBIT(CFLAG:TARGET:��������, 1) && TARGET
	RETURN 0
SIF CFLAG:���ӂ�
	RETURN 0
RETURN 1


code:
[SKIPSTART]
;ここからまるまる廃止したい（875行目まで）
@Show_CharaData
#DIM キャラ登録番号
#DIM リスト番号
#DIM キャラリスト, キャラクタ数上限
#DIM 最大リストキャラ番号

;初期化
リスト番号 = 0
VARSET ソート項目 , 0

;表示するキャラリストを作成
VARSET キャラリスト, -1
FOR キャラ登録番号, 0, CHARANUM
	;出禁キャラはリスト入りしない(キャラの実体は存在する)
	IF CFLAG:キャラ登録番号:出禁 == 1 || TALENT:キャラ登録番号:行きずり
		CONTINUE
	ELSE
		キャラリスト:リスト番号 = キャラ登録番号
		リスト番号++
	ENDIF
NEXT
;どこまで入ってるかを明示する
最大リストキャラ番号 = リスト番号 - 1
DEBUGPRINTFORML {最大リストキャラ番号}
CALL CheckCharaData(キャラリスト, 最大リストキャラ番号)
RETURN

;この辺の入れ子を解消した方がいいんだろうか
@CheckCharaData(キャラリスト, 最大リストキャラ番号)
#DIM REF キャラリスト
#DIM リストページ番号
#DIM 最大リストページ番号
#DIM 最大リストキャラ番号

;初期化
リストページ番号 = 0
最大リストページ番号 = 最大リストキャラ番号 / リスト表示行数

;WHILEループを別関数に分離
CALL CheckCharaDataProc(キャラリスト, リストページ番号, 最大リストページ番号, 最大リストキャラ番号)
RETURN

@CheckCharaDataProc(キャラリスト, リストページ番号, 最大リストページ番号, 最大リストキャラ番号)
#DIM REF キャラリスト
#DIM REF リストページ番号
#DIM REF 最大リストページ番号
#DIM REF 最大リストキャラ番号
#DIM 入力値
#DIM リスト番号
#DIM 全員表示フラグ

WHILE 1
	;どちらも詳細を知りたいキャラのリスト番号を帰す
	;CSVで定義された番号やキャラ生成の時に付与される番号ではない
	IF 全員表示フラグ
		CALL DrawAllChara(キャラリスト, 最大リストキャラ番号)
	ELSE
		;一覧を表示
		CALL DrawCharaList(キャラリスト, リストページ番号, 最大リストページ番号, 最大リストキャラ番号)
	ENDIF
	;RESULTに置きっぱなしにしたくないというわがまま
	入力値 = RESULT

	;リスト番号以外の特殊な入力の処理
	IF 入力値 == 帰る
		RETURN
	;全員表示の切り替え
	ELSEIF 入力値 == 9000
		;ビット反転し、再描画
		全員表示フラグ = !全員表示フラグ
		CONTINUE
	ENDIF
	リスト番号 = 入力値
	;能力を表示
	CALL DrawCharaData(キャラリスト, 最大リストキャラ番号, リスト番号)

	;詳細表示から一覧に戻った際にさっきまで能力を見てた奴のページに合わせる
	リストページ番号 = リスト番号 / リスト表示行数
WEND

@DrawCharaList(キャラリスト, リストページ番号, 最大リストページ番号, 最大リストキャラ番号)
#DIM REF キャラリスト
#DIM REF リストページ番号
#DIM REF 最大リストページ番号
#DIM ページ番号
#DIM 最大ページ番号
#DIM REF 最大リストキャラ番号
#DIM リスト番号
#DIM 入力値
#DIM CONST バー長さ = 10

;ページ番号の初期化はしない方がいいと言われたので削除、誤作動は知らん
	;ページ番号 = 0

;.ERH
最大ページ番号 = 簡易能力表示最大ページ番号

WHILE 1
	DRAWLINE
	CALL ShowStatusHeader(ページ番号, 最大ページ番号, 最大リストキャラ番号)
	DRAWLINE
	CALL ShowStatusBody(キャラリスト, リストページ番号, ページ番号, リスト番号)
	DRAWLINE
	CALL ShowListFooter(リストページ番号, 最大リストページ番号)

	PRINTL [9000] 全員表示

	CALL InputListDataNum(ページ番号, 最大ページ番号, リストページ番号, 最大リストページ番号)
	入力値 = RESULT
	SELECTCASE 入力値
		CASE 0 TO 最大リストキャラ番号, 9000
			RETURN 入力値
		CASE 再描画
			CONTINUE
		CASE 帰る
			RETURN 帰る
		CASE 2001 TO 2000 + (最大ページ番号 + 1) * 10
			CALL SORT_能力(キャラリスト, ページ番号, 入力値, 最大リストキャラ番号)
			CONTINUE
		CASEELSE
			PRINTW 入力値が異常です
	ENDSELECT
WEND

THROW ループに不備があるようです

@DrawCharaData(キャラリスト, 最大リストキャラ番号, リスト番号)
#DIM REF キャラリスト
#DIM REF 最大リストキャラ番号
#DIM REF リスト番号
#DIM ページ番号
#DIM 最大ページ番号
#DIM 入力値
#DIM 素質番号
#DIM 項目数

;初期化
ページ番号 = 0
;.ERH
最大ページ番号 = 詳細能力表示最大ページ番号

WHILE 1
	;能力表示
	CALL PRINT_STATE(キャラリスト:リスト番号, ページ番号)

	DRAWLINE
	CALL ShowListFooter(リスト番号, 最大リストキャラ番号)

	CALL InputListDataNum(ページ番号, 最大ページ番号, リスト番号, 最大リストキャラ番号)
	入力値 = RESULT

	SELECTCASE 入力値
		CASE 再描画
			CONTINUE
		CASE 帰る
			RETURN 帰る
		CASE ＡＡ表示
			FLAG:AA表示 = !FLAG:AA表示
		CASE 160 TO 167
			TFLAG:入力値 = !TFLAG:入力値
		CASEELSE
	ENDSELECT
WEND

THROW ループに不備があるようです

@InputListDataNum(ページ番号, 最大ページ番号, リストページ番号, 最大リストページ番号)
#DIM REF ページ番号
#DIM REF 最大ページ番号
#DIM REF リストページ番号
#DIM REF 最大リストページ番号
#DIMS 入力文字列
#DIM 入力数値

WHILE 1
	INPUTS
	入力文字列 = %RESULTS%
	PRINTL
	SELECTCASE 入力文字列
		;処理の共通部分を抜き出したいなあ
		CASE 前のページ , "1100"
			ページ番号--
			IF ページ番号 < 0
				ページ番号 = 最大ページ番号
			ENDIF
			RETURN 再描画
		CASE 次のページ , "1200"
			ページ番号++
			IF ページ番号 > 最大ページ番号
				ページ番号 = 0
			ENDIF
			RETURN 再描画
		CASE 前のキャラ , "1001"
			リストページ番号--
			IF リストページ番号 < 0
				リストページ番号 = 最大リストページ番号
			ENDIF
			RETURN 再描画
		CASE 次のキャラ , "1002"
			リストページ番号++
			IF リストページ番号 > 最大リストページ番号
				リストページ番号 = 0
			ENDIF
			RETURN 再描画
		CASE やめる , "1000"
			;帰れ
			RETURN 帰る
		CASEELSE
			入力数値 = TOINT(入力文字列)
			RETURN 入力数値
	ENDSELECT
WEND

@ShowStatusHeader(ページ番号, 最大ページ番号, 最大リストキャラ番号)
#DIM ページ番号
#DIM 最大ページ番号
#DIM REF 最大リストキャラ番号

PRINTFORM Page {ページ番号, 2}/{最大ページ番号, 2}
SELECTCASE ページ番号
	;体力気力
	CASE 0
		PRINT
		CALL SORT_能力_表示("体力")
		PRINT
		CALL SORT_能力_表示("気力")
	;能力(簡易)
	CASE 1
		PRINT 能力
		CALL SORT_能力_表示("C感")
		PRINT |
		CALL SORT_能力_表示("V感")
		PRINT |
		CALL SORT_能力_表示("A感")
		PRINT |
		CALL SORT_能力_表示("B感")
		PRINT |
		CALL SORT_能力_表示("M感")
		PRINT |
		CALL SORT_能力_表示("親密")
		PRINT |
		CALL SORT_能力_表示("従順")
		PRINT |
		CALL SORT_能力_表示("欲望")
		PRINT |
		CALL SORT_能力_表示("技巧")
		PRINT |
	;性技
	CASE 2
		PRINT 性技
		CALL SORT_能力_表示("指")
		PRINT |
		CALL SORT_能力_表示("舌")
		PRINT |
		CALL SORT_能力_表示("胸")
		PRINT |
		CALL SORT_能力_表示("腰")
		PRINT |
		CALL SORT_能力_表示("膣")
		PRINT |
		CALL SORT_能力_表示("A")
		PRINT |
	;刻印
	CASE 3
		PRINT 刻印
		CALL SORT_能力_表示("苦痛")
		PRINT |
		CALL SORT_能力_表示("快楽")
		PRINT |
		CALL SORT_能力_表示("不埒")
		PRINT |
		CALL SORT_能力_表示("反発")
		PRINT |
		CALL SORT_能力_表示("時姦")
		PRINT |
	;好感度他
	CASE 4
		PRINT
		CALL SORT_能力_表示("好感")
		PRINT |
		CALL SORT_能力_表示("信頼")
		PRINT |
	CASEELSE
		PRINTFORM 変数が異常値です"ページ番号 = {ページ番号}"
ENDSELECT
PRINTL

@ShowStatusBody(キャラリスト, リストページ番号, ページ番号, リスト番号)
#DIM REF キャラリスト
#DIM REF リストページ番号
#DIM ページ番号
#DIM リスト番号
#DIM CONST バー長さ = 10
#DIM 表示ステータス番号
#DIM キャラ登録番号
#DIMS 表示文

FOR リスト番号, リストページ番号 * リスト表示行数, (リストページ番号 + 1) * リスト表示行数

	;配列の同じ要素を何度も書くのが見苦しかったのでまとめる
	キャラ登録番号 = キャラリスト:リスト番号

	IF キャラ登録番号 == -1
		PRINTL [   ]
		CONTINUE
	ENDIF
	PRINTFORM [{リスト番号, 3}] %CALLNAME:キャラ登録番号, 名前表示長さ, LEFT%
	SELECTCASE ページ番号
		;体力気力
		;空きスペースに二つ名とか入れると楽しいけどCSVいじるのめんどいのでパス
		CASE 0
			CALL PRINT_COLORBAR, BASE:キャラ登録番号:体力, MAXBASE:キャラ登録番号:体力, バー長さ, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("緑"), RESULT:1
			PRINTFORM  ({BASE:キャラ登録番号:体力,5}/{MAXBASE:キャラ登録番号:体力,5})
			CALL PRINT_COLORBAR, BASE:キャラ登録番号:気力, MAXBASE:キャラ登録番号:気力, バー長さ, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("青"), RESULT:1
			PRINTFORM  ({BASE:キャラ登録番号:気力,5}/{MAXBASE:キャラ登録番号:気力,5})
		;能力(簡易)
		;各感覚と親密従順欲望技巧のみ
		CASE 1
			;超適当につき修正の余地あり
			FOR 表示ステータス番号, 0, 13
				IF ABLNAME:表示ステータス番号 != ""
					CALL PRINT_アルファベット評価(キャラ登録番号, 4, 表示ステータス番号)
					PRINTFORM {ABL:キャラ登録番号:表示ステータス番号, 4}|
				ENDIF
			NEXT
		;性技
		CASE 2
			;超適当につき修正の余地あり
			FOR 表示ステータス番号, 50, 56
				IF ABLNAME:表示ステータス番号 != ""
					CALL PRINT_アルファベット評価(キャラ登録番号, 3, 表示ステータス番号)
					PRINTFORM {ABL:キャラ登録番号:表示ステータス番号, 3}|
				ENDIF
			NEXT
		;刻印
		CASE 3
			;超適当につき修正の余地あり
			FOR 表示ステータス番号, 0, 6
				IF MARKNAME:表示ステータス番号 == ""
					CONTINUE
				ENDIF
				;反発刻印履歴は表示しないように
				SIF 表示ステータス番号 == 4
					CONTINUE
				IF 表示ステータス番号 == 3
					SETCOLOR C_RED
					PRINTFORM %"×" * (MARK:キャラ登録番号:表示ステータス番号), 6%|
				ELSE
					SETCOLOR 255, 255, 0
					PRINTFORM %"★" * (MARK:キャラ登録番号:表示ステータス番号), 6%|
				ENDIF
				RESETCOLOR
			NEXT
		;好感度他
		;スペースの取り方は超適当
		CASE 4
			;好感度
			CALL PRINT_アルファベット評価(キャラ登録番号, 1, )
			PRINTFORM {CFLAG:キャラ登録番号:好感度, 6}|

			;信頼度
			CALL PRINT_アルファベット評価(キャラ登録番号, 2, )
			PRINTFORM {CFLAG:キャラ登録番号:信頼度, 6}|

			;恋慕
			IF TALENT:キャラ登録番号:恋人
				SETCOLOR C_RED
				表示文 = 恋人
			ELSEIF TALENT:キャラ登録番号:恋慕 == 1
				SETCOLOR 0xEE60EE
				表示文 = 恋慕
			ELSEIF TALENT:キャラ登録番号:思慕 == 1
				表示文 = 思慕
			ELSE
				表示文 =
			ENDIF
			PRINTFORM %表示文, 4, LEFT%|
			RESETCOLOR

			;既成事実
			SELECTCASE CFLAG:(キャラ登録番号):生解禁
				CASE 2
					表示文 = 危険日生Ｈ解禁
				CASE 1
					表示文 = 生Ｈ解禁
				CASE 0
					IF GETBIT(CFLAG:(キャラ登録番号):既成事実,1)
						表示文 = 合意取得
					ELSE
						表示文 =
					ENDIF
			ENDSELECT
			PRINTFORM %表示文, 14, LEFT%|

			;生理周期可視化
			SIF FLAG:1007
				CALL PRINT_CYCLE_翌日(キャラ登録番号)

			SIF CFLAG:(キャラ登録番号):出産経過日 > 0
				PRINTFORM 育児中
			RESETCOLOR
			SIF GETBIT(CFLAG:(キャラ登録番号):既成事実,2)
				PRINTFORM 恋人同士
			;弱み
			IF CFLAG:(キャラ登録番号):弱み握り && CFLAG:(キャラ登録番号):弱み握られ
				PRINTFORM %CALLNAME:MASTER%と互いの弱みを握りあっている
			ELSEIF CFLAG:(キャラ登録番号):弱み握り
				PRINTFORM %CALLNAME:MASTER%の弱みを握っている
			;SIF GETBIT(CFLAG:(キャラ登録番号):弱み,0)
			;	PRINTFORM ぱんつを没収された
			;SIF GETBIT(CFLAG:(キャラ登録番号):弱み,1)
			;	PRINTFORM 情事を見られた
			ELSEIF CFLAG:(キャラ登録番号):弱み握られ
				PRINTFORM %CALLNAME:MASTER%にオナニー現場を目撃されたことがある
			ENDIF
	ENDSELECT
	PRINTL
NEXT

@ShowListFooter(リストページ番号, 最大リストページ番号)
#DIM リストページ番号
#DIM 最大リストページ番号

IF FLAG:能力表記
	PRINTBUTTONLC @"[1100] - 前のページ", 前のページ
	PRINTBUTTONLC @"[1000] - やめる", やめる
	PRINTBUTTONLC @"[1200] - 次のページ", 次のページ
	PRINTL
	PRINTBUTTONLC @"[1001] - 前のキャラ", 前のキャラ
	PRINTFORMLC リスト {リストページ番号}/{最大リストページ番号}
	PRINTBUTTONLC @"[1002] - 次のキャラ", 次のキャラ

ELSE
	PRINTBUTTONLC @"[%前のページ%] - 前のページ", 前のページ
	PRINTBUTTONLC @"[%やめる%] - やめる", やめる
	PRINTBUTTONLC @"[%次のページ%] - 次のページ", 次のページ
	PRINTL
	PRINTBUTTONLC @"[%前のキャラ%] - 前のキャラ", 前のキャラ
	PRINTFORMLC リスト {リストページ番号}/{最大リストページ番号}
	PRINTBUTTONLC @"[%次のキャラ%] - 次のキャラ", 次のキャラ
ENDIF

@DrawAllChara(キャラリスト, 最大リストキャラ番号)
#DIM REF キャラリスト
#DIM REF 最大リストキャラ番号
#DIM キャラリスト番号
#DIM 入力値

WHILE 1
	;FOR文が条件を満たした時点で終了するので+1
	;一番最後のキャラが表示されないことへの対応
	FOR キャラリスト番号, 0, 最大リストキャラ番号 + 1
		PRINTFORMLC [{キャラリスト番号}] %CALLNAME:(キャラリスト:キャラリスト番号),15,LEFT%
	NEXT
	PRINTL
	DRAWLINE
	PRINTL [9000] リストに戻る
	PRINTL [1000] - やめる

	INPUT
	入力値 = RESULT
	SELECTCASE 入力値
		CASE 1000
			RETURN 帰る
		CASE 0 TO 最大リストキャラ番号, 9000
			RETURN 入力値
	ENDSELECT
WEND

;実際に能力のソートを行う
@SORT_能力(キャラリスト, ページ番号, 入力値, 最大リストキャラ番号)
#DIM REF キャラリスト
#DIM REF ページ番号
#DIM REF 最大リストキャラ番号
#DIM 入力値
#DIM 参照する能力
#DIM キャラ登録番号
#DIM リスト番号

入力値 -= 2000
参照する能力 = 入力値

;降順にする場合
IF ソート項目:入力値 == 0
	SELECTCASE 参照する能力
		;体力気力
		CASE 1 TO 2
			参照する能力 --
		;Ｃ感覚からＭ感覚まで
		CASE 11 TO 15
			参照する能力 -= 11
		;親密従順欲望技巧
		CASE 16 TO 19
			参照する能力 -= 7
		;性技
		CASE 21 TO 26
			参照する能力 += 29
		;刻印(時姦刻印以外)
		CASE 31 TO 34
			参照する能力 -= 31
		;刻印(時姦刻印)
		CASE 35
			参照する能力 = 5
		;好感度
		CASE 41
			参照する能力 = 2
		;信頼度
		CASE 42
			参照する能力 = 4
		CASEELSE
			PRINTW 変数値が異常です(能力表示.ERB @SORT_能力)
	ENDSELECT

	;見る場所がBASEだったりABLだったりMARKだったりするのでページで分けて分かりやすく
	;0ページ目の場合(参照部分BASE)
	IF ページ番号 == 0
		FOR LOCAL:0,1,最大リストキャラ番号
			FOR LOCAL:1,LOCAL:0 +1,最大リストキャラ番号+1
				IF BASE:(キャラリスト:(LOCAL:0)):(参照する能力) < BASE:(キャラリスト:(LOCAL:1)):(参照する能力)
					LOCAL:2 = キャラリスト:(LOCAL:0)
					キャラリスト:(LOCAL:0) = キャラリスト:(LOCAL:1)
					キャラリスト:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;1ページ目の場合(参照部分ABL)
	ELSEIF ページ番号 == 1
		FOR LOCAL:0,1,最大リストキャラ番号
			FOR LOCAL:1,LOCAL:0 +1,最大リストキャラ番号+1
				IF ABL:(キャラリスト:(LOCAL:0)):(参照する能力) < ABL:(キャラリスト:(LOCAL:1)):(参照する能力)
					LOCAL:2 = キャラリスト:(LOCAL:0)
					キャラリスト:(LOCAL:0) = キャラリスト:(LOCAL:1)
					キャラリスト:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;2ページ目の場合(参照部分ABL)
	ELSEIF ページ番号 == 2
		FOR LOCAL:0,1,最大リストキャラ番号
			FOR LOCAL:1,LOCAL:0 +1,最大リストキャラ番号+1
				IF ABL:(キャラリスト:(LOCAL:0)):(参照する能力) < ABL:(キャラリスト:(LOCAL:1)):(参照する能力)
					LOCAL:2 = キャラリスト:(LOCAL:0)
					キャラリスト:(LOCAL:0) = キャラリスト:(LOCAL:1)
					キャラリスト:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;3ページ目の場合(参照部分MARK)
	ELSEIF ページ番号 == 3
		FOR LOCAL:0,1,最大リストキャラ番号
			FOR LOCAL:1,LOCAL:0 +1,最大リストキャラ番号+1
				IF MARK:(キャラリスト:(LOCAL:0)):(参照する能力) < MARK:(キャラリスト:(LOCAL:1)):(参照する能力)
					LOCAL:2 = キャラリスト:(LOCAL:0)
					キャラリスト:(LOCAL:0) = キャラリスト:(LOCAL:1)
					キャラリスト:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	;4ページ目の場合(参照部分CFLAG)
	ELSEIF ページ番号 == 4
		FOR LOCAL:0,1,最大リストキャラ番号
			FOR LOCAL:1,LOCAL:0 +1,最大リストキャラ番号+1
				IF CFLAG:(キャラリスト:(LOCAL:0)):(参照する能力) < CFLAG:(キャラリスト:(LOCAL:1)):(参照する能力)
					LOCAL:2 = キャラリスト:(LOCAL:0)
					キャラリスト:(LOCAL:0) = キャラリスト:(LOCAL:1)
					キャラリスト:(LOCAL:1) = LOCAL:2
				ENDIF
			NEXT
		NEXT
	ENDIF
;降順から昇順に切り替える場合
ELSEIF ソート項目:入力値 == 1
	FOR LOCAL:0,1,最大リストキャラ番号 / 2 + 1
		LOCAL:1 = キャラリスト:(LOCAL:0)
		キャラリスト:(LOCAL:0) = キャラリスト:(最大リストキャラ番号 - LOCAL:0 + 1)
		キャラリスト:(最大リストキャラ番号 - LOCAL:0 + 1) = LOCAL:1
	NEXT
ELSE
	リスト番号 = 0
	FOR キャラ登録番号, 0, CHARANUM
	;出禁キャラはリスト入りしない(キャラの実体は存在する)
	IF CFLAG:キャラ登録番号:出禁 == 1
		CONTINUE
	ELSE
		キャラリスト:リスト番号 = キャラ登録番号
		リスト番号++
	ENDIF
NEXT
ENDIF

A = ソート項目:入力値

VARSET ソート項目 , 0

ソート項目:入力値 = A + 1
SIF ソート項目:入力値 == 3
	ソート項目:入力値 = 0

;ShowStatusHeader内でどのように表示させるか
@SORT_能力_表示(能力)

#DIMS 能力
#DIM 順番

CALL SHOW_SORT_昇降順(能力)
順番 = RESULT

SELECTCASE 能力
	CASE "体力"
		IF 順番 == 1
			PRINTBUTTON @"▼体力", 2001
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲体力", 2001
		ELSE
			PRINTBUTTON @"  体力", 2001
		ENDIF
	CASE "気力"
		IF 順番 == 1
			PRINTBUTTON @"▼気力", 2002
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲気力", 2002
		ELSE
			PRINTBUTTON @"  気力", 2002
		ENDIF
	CASE "C感"
		IF 順番 == 1
			PRINTBUTTON @" ▼C感", 2011
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲C感", 2011
		ELSE
			PRINTBUTTON @"   C感", 2011
		ENDIF
	CASE "V感"
		IF 順番 == 1
			PRINTBUTTON @" ▼V感", 2012
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲V感", 2012
		ELSE
			PRINTBUTTON @"   V感", 2012
		ENDIF
	CASE "A感"
		IF 順番 == 1
			PRINTBUTTON @" ▼A感", 2013
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲A感", 2013
		ELSE
			PRINTBUTTON @"   A感", 2013
		ENDIF
	CASE "B感"
		IF 順番 == 1
			PRINTBUTTON @" ▼B感", 2014
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲B感", 2014
		ELSE
			PRINTBUTTON @"   B感", 2014
		ENDIF
	CASE "M感"
		IF 順番 == 1
			PRINTBUTTON @" ▼M感", 2015
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲M感", 2015
		ELSE
			PRINTBUTTON @"   M感", 2015
		ENDIF
	CASE "親密"
		IF 順番 == 1
			PRINTBUTTON @"▼親密", 2016
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲親密", 2016
		ELSE
			PRINTBUTTON @"  親密", 2016
		ENDIF
	CASE "従順"
		IF 順番 == 1
			PRINTBUTTON @"▼従順", 2017
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲従順", 2017
		ELSE
			PRINTBUTTON @"  従順", 2017
		ENDIF
	CASE "欲望"
		IF 順番 == 1
			PRINTBUTTON @"▼欲望", 2018
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲欲望", 2018
		ELSE
			PRINTBUTTON @"  欲望", 2018
		ENDIF
	CASE "技巧"
		IF 順番 == 1
			PRINTBUTTON @"▼技巧", 2019
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲技巧", 2019
		ELSE
			PRINTBUTTON @"  技巧", 2019
		ENDIF
	CASE "指"
		IF 順番 == 1
			PRINTBUTTON @" ▼指", 2021
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲指", 2021
		ELSE
			PRINTBUTTON @"   指", 2021
		ENDIF
	CASE "舌"
		IF 順番 == 1
			PRINTBUTTON @" ▼舌", 2022
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲舌", 2022
		ELSE
			PRINTBUTTON @"   舌", 2022
		ENDIF
	CASE "胸"
		IF 順番 == 1
			PRINTBUTTON @" ▼胸", 2023
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲胸", 2023
		ELSE
			PRINTBUTTON @"   胸", 2023
		ENDIF
	CASE "腰"
		IF 順番 == 1
			PRINTBUTTON @" ▼腰", 2024
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲腰", 2024
		ELSE
			PRINTBUTTON @"   腰", 2024
		ENDIF
	CASE "膣"
		IF 順番 == 1
			PRINTBUTTON @" ▼膣", 2025
		ELSEIF 順番 == 2
			PRINTBUTTON @" ▲膣", 2025
		ELSE
			PRINTBUTTON @"   膣", 2025
		ENDIF
	CASE "A"
		IF 順番 == 1
			PRINTBUTTON @"  ▼A", 2026
		ELSEIF 順番 == 2
			PRINTBUTTON @"  ▲A", 2026
		ELSE
			PRINTBUTTON @"    A", 2026
		ENDIF
	CASE "苦痛"
		IF 順番 == 1
			PRINTBUTTON @"▼苦痛", 2031
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲苦痛", 2031
		ELSE
			PRINTBUTTON @"  苦痛", 2031
		ENDIF
	CASE "快楽"
		IF 順番 == 1
			PRINTBUTTON @"▼快楽", 2032
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲快楽", 2032
		ELSE
			PRINTBUTTON @"  快楽", 2032
		ENDIF
	CASE "不埒"
		IF 順番 == 1
			PRINTBUTTON @"▼不埒", 2033
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲不埒", 2033
		ELSE
			PRINTBUTTON @"  不埒", 2033
		ENDIF
	CASE "反発"
		IF 順番 == 1
			PRINTBUTTON @"▼反発", 2034
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲反発", 2034
		ELSE
			PRINTBUTTON @"  反発", 2034
		ENDIF
	CASE "時姦"
		IF 順番 == 1
			PRINTBUTTON @"▼時姦", 2035
		ELSEIF 順番 == 2
			PRINTBUTTON @"▲時姦", 2035
		ELSE
			PRINTBUTTON @"  時姦", 2035
		ENDIF
	CASE "好感"
		IF 順番 == 1
			PRINTBUTTON @"  ▼好感", 2041
		ELSEIF 順番 == 2
			PRINTBUTTON @"  ▲好感", 2041
		ELSE
			PRINTBUTTON @"    好感", 2041
		ENDIF
	CASE "信頼"
		IF 順番 == 1
			PRINTBUTTON @"  ▼信頼", 2042
		ELSEIF 順番 == 2
			PRINTBUTTON @"  ▲信頼", 2042
		ELSE
			PRINTBUTTON @"    信頼", 2042
		ENDIF
ENDSELECT

@SHOW_SORT_昇降順(能力)
#DIMS 能力
#DIM 表示能力

SELECTCASE 能力
	CASE "体力"
		表示能力 = 1
	CASE "気力"
		表示能力 = 2
	CASE "C感"
		表示能力 = 11
	CASE "V感"
		表示能力 = 12
	CASE "A感"
		表示能力 = 13
	CASE "B感"
		表示能力 = 14
	CASE "M感"
		表示能力 = 15
	CASE "親密"
		表示能力 = 16
	CASE "従順"
		表示能力 = 17
	CASE "欲望"
		表示能力 = 18
	CASE "技巧"
		表示能力 = 19
	CASE "指"
		表示能力 = 21
	CASE "舌"
		表示能力 = 22
	CASE "胸"
		表示能力 = 23
	CASE "腰"
		表示能力 = 24
	CASE "膣"
		表示能力 = 25
	CASE "A"
		表示能力 = 26
	CASE "苦痛"
		表示能力 = 31
	CASE "快楽"
		表示能力 = 32
	CASE "不埒"
		表示能力 = 33
	CASE "反発"
		表示能力 = 34
	CASE "時姦"
		表示能力 = 35
	CASE "好感"
		表示能力 = 41
	CASE "信頼"
		表示能力 = 42
	CASEELSE
		PRINTW 異常な値を参照しています(能力表示.ERB @SHOW_SORT_昇降順)
ENDSELECT
RETURN ソート項目:表示能力
[SKIPEND]

[SKIPSTART]
キャラリスト表示関数
リスト上のキャラを一覧で表示しリストの切替も可能

OPはSTRCOUNT使用で各種の機能を切り替える
・「情報表示」
　このOPを適用する場合、番号クリックでキャラ情報が表示される
　適用しない場合、戻り値としてクリックしたキャラの登録番号を返す
・「情報固定」
　このOPを適用する場合、DISP_TYPE（一行表示での表示内容）が変更できない
・「条件変更」
　このOPを適用する場合、関数内でリストの種類を切り替えることができる
・「最終確認」
　「情報表示」を適用しないと意味が無い
　情報表示画面で表示中のキャラを候補として返すことができるようになる
　決定/キャンセルが可能

CHARA_LISTはプライベートで保持しているため
この関数からCALL/JUMPした関数にREFで渡すことは可能だが
この関数の呼び出し元の関数に対して渡すことは不可能である

一行表示の表示項目一覧、わかりやすいように数字を併記しておく
	 0"体力",  1"気力",
	 2"Ｃ感",  3"Ｖ感",  4"Ａ感",  5"Ｂ感",  6"Ｍ感",
	 7"親密",  8"従順",  9"欲望", 10"技巧",
	11"指技", 12"舌技", 13"胸技", 14"腰技", 15"膣技", 16"Ａ技",
	17"苦痛", 18"快楽", 19"不埒", 20"反発", 21"時姦",
	22"好感", 23"信頼", 24"欲求"
[SKIPEND]
@SHOW_CHARA_LIST(LIST_TYPE = "存在するキャラリスト", DISP_TYPE = "体力気力", OP)
#DIMS LIST_TYPE                     ;リストの種別
#DIMS DISP_TYPE                     ;一行表示での表示内容
#DIMS OP                            ;機能オプション
#DIM  GET_LIST = 1                  ;リスト更新フラグ
#DIM  L_ID                          ;リスト上の番号（ループカウンタ）、登録番号にあらず
#DIM  L_CLASS_ID                    ;リストのクラス内ID
#DIM  CHARA_LIST , キャラクタ数上限 ;リスト本体、登録番号にて記録
#DIM  CHARA_CNT                     ;リストに該当したキャラの数
#DIMS INPUT_STR                     ;入力内容の一時保持
#DIM  INPUT_INT                     ;入力内容をINT化したモノ
#DIM  NOW_GROUP = 1                 ;表示中のキャラグループ
#DIM  LAST_GROUP                    ;キャラグループ総数
#DIM  DISP_PAGE                     ;ページ数（情報表示の項目の切替）
#DIMS SORT_TYPE                     ;キャラリストのソートタイプ
;表示タイプの名称
{
#DIMS CONST DISP_NAME , 5 =
	"体力気力", "感度など", "性技", "刻印", "好感度"
}
;表示項目の名称
{
#DIMS CONST DISP_MEMO , 25 =
	"体力", "気力",
	"Ｃ感", "Ｖ感", "Ａ感", "Ｂ感", "Ｍ感",
	"親密", "従順", "欲望", "技巧",
	"指技", "舌技", "胸技", "腰技", "膣技", "Ａ技",
	"苦痛", "快楽", "不埒", "反発", "時姦",
	"好感", "信頼", "欲求"
}

;情報表示用
DISP_PAGE = FINDELEMENT(DISP_NAME, DISP_TYPE)

IF GET_LIST
	CALLF MAKE_CHARA_LIST(LIST_TYPE, L_CLASS_ID, CHARA_LIST, CHARA_CNT)
	GET_LIST = 0
	VARSET SORT_TYPE
ENDIF
DRAWLINE

;項目なし
IF CHARA_CNT <= 0
	PRINTFORML ＜該当なし＞　%LIST_TYPE%
	PRINTFORML
	DRAWLINE
	FOR LOCAL, 0, 20
		PRINTL
	NEXT
;項目あり
ELSE
	;現在のタイプの総グループ数を更新
	LAST_GROUP = 1 + (CHARA_CNT - 1) / 20
	PRINTFORML （該当{CHARA_CNT}名　{NOW_GROUP}/{LAST_GROUP}）　%LIST_TYPE%　　色付きのキャラは口上あり
	PRINTFORM
	CALL CHARA_BUTTON(-1, , DISP_TYPE, SORT_TYPE)
	DRAWLINE
	FOR L_ID, (NOW_GROUP - 1) * 20, NOW_GROUP * 20
		IF INRANGE(L_ID, 0, CHARA_CNT - 1)
			CALL CHARA_BUTTON(L_ID, CHARA_LIST:L_ID, DISP_TYPE, SORT_TYPE)
		ELSE
			PRINTL
		ENDIF
	NEXT
ENDIF
DRAWLINE

PRINTFORM
SIF CHARA_CNT > 0 && NOW_GROUP > 1
	PRINTBUTTON "[888] - 　前のキャラ　", "888"
PRINTFORML

IF STRCOUNT(OP, "「情報固定」")
	PRINTFORM
ELSE
	PRINTBUTTON @"[444] - 　　%DISP_NAME:((DISP_PAGE - 1 + 5) % 5), 8%　", "444"
ENDIF
IF STRCOUNT(OP, "「条件変更」")
	PRINTBUTTON "[555] - 　　条件変更　", "555"
ELSE
	PRINTFORM
ENDIF
IF STRCOUNT(OP, "「情報固定」")
	PRINTFORM
ELSE
	PRINTBUTTON @"[666] - 　　%DISP_NAME:((DISP_PAGE + 1 + 5) % 5), 8%　", "666"
ENDIF
PRINTFORML

PRINTFORM
SIF CHARA_CNT > 0 && NOW_GROUP < LAST_GROUP
	PRINTBUTTON "[222] - 　次のキャラ　", "222"
PRINTFORML
PRINTFORML
PRINTBUTTON "[999] - 　　　もどる　", "999"
PRINTFORML

VARSET INPUT_STR
VARSET INPUT_INT
DO
	INPUTS
	INPUT_STR '= RESULTS
	SIF !STRLENS(INPUT_STR)
		GOTO RETRY
	IF ISNUMERIC(INPUT_STR)
		INPUT_INT = TOINT(INPUT_STR)
		SELECTCASE INPUT_INT
		;先にシステム系を処理、222なら余裕あるっしょ（Kでは使えんわな）
		CASE 888
			SIF !(CHARA_CNT > 0 && NOW_GROUP > 1)
				GOTO RETRY
			NOW_GROUP --
			RESTART
		CASE 222
			SIF !(CHARA_CNT > 0 && NOW_GROUP < LAST_GROUP)
				GOTO RETRY
			NOW_GROUP ++
			RESTART
		CASE 444
			SIF STRCOUNT(OP, "「情報固定」")
				GOTO RETRY
			DISP_TYPE '= DISP_NAME:((DISP_PAGE - 1 + 5) % 5)
			RESTART
		CASE 555
			SIF !STRCOUNT(OP, "「条件変更」")
				GOTO RETRY
			CALL CHANGE_LIST(LIST_TYPE, OP)
			GET_LIST = 1
			NOW_GROUP = 1
			RESTART
		CASE 666
			SIF STRCOUNT(OP, "「情報固定」")
				GOTO RETRY
			DISP_TYPE '= DISP_NAME:((DISP_PAGE + 1 + 5) % 5)
			RESTART
		CASE 999
			;REFで配列作れば多キャラ選択も行けそう
			;受け渡しはともかくとして表示まわりがめんどいか
			GET_LIST = 1
			NOW_GROUP = 1
			RETURN 999
		CASEELSE
		;キャラが選択された時
			IF !INRANGE(INPUT_INT, MAX(0, (NOW_GROUP - 1) * 20), MIN(CHARA_CNT - 1, NOW_GROUP * 20))
				PRINTFORMW {INPUT_INT} 範囲外
				GOTO RETRY
			ELSEIF L_CLASS_ID == -1 && !CHECK_CHARA(CHARA_LIST:INPUT_INT, LIST_TYPE)
				PRINTFORMW {INPUT_INT} リストじゃない
				GOTO RETRY
			ELSEIF L_CLASS_ID > 0 && !GET_INT(CHARA_LIST:INPUT_INT, "キャラリスト", L_CLASS_ID, "判定")
				PRINTFORMW {INPUT_INT} リストに弾かれる
				GOTO RETRY
			ENDIF
			;ここだけDO-LOOPぬけます
			BREAK

			$RETRY
			REUSELASTLINE 無効な入力です
			CONTINUE
		ENDSELECT
	ELSE
	;STRで受け取った時、SORT処理なので処理が可能な場合は全てRESTART
	;妙な文字列を受け取った場合にはCONTINUE
	;DO-LOOPを脱出できるのはINTかつ、リスト上のキャラを選択した場合のみ
		SELECTCASE DISP_TYPE
		CASE "体力気力"
			FOR LOCAL:0, 0, 2
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%昇順" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%降順"
					SORT_TYPE '= INPUT_STR
					CALLF SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "感度など"
			FOR LOCAL:0, 2, 11
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%昇順" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%降順"
					SORT_TYPE '= INPUT_STR
					CALLF SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "性技"
			FOR LOCAL:0, 11, 17
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%昇順" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%降順"
					SORT_TYPE '= INPUT_STR
					CALLF SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "刻印"
			FOR LOCAL:0, 17, 22
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%昇順" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%降順"
					SORT_TYPE '= INPUT_STR
					CALLF SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASE "好感度"
			FOR LOCAL:0, 22, 25
				IF INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%昇順" || INPUT_STR == @"%DISP_MEMO:(LOCAL:0)%降順"
					SORT_TYPE '= INPUT_STR
					CALLF SORT_LIST(INPUT_STR, CHARA_LIST, CHARA_CNT)
					RESTART
				ENDIF
			NEXT
			GOTO RETRY
		CASEELSE
			THROW 異常なDISP_TYPE　%DISP_TYPE%
		ENDSELECT
	ENDIF
LOOP 1

IF STRCOUNT(OP, "「情報表示」")
	CALL LIST_CHARA_STATE(CHARA_LIST, INPUT_INT, CHARA_CNT, OP)
	SIF !RESULT
		RESTART
	NOW_GROUP = 1
	GET_LIST = 1
	;一応RESULTが正になるのは「最終確認」のみだが念のために判定
	SIF STRCOUNT(OP, "「最終確認」")
		RETURN RESULT
ELSE
	NOW_GROUP = 1
	GET_LIST = 1
	RETURN CHARA_LIST:INPUT_INT
ENDIF

;使用リストの切替関数
;てぬき
;現状では不要だけどOPを渡してあるので"SHOP表示"以外への切替も容易です
@CHANGE_LIST(LIST_TYPE, OP)
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS REF LIST_TYPE;現在使用中の表示内容
#DIMS OP           ;実行オプション
PRINTFORML リストの表示条件の変更（現在の設定：%LIST_TYPE%）
PRINTFORML
CALL CLASS_LIST("キャラリスト", "SHOP表示")
PRINTFORML
PRINTFORML [999] - やめる
DO
	INPUT
	SELECTCASE RESULT
	CASE 999
		RETURN
	CASEELSE
		IF !STRLENS(GET_STR(0, "キャラリスト", RESULT, "名前"))
		ELSEIF GET_INT(0, "キャラリスト", RESULT, "SHOP表示")
			LIST_TYPE '= GET_STR(0, "キャラリスト", RESULT, "名前")
			RETURN
		ENDIF
		REUSELASTLINE 無効な入力です
		CONTINUE
	ENDSELECT
LOOP 1

;単キャラ情報表示関数
;主に行動中のMASTERの情報表示用
@SINGLE_CHARA_STATE(C_ID, OP)
#DIM  C_ID ;登録番号
#DIMS OP   ;実行オプション
#DIM  PAGE ;表示中のページ
#DIMS CONST DISP_NAME , 4 = "衣装や能力", "経験と宝珠", "個人情報", "陥落条件"
CALL CHARA_STATE(C_ID, PAGE, OP)

PRINTBUTTON @"[4] - 　　　%DISP_NAME:((PAGE - 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号), 10%", 4
PRINTFORM
PRINTBUTTON @"[6] - 　　　%DISP_NAME:((PAGE + 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号), 10%", 6
IF STRCOUNT(OP, "「最終確認」")
	PRINTFORML
	PRINTBUTTON "[1] - このキャラで決定", 0
	PRINTFORM
	PRINTBUTTON "[0] - 　　　キャンセル", 0
	PRINTFORML
ELSE
	PRINTFORML
	PRINTBUTTON "[0] - 　　　　　もどる", 0
ENDIF
DO
	INPUT
	SELECTCASE RESULT
	CASE 1
		SIF STRCOUNT(OP, "「最終確認」")
			RETURN C_ID
		GOTO RETRY
	CASE 0
		RETURN 0
	;表示項目の変更
	CASE 4
		PAGE = (PAGE - 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号
	CASE 6
		PAGE = (PAGE + 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号
	;表示・非表示の切替
	CASE 160 TO 168
		TFLAG:RESULT = !TFLAG:RESULT
	CASE ＡＡ表示
		FLAG:AA表示 = !FLAG:AA表示
	CASEELSE
		$RETRY
		REUSELASTLINE 無効な入力です
		CONTINUE
	ENDSELECT
	BREAK
LOOP 1
RESTART

;調教中ターゲット用のリスト表示関数
;ふつうにTARGETを渡すとTARGET:0が重複してしまうのでそのままでは使えなかった
;リストにMASTERを含めるように改良
@TARGET_LIST_STATE
#DIM TARGET_LIST, キャラクタ数上限
#DIM TARGET_NUM
#DIM VIEW
VARSET TARGET_LIST
TARGET_NUM = FINDELEMENT(TARGET, 0) - 1
VIEW = TARGET
SIF TARGET_NUM <= 0
	RETURN
ARRAYCOPY "TARGET", "TARGET_LIST"
TARGET_LIST:0 = MASTER
VIEW = FINDELEMENT(TARGET_LIST, TARGET)
SIF VIEW == -1
	VIEW = 0
CALL LIST_CHARA_STATE(TARGET_LIST, VIEW, TARGET_NUM + 1, "「調教中」")

;リストがある時専用の情報表示関数
;CHARA_LISTにTARGETを渡せばTARGET順番で表示してくれる
@LIST_CHARA_STATE(CHARA_LIST, C_VIEW, CHARA_CNT, OP)
#DIM REF CHARA_LIST ;リスト本体、登録番号にて記録
#DIM     C_VIEW     ;表示中キャラのリスト上の位置
#DIM     CHARA_CNT  ;リストに該当したキャラの数
#DIMS    OP         ;実行オプション
#DIM     C_ID       ;登録番号
#DIM     PAGE       ;表示中のページ
#DIMS CONST DISP_NAME , 4 = "衣装や能力", "経験と宝珠", "個人情報", "陥落条件"
CALL CHARA_STATE(CHARA_LIST:C_VIEW, PAGE, OP)
DRAWLINE
PRINTFORM
PRINTBUTTON "[8] - 　　　前のキャラ", 8
PRINTFORML

PRINTBUTTON @"[4] - 　　　%DISP_NAME:((PAGE - 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号), 10%", 4
PRINTFORM
PRINTBUTTON @"[6] - 　　　%DISP_NAME:((PAGE + 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号), 10%", 6
PRINTFORML

PRINTFORM
PRINTBUTTON "[2] - 　　　次のキャラ", 2
PRINTFORML

IF STRCOUNT(OP, "「最終確認」")
	PRINTFORML
	PRINTBUTTON "[1] - このキャラで決定", 1
	PRINTFORM
	PRINTBUTTON "[0] - 　　　キャンセル", 0
	PRINTFORML
ELSE
	PRINTFORML
	PRINTBUTTON "[0] - 　　　　　もどる", 0
ENDIF
DO
	INPUT
	SELECTCASE RESULT
	CASE 1
		SIF STRCOUNT(OP, "「最終確認」")
			RETURN CHARA_LIST:C_VIEW
		GOTO RETRY
	CASE 0
		RETURN 0
	;キャラ移動
	CASE 8
		C_VIEW = (C_VIEW - 1 + CHARA_CNT) % CHARA_CNT
	CASE 2
		C_VIEW = (C_VIEW + 1 + CHARA_CNT) % CHARA_CNT
	;表示項目の変更
	CASE 4
		PAGE = (PAGE - 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号
	CASE 6
		PAGE = (PAGE + 1 + 詳細能力表示最大ページ番号) % 詳細能力表示最大ページ番号
	;表示・非表示の切替
	CASE 160 TO 168
		TFLAG:RESULT = !TFLAG:RESULT
	CASE ＡＡ表示
		FLAG:AA表示 = !FLAG:AA表示
	CASEELSE
		$RETRY
		REUSELASTLINE 無効な入力です
		CONTINUE
	ENDSELECT
	BREAK
LOOP 1
RESTART

;基礎情報表示関数
;@CHARA_STATEから共通要素を抜き出しただけ（長ったらしいので）
;BASE系と劣情を基礎情報に含ませる
@BASIC_STATE(C_ID, OP)
#DIM C_ID
#DIMS OP
DRAWLINEFORM ━
PRINTFORM ■%NAME:C_ID%(好感度:
CALL PRINT_RANK(CFLAG:C_ID:好感度, "MAX_50000")
PRINTFORM  {CFLAG:C_ID:好感度} 信頼度:
CALL PRINT_RANK(CFLAG:C_ID:信頼度, "MAX_20000")
PRINTFORM  {CFLAG:C_ID:信頼度})
;MASTERならば所持金を記載
IF C_ID == MASTER
	PRINTFORM (%"所持金:\\" + TOSTR(MONEY,"#,###")%)
	PRINTFORM  (所持カリスマ:{MONEY:2}CM)
	PRINTFORM  (所持守札:{ITEM:131}枚)
ENDIF
IF FLAG:生理周期可視化 && TALENT:C_ID:性別 != 2
	IF STRCOUNT(OP, "「調教中」")
		CALL CYCLE_PRINT(C_ID)
;モブ物色中判定
	ELSEIF SELECTCOM == 444
		CALL CYCLE_PRINT(C_ID)
	ELSE
		CALL CYCLE_PRINT翌日(C_ID)
	ENDIF
ENDIF
SIF C_ID != MASTER && FLAG:生理周期可視化
	SETCOLOR C_AQUA
IF CFLAG:C_ID:生解禁 == 2
	PRINT 危険日生Ｈ解禁
ELSEIF CFLAG:C_ID:生解禁 == 1
	PRINT 生Ｈ解禁
ELSEIF GETBIT(CFLAG:C_ID:既成事実, 1)
	PRINT 合意取得
ENDIF
RESETCOLOR
;ここだけBASE基本表示で独立させてもいいかもって感じに使い勝手良さそう
PRINTL
CALL BASE_BAR(C_ID, "体力", 28, "緑")
PRINTFORM
CALL BASE_BAR(C_ID, "気力", 28, "青", "「改行」")
IF BASE:C_ID:酒気
	CALL BASE_BAR(C_ID, "酒気", 28, "赤")
ELSE
	PRINTFORM %"　" * 24%
ENDIF
PRINTFORM
SIF C_ID == MASTER
	CALL BASE_BAR(C_ID, "TSP", 28, "水色")
PRINTFORML

IF NOTICE_LUST(C_ID)
	;記述が整理できるという理由で微妙に閾値変更
	SELECTCASE CFLAG:C_ID:溜まってる度
	CASE IS >= 665
		SETCOLOR C_RED
	CASE IS >= 332
		SETCOLOR C_YELLOW
	ENDSELECT
	PRINTFORMD 欲求不満度：
	PRINTFORM {CFLAG:C_ID:溜まってる度 / 10}
	PRINTFORMDL ％
	RESETCOLOR
ELSE
	PRINTFORML
ENDIF

;キャラ情報表示関数
;登録番号とページ番号、オプションを指定して情報を表示する
@CHARA_STATE(C_ID, PAGE, OP)
#DIM  C_ID
#DIM  PAGE
#DIMS OP
CALL BASIC_STATE(C_ID, OP)
SELECTCASE PAGE
CASE 0
	CALL SHOW_SIZE(C_ID)
	IF !FLAG:画像表示
		PRINTL [99] ＡＡ表示
	ELSE
		PRINTL [99] 画像表示
	ENDIF
	IF FLAG:AA表示 && !FLAG:画像表示
		CALL PRINT_AA(C_ID)
	ELSEIF FLAG:AA表示 && FLAG:画像表示
		CALL PRINT_STATE_IMAGE(C_ID)
	ENDIF

	CALL PRINT_STATE_CLOTH(C_ID)

	;道具というかアイテムだけど他が2文字だしねぇ
	IF C_ID == MASTER
		PRINT □
		CALL PRINTBUTTON_EX("道具",167, TFLAG:167)
		PRINTL  □---------------------------------------------------------------------------
		SIF !TFLAG:道具表示
			CALL LIST_ITEM("全て")
	ENDIF
	;CALL PRINT_STATE_ABL(C_ID)
	CALL PRINT_STATE_TALENT(C_ID)
	PRINTL
	CALL SHOW_ABILITY(C_ID)
	PRINTL
	;IF C_ID != MASTER
	;	PRINTL
	;	PRINT □
	;	CALL PRINTBUTTON_EX("刻印",166, TFLAG:166)
	;	PRINTL  □---------------------------------------------------------------------------
	;	CALL PRINT_刻印(C_ID)
	;ENDIF
CASE 1
	PRINTL
	CALL PRINT_STATE_EXP(C_ID)
	PRINTL
	;現状マスターは妊娠しないはずだが将来の機能拡張を考えるとこれでいいのか？
	SIF !(C_ID == MASTER) && (TALENT:C_ID:妊娠 || CFLAG:C_ID:子供人数 > 0)
		CALL 妊娠関連(C_ID)
	IF STRCOUNT(OP, "「調教中」")
		CALL PRINT_STATE_EX(C_ID)
	ELSEIF !(C_ID == MASTER)
		CALL PRINT_STATE_JUEL(C_ID)
	ENDIF
	PRINTL
	IF C_ID == MASTER
		CALL 予定
	ELSE
		CALL パンツ収集状況(C_ID)
	ENDIF
CASE 2
	CALL PRINT_STATE_PERSONAL(C_ID)
	CALL PRINT_STATE_MUSIC(C_ID)
	CALL 肉体情報(C_ID)
	CALL SHOW_RELATION(C_ID)
CASE 3
	CALL 陥落条件表示(C_ID)
	CALL 浮気把握状況(C_ID)
CASEELSE
	THROW 異常なPAGE {PAGE}
ENDSELECT

;刻印と能力を一括して表示する
;縦幅を圧縮したい
@SHOW_ABILITY(C_ID)
#DIM  C_ID
{
#DIMS CONST DISP_NAME , 42 =
	"苦痛",     "親密",     "教養", "Ｃ感覚", "指技術", "マゾっ気", "自慰中毒",
	"快楽",     "従順", "話術技能", "Ｖ感覚", "膣技術", "サドっ気", "精液中毒",
	"不埒",     "欲望", "戦闘能力", "Ａ感覚", "Ａ技術", "レズっ気", "レズ中毒",
	"反発",     "技巧", "清掃技能", "Ｂ感覚", "胸技術", "ホモっ気", "ゲイ中毒",
	"履歴", "奉仕精神", "料理技能", "Ｍ感覚", "舌技術",         "", "膣射中毒",
	"時姦",   "露出癖", "音楽技能",       "", "腰技術",         "", "肛射中毒",
}
PRINT □
CALL PRINTBUTTON_EX("能力", 162, TFLAG:162)
PRINTL  □---------------------------------------------------------------------------
SIF TFLAG:能力表示
	RETURN

FOR LOCAL, 0, 42
	CALL PRINT_ABILITY(C_ID, DISP_NAME:LOCAL, LOCAL)
	SIF LOCAL % 7 == 6
		PRINTFORML
NEXT

;↑専用の表示関数
@PRINT_ABILITY(C_ID, DISP_NAME, VIEW)
#DIM  C_ID
#DIMS DISP_NAME
#DIM  VIEW
{
#DIM CONST DISP_ID , 42 =
	0,  9, 43, 0, 50, 15, 30,
	1, 10, 41, 1, 54, 16, 31,
	2, 11, 42, 2, 55, 17, 32,
	3, 12, 40, 3, 52, 18, 33,
	4, 13, 44, 4, 51,  0, 34,
	5, 14, 45, 0, 53,  0, 35,
}
PRINTFORM
SELECTCASE DISP_NAME
CASE ""
	$SHOW_BLANK
	PRINTFORM
CASE "苦痛", "快楽", "不埒", "反発", "履歴", "時姦"
	IF C_ID == MASTER
		PRINTFORM %"　" * 6%
	ELSEIF GROUPMATCH(DISP_NAME, "反発", "履歴")
		PRINTFORM %DISP_NAME, 4%：
		CALL COLOR_STAMP(MARK:C_ID:(DISP_ID:VIEW), 3, "×", C_RED)
	ELSE
		PRINTFORM %DISP_NAME, 4%：
		CALL COLOR_STAMP(MARK:C_ID:(DISP_ID:VIEW), 3, "★", 0xFFFF00)
	ENDIF
{
CASE
	"指技術", "膣技術", "Ａ技術", "胸技術", "舌技術", "腰技術",
	"清掃技能", "話術技能", "戦闘能力",     "教養", "料理技能", "音楽技能"
}
	PRINTFORM %DISP_NAME, 8%：
	CALL PRINT_RANK(ABL:C_ID:(DISP_ID:VIEW), "MAX_6")
	PRINTFORM  {ABL:C_ID:(DISP_ID:VIEW), 3}
CASEELSE
	SIF GROUPMATCH(DISP_NAME, "レズっ気", "レズ中毒") && !GETBIT(TALENT:C_ID:2, 0)
		GOTO SHOW_BLANK
	SIF GROUPMATCH(DISP_NAME, "ホモっ気", "ゲイ中毒") && GETBIT(TALENT:C_ID:2, 0)
		GOTO SHOW_BLANK
	PRINTFORM %DISP_NAME, 8%：
	CALL PRINT_RANK(ABL:C_ID:(DISP_ID:VIEW), "MAX_99")
	PRINTFORM  {ABL:C_ID:(DISP_ID:VIEW), 3}
ENDSELECT

;ソート用ボタン作成関数
;無造作に扱えるが
;同一リスト内のB_NAMEは横幅を揃えたほうがみばえがよろしい
@MAKE_SORT_BUTTON(SORT_TYPE, B_NAME)
#DIMS SORT_TYPE ;現在のソートタイプ
#DIMS B_NAME    ;基本のボタン名
IF SORT_TYPE == @"%B_NAME%降順"
	PRINTBUTTON @"▼%B_NAME%", @"%B_NAME%昇順"
ELSEIF SORT_TYPE == @"%B_NAME%昇順"
	PRINTBUTTON @"▲%B_NAME%", @"%B_NAME%降順"
ELSE
	PRINTBUTTON @"　%B_NAME%", @"%B_NAME%降順"
ENDIF

;一行情報表示関数
;キャラの情報を一行で表示しつつボタンとして扱う
;元々は@ShowStatusBodyと@ShowStatusHeaderあたり
;ラベル（ボタンとしての番号）と登録番号を別々に指定する必要がある
@CHARA_BUTTON(LABEL, C_ID, DISP_TYPE = "体力気力", SORT_TYPE)
#DIM  LABEL
#DIM  C_ID
#DIMS DISP_TYPE
#DIMS SORT_TYPE
#DIMS 表示文
#DIM  表示ステータス番号
#DIM  CONST バー長さ = 10
;LABELが負数はありえないので表示内容のアナウンスに流用してます
IF LABEL >= 0
	SIF CFLAG:C_ID:口上実装状況
		SETCOLOR 103,228,126
	PRINTFORM [{LABEL, 3}] %CALLNAME:C_ID, 14, LEFT%
	RESETCOLOR
ENDIF
SELECTCASE DISP_TYPE
CASE "体力気力"
	IF LABEL < 0
		PRINTFORM %"　" * 9%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "体力")
		PRINTFORM %"　" * 9%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "気力")
	ELSE
		CALL BASE_BAR(C_ID, "体力", 10, "緑", "「種類表記無し」")
		CALL BASE_BAR(C_ID, "気力", 10, "青", "「種類表記無し」")
	ENDIF
	PRINTFORML
CASE "感度など"
	IF LABEL < 0
		PRINTFORM %"　" * 4%能力%"　" * 4%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "Ｃ感")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "Ｖ感")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "Ａ感")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "Ｂ感")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "Ｍ感")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "親密")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "従順")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "欲望")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "技巧")
	ELSE
		FOR 表示ステータス番号, 0, 13
			SIF ABLNAME:表示ステータス番号 == ""
				CONTINUE
			CALL PRINT_RANK(ABL:C_ID:表示ステータス番号, "MAX_99")
			PRINTFORM {ABL:C_ID:表示ステータス番号, 4}|
		NEXT
	ENDIF
	PRINTFORML

CASE "性技"
	IF LABEL < 0
		PRINTFORM %"　" * 4%性技%"　" * 4%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "指技")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "舌技")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "胸技")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "腰技")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "膣技")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "Ａ技")
	ELSE
		;超適当につき修正の余地あり
		FOR 表示ステータス番号, 50, 56
			SIF ABLNAME:表示ステータス番号 == ""
				CONTINUE
			CALL PRINT_RANK(ABL:C_ID:表示ステータス番号, "MAX_6")
			PRINTFORM {ABL:C_ID:表示ステータス番号, 4}|
		NEXT
	ENDIF
	PRINTFORML

CASE "刻印"
	IF LABEL < 0
		PRINTFORM %"　" * 4%刻印%"　" * 4%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "苦痛")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "快楽")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "不埒")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "反発")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "時姦")
	ELSE
		;超適当につき修正の余地あり
		FOR 表示ステータス番号, 0, 6
			IF MARKNAME:表示ステータス番号 == ""
				CONTINUE
			ENDIF
			;反発刻印履歴は表示しないように
			SIF 表示ステータス番号 == 4
				CONTINUE
			IF 表示ステータス番号 == 3
				CALL COLOR_STAMP(MARK:C_ID:表示ステータス番号, 3, "×", C_RED)
			ELSE
				CALL COLOR_STAMP(MARK:C_ID:表示ステータス番号, 3, "★", 0xFFFF00)
			ENDIF
			PRINTFORM |
		NEXT
	ENDIF
	PRINTFORML

CASE "好感度"
	IF LABEL < 0
		PRINTFORM %"　" * 11%
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "好感")
		PRINT |
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "信頼")
		PRINT |
		SIF TALENT:MASTER:劣情察知
		CALL MAKE_SORT_BUTTON(SORT_TYPE, "欲求")
	ELSE
		;好感度
		CALL PRINT_RANK(CFLAG:C_ID:好感度, "MAX_50000")
		PRINTFORM {CFLAG:C_ID:好感度, 6}|

		;信頼度
		CALL PRINT_RANK(CFLAG:C_ID:信頼度, "MAX_20000")
		PRINTFORM {CFLAG:C_ID:信頼度, 6}|

		;欲求
		IF TALENT:MASTER:劣情察知
			SELECTCASE CFLAG:C_ID:溜まってる度
			CASE IS >= 665
				SETCOLOR C_RED
			CASE IS >= 332
				SETCOLOR C_YELLOW
			ENDSELECT
			PRINTFORM {CFLAG:C_ID:溜まってる度 / 10, 4}
			RESETCOLOR
			PRINT ％|
		ENDIF
		;陥落
		IF TALENT:C_ID:恋人
			SETCOLOR C_RED
			表示文 = 恋人
		ELSEIF TALENT:C_ID:恋慕 == 1
			SETCOLOR 0xEE60EE
			表示文 = 恋慕
		ELSEIF TALENT:C_ID:愛欲 == 1
			SETCOLOR 0x2E8B57
			表示文 = 愛欲
		ELSEIF TALENT:C_ID:セフレ == 2
			SETCOLOR 0xFF6347
			表示文 = 愛人
		ELSEIF TALENT:C_ID:思慕 == 1
			SETCOLOR 0xFFFF00
			表示文 = 思慕
		ELSEIF TALENT:C_ID:セフレ == 1
			SETCOLOR 0x7CFC00
			表示文 = セフレ
		ELSE
			表示文 =
		ENDIF
		PRINTFORM %表示文, 6, LEFT%
		RESETCOLOR
		PRINT |

		;既成事実
		SELECTCASE CFLAG:(C_ID):生解禁
			CASE 2
				表示文 = 危険日生Ｈ解禁
			CASE 1
				表示文 = 生Ｈ解禁
			CASE 0
				IF GETBIT(CFLAG:(C_ID):既成事実,1)
					表示文 = 合意取得
				ELSE
					表示文 =
				ENDIF
		ENDSELECT
		PRINTFORM %表示文, 14, LEFT%|

		;生理周期可視化
		SIF NOTICE_CYCLE(C_ID)
			CALL PRINT_CYCLE_翌日(C_ID)
		SIF CFLAG:(C_ID):出産経過日 > 0
			PRINTFORM 育児中

		RESETCOLOR
		SIF GETBIT(CFLAG:(C_ID):既成事実,2)
			PRINTFORM 恋人同士
		;弱み
		IF CFLAG:(C_ID):弱み握り && CFLAG:(C_ID):弱み握られ
			PRINTFORM %CALLNAME:MASTER%と互いの弱みを握りあっている
		ELSEIF CFLAG:(C_ID):弱み握り
			PRINTFORM %CALLNAME:MASTER%の弱みを握っている
		;SIF GETBIT(CFLAG:(C_ID):弱み,0)
		;	PRINTFORM ぱんつを没収された
		;SIF GETBIT(CFLAG:(C_ID):弱み,1)
		;	PRINTFORM 情事を見られた
		ELSEIF CFLAG:(C_ID):弱み握られ
			PRINTFORM %CALLNAME:MASTER%にオナニー現場を目撃されたことがある
		ENDIF
	ENDIF
	PRINTFORML
CASEELSE
	THROW 異常なDISP_TYPE　%DISP_TYPE%
ENDSELECT

@陥落条件表示(ARG)
#DIM 自覚絶頂
自覚絶頂 = EXP:ARG:絶頂経験 - EXP:ARG:無自覚絶頂経験
DRAWLINE
CALL COLORMESSAGE(@"□恋慕取得条件",C_AQUA,1)
PRINTFORML
IF TALENT:ARG:恋慕
	PRINT
	CALL COLORMESSAGE(@"　取得済み",C_YELLOW,1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_恋慕,@"好感度{REQUIRED_FAVOR_恋慕}以上")
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:4 >= REQUIRED_TRUST_恋慕,@"信頼度{REQUIRED_TRUST_恋慕}以上")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:親密 >= REQUIRED_AFFECTION_恋慕,@"親密{REQUIRED_AFFECTION_恋慕}以上")
	PRINT
	CALL COND_COLORMESSAGE(!MARK:ARG:反発刻印,@"反発刻印がない")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□思慕取得条件",C_AQUA,1)
PRINTFORML
IF TALENT:ARG:恋慕 || TALENT:ARG:思慕
	PRINT
	CALL COLORMESSAGE(@"　取得済み",C_YELLOW,1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_思慕,@"好感度{REQUIRED_FAVOR_思慕}以上")
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:4 >= REQUIRED_TRUST_思慕,@"信頼度{REQUIRED_TRUST_思慕}以上")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:親密 >= REQUIRED_AFFECTION_思慕,@"親密{REQUIRED_AFFECTION_思慕}以上")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□愛欲取得条件",C_AQUA,1)
PRINTFORML
IF TALENT:ARG:恋慕
	PRINT
	CALL COLORMESSAGE(@"取得不可",C_RED,1)
ELSEIF TALENT:ARG:愛欲
	PRINT
	CALL COLORMESSAGE(@"取得済み",C_YELLOW,1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_愛欲,@"好感度{REQUIRED_FAVOR_愛欲}以上")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:欲望 >= REQUIRED_DESIRE_愛欲,@"欲望{REQUIRED_DESIRE_愛欲}以上")
	PRINT
	CALL COND_COLORMESSAGE(自覚絶頂 >= REQUIRED_ECSTACY_愛欲,@"意識のある状態で{REQUIRED_ECSTACY_愛欲}以上絶頂")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:欲望 > ABL:ARG:親密,"欲望が親密より高い")
ENDIF
DRAWLINE
CALL COLORMESSAGE(@"□セフレ取得条件",C_AQUA,1)
PRINTFORML
IF TALENT:ARG:恋慕
	PRINT
	CALL COLORMESSAGE(@"取得不可",C_RED,1)
ELSEIF TALENT:ARG:セフレ
	PRINT
	CALL COLORMESSAGE(@"取得済み",C_YELLOW,1)
ELSE
	PRINT
	CALL COND_COLORMESSAGE(CFLAG:ARG:2 >= REQUIRED_FAVOR_セフレ,@"好感度{REQUIRED_FAVOR_セフレ}以上")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:欲望 >= REQUIRED_DESIRE_セフレ,@"欲望{REQUIRED_DESIRE_セフレ}以上")
	PRINT
	CALL COND_COLORMESSAGE(自覚絶頂 >= REQUIRED_ECSTACY_セフレ,@"意識のある状態で{REQUIRED_ECSTACY_セフレ}以上絶頂")
	PRINT
	CALL COND_COLORMESSAGE(ABL:ARG:欲望 >= ABL:ARG:親密,"欲望が親密以上")
ENDIF
PRINTFORML


code:
2018/10/28

eraTWにMUSICROOMを実装する2（プロト版）

こまめにお出ししてみ？と言われていた気がするので

※音は出ません

◆対象環境
eraTW4.632のバニラ環境
今回はプロト版なのでパッチの競合などは調べてないです
MUSICROOMの1に上書きするのはおｋなはず

◆内容
小数点作品楽曲の仮実装
ガワだけ取り繕ったハリボテ状態です
仕様的には作品ごとに取得方法（≒コマンド）を規定しておくのがやりやすいと思った
つーか、数百単位で楽曲が存在するのでいちいち個別に設定するのヤダ
相変わらず取得処理関連は手付かず

たぶんTSTRとTFLAGは一個ずつ使用することになると思われ

◆つくったひと：morph
・morphのつくった以外のところの扱いはつくったひとに聞いて下さい
・配布・改造・流用、好きにしてください
・でも、その際のサポートは自分でやってね

※　era＝R-18全般の常識的な取り扱いとして例えば以下のような事はやめて下さい

・未成年者がいっぱいいる場所で広める
・R-18以外のモノをメインに扱ってる場所で取り上げる


code:
2018/12/19

eraTW4.640proto用影狼お料理修正パッチ

主に影狼ちゃん口上の料理判定が古かったので修正するパッチ

◆対象環境
[eraT0000071]eraTW4.640protoのバニラ環境

以下のパッチはマージしてあります
[eraT0000074]eraTW4.640proto用お野菜なんて嫌いパッチ

これ以外のパッチとの競合は不明

◆内容
・主に影狼口上の料理関係のメンテと加筆
　口上の実装後に以下のような経過があったらしくもろもろを修正
　１）本体更新による料理の種類の整理
　→IDのズレ
　２）FLAG:料理での管理からDISHNAMEでの管理への切り替え
　３）魚料理とカエル料理の実装
　→IDのズレ、元々は焼き魚が主食に入ってた、等
　→この2種類はFLAG:料理に数値が入らない
・影狼口上のバグ修正
　口上側で空腹時間処理を入れていたがために、com414の口上が表示されていなかったっぽいのを修正
・恋慕影狼助手で麺料理をつくった場合に"鶏卵/月見/"を付与するように変更
　クラピ口上を参考にしたTASTEの変更処理を追加
　間違ってみすちーに"鶏卵"を食べさせたりしないでね
・TASTEに"月見"を追加
　満月の日に団子をつくるか、恋慕影狼ちゃんを助手に麺料理をつくった場合に限定で付与されます
　影狼ちゃんで月見麺類を作る場合は
　日付に依存せずにいつでも作れるというメリットがある反面、勝手に"鶏卵/月見/"を追加しやがります
　"鶏卵"はキャラによってはNG食材になりますので気をつけましょう
　※口上依存処理なので、影狼ちゃんなりきりモードでは作れないよ
・EX_DISHNAMEに"月見"判定処理を追加
　月見うどん等と表示されます
・影狼の好きな味に"鶏卵/月見/"を追加
・一部のキャラの好きな味に"月見"を追加
　具体的には
　　影狼、魅魔、ルナ、ルナサ、レミリア、慧音、幽々子、夢月、幻月
　　鈴仙、てゐ、輝夜、永琳、レイセン、清蘭、鈴瑚、依姫、豊姫、サグメ
　・強度は全員LV1
　・食べた日が満月である場合、好きな味に関係なく全員の好評価値に数値が加算されます
　・食べたのが月人である場合は料理評価値に係数がつきます

・所持料理の味がわからないのは不便なのでMASTERの能力表示で見られるように
　味覚情報が表示されるページで情報閲覧可能になりました
・訪問販売イベントのバグ>>285修正

◆その他
・今回はライセンスのゆるい影狼ちゃんだけパッチにした
　早苗さんも作業自体はあらかた終わった

・musicroomは進捗なし
　ある程度構文は書いたが、1000曲あると取得順ランダム化処理が若干こわくて触れてない

◆つくったひと：morph
・morphのつくった以外のところの扱いはつくったひとに聞いて下さい
・配布・改造・流用、好きにしてください
・でも、その際のサポートは自分でやってね

※　era＝R-18全般の常識的な取り扱いとして例えば以下のような事はやめて下さい

・未成年者がいっぱいいる場所で広める
・R-18以外のモノをメインに扱ってる場所で取り上げる


code:
2018/12/16

eraTW4.640proto用お野菜なんて嫌いパッチ

許可をもらえたので
クラウンピース口上の野菜抜き料理処理を本体側に移植しました
holyさんありがとうございます

◆対象環境
[eraT0000071]eraTW4.640protoのバニラ環境

他パッチとの競合は未調査

◆内容
・クラウンピース口上の野菜抜き料理処理を本体側に移植
・敬意と感謝をこめてクラウンピースに好物Lv1ハンバーガーを追加
・料理評価判定で調理経過時間DISHSPOILが影響するように
　そういえば使ってなかったのに気づいた
　できたては好評価に係数、冷めると嫌評価に係数
・@MESSAGE_COM414に料理名で分岐を加筆
　おせち料理等に専用の地の文を追加しました
　思いついた料理に関しては埋めたが流石に全て網羅するのは無理だ
　あと、415だと表示されないのがもったいなかったので、切り出して414/415共通で表示出来るようになりました
・仕様変更に伴ってクラウンピース口上の料理関連分岐を修正
　細かな不具合をついでに修正
　・食事の地の文制御の判定が逆だったのを修正
　　ここはTASTEというかDISHNAMEで十分判定できるのでついでにGROUPMATCHでの判定に変更
　　変更したのはいいが、"モッツァレラチーズだけのサラダ"用の特殊な地の文が本体側に移動したせいで
　　GROUPMATCHなのに1項目対象の判定になってしまった
　・一緒に作ったときの野菜抜き分岐がたぶん表示されなかった
　　従来はTASTEの野菜を空文字列置換で消してたので判定できてなかった
　　仕様変更でTASTEに"野菜抜き/"がつくようになったので正しく動く
　　また、STRFINDでの野菜有無判定で野菜抜きまで引っかかるので"野菜/"で検索するように変更

◆その他
・スレで報告したが、影狼ちゃん、エレン、早苗さん、雛ちゃんの料理分岐が若干怪しい
　気が向いたらFLAG:20からDISHNAME準拠などに変更するパッチ出すかも

　よくよく見直したら雛ちゃんは「口上作者の意図として、日付だけで判定」してる可能性があり保留
　ライセンス的にゆるい影狼/早苗だけで料理修正パッチ出すかも

・musicroomは進捗なし
　ある程度構文は書いたが、1000曲あると取得順ランダム化処理が若干こわくて触れてない

◆つくったひと：morph
・morphのつくった以外のところの扱いはつくったひとに聞いて下さい
・配布・改造・流用、好きにしてください
・でも、その際のサポートは自分でやってね

※　era＝R-18全般の常識的な取り扱いとして例えば以下のような事はやめて下さい

・未成年者がいっぱいいる場所で広める
・R-18以外のモノをメインに扱ってる場所で取り上げる


code:
2020/02/13

eraTW4.735用おさかな交換パッチ

ほぼ1年ぶりにダウンロードしてニューゲームで遊んだ結果
うまい魚の調達依頼が序盤から発生する割に入手手段がなくて困ったので
潤美の固有コマンドとして「魚の交換」を実装しました
一日一回、普通の魚をうまい魚と交換してくれます

また、釣りや調合、戦闘と比較して採集技能の成長がかなり遅く感じたので取得経験値を盛りました
この他、気づいた不具合の修正を数点

パッチで落とし物系の依頼に手がかりの情報が追加されてかなり探しやすくなっていました
あと楽譜系のコレクション実装してくれた方もありがとうございます

依頼も口上もこの一年でだいぶ増えて賑やかになって楽しかった
お茶くみや掃除以外にかなりできることが増えた印象でとても良い

◆対象環境
[eraTx0485]eraTW4.735のバニラ環境

他パッチとの競合は未調査

◆内容
・MultipleEcバグ修正、かなり適当な対症療法で上手く動いてるかは不明

・潤美の固有コマンド「魚の交換」を実装
　一日一回、普通の魚をうまい魚と交換してくれる
　あくまでも交換なので普通の魚が必要
　交換レートは潤美の親密依存で変動する

　久しぶりにニューゲームで遊んだ結果
　うまい魚の入手難易度がかなり高い割に調達依頼が頻繁に発生して困ったので
　入手手段を確保しておこうと思った
　口調は適当である（変だと思ったら変えてね）

・採集技能の取得経験値増量
　久しぶりにニューゲームで遊んだ結果
　・（基本的には）調合の前提となるはずだが経験値取得の機会が少なく調合よりも成長しづらい
　・釣りよりも時間コストが重い割に取得経験値が少なく成長しづらい
　と感じたので取得経験値を盛った
　また、釣りと比較してお手伝いが発生しにくかったので多少発生しやすくした
　釣りの処理をそのまま流用するとゆかりんが親密0で手助けするようになるが
　それは変だなと感じたので調整はした

　経験値の加減がわからんです盛り過ぎかも

・味覚設定のバグ修正
　虹川三姉妹：助手効果がバグってたのを修正
　鬼人正邪：嫌いな味の設定がバグってたのを修正

・固有依頼の修正
　十六夜咲夜：依頼受託条件がちょっと適当すぎたので美鈴の仕事の時間に合わせて設定し直した
　四季映姫：10時ちょうどに受託できてしまう（受託した瞬間に小町が仕事に向かって仕事中に説教の手紙を渡せる）のはおかしいので修正

◆つくったひと：morph
・morphのつくった以外のところの扱いはつくったひとに聞いて下さい
・配布・改造・流用、好きにしてください
・でも、その際のサポートは自分でやってね

※　era＝R-18全般の常識的な取り扱いとして例えば以下のような事はやめて下さい

・未成年者がいっぱいいる場所で広める
・R-18以外のモノをメインに扱ってる場所で取り上げる


code:
eraTW用、輝夜口上

・使い方
そのままERBフォルダを上書きすればＯＫです。
以下は個人口上フォルダ内りどめと同文。

■この口上について
・恋人になると旦那さま呼びで妻気取りな輝夜様。
・本気になると結構ヤンデレ感。
・恋人になるとえっち方向。性格が変わる。
（素質的には[生意気][男嫌い]を失い、[素直][献身的]を得る仕組み）
・欲求不満度85％、媚薬、発情で反応がえっちに。
○大体の雰囲気
　陥落無し→冷たい
　思慕→好意的
　恋慕→愛してる（恋人になってないだけで好感は近しい。
　恋人→旦那さま
　セフレ・愛欲→一線引く
・恋人or恋慕＋欲望ＬＶ１５＋押し倒され満足時、好きにしてを選択すると発情するように（しゅきが溢れる
・恋人時、あるいは膣射中毒時、ゴムを使って中に出すと余計に欲求不満を溜め込む。

■方針
地文と汎用喘ぎが優秀なので、汎用喘ぎなどが影響しない部分を優先的に。
基本的に汎用喘ぎ前提の口上になっています。
押し倒されえっちがリバースっぽくて好きということもあり、わりとそちらも重視。
基本的に孕まない設定＋Ｖ敏感なので、前の穴での生えっちが好きな輝夜様。孕ませプレイにはちょっと違和感でるかも。
口上は長さよりもなるべくパターンを多めに。
今のところ女あなたには未対応。

■一言
鈴仙口上、美鈴口上の仕組みを一部そのまま流用させてもらっています（間接的に天子口上や霊夢口上etc...
相当色々なところから勉強させてもらいました。
本当に様々な口上作者様、並びに掲示板の方々、ありがとうございます。
問題点有れば……。

■更新履歴
21/1/28/4.722 v6
あなたが勃起している時の反応を色々追加。
行為後の口上を更にちょっと分岐。

20/6/26/4.750 v5改
奥ノ院解禁条件変更に伴い初対面口上分岐と修正。

20/5/26/4.750 v5
デート関係を中心に色々加筆。ちょっと嫉妬してくれたり。
ごっくん用の口上に加え、スパンキングや媚薬など、ＳＭ系にも少し対応。
陥落取得が表示されなかった問題修正（謎のENDIFで恋慕しか表示されなかった）。

20/5/23/4.740 v4改
口上色設定（お月様っぽく暗めの金
マスター追いかけ時にちょっと回数分岐。
添い寝起床の口上にちょっと加筆。

20/5/20/4.740 v4
フェラチオ、膣内射精、ゴム中出し、キス、交互挿入、押し倒され時の腰を動かすなどうふふを主に拡張。
欲求不満度３０％以上かつ体力気力がある程度残っていると、あなた主導のえっち終了時にも不満そうにするように（再度の押し倒されへの違和感解消
大体欲しいものは揃ってきた感がある。

20/5/18/4.740 v3改
アップデート対応。素質変化を選択制（やらなくても告白時に尋ねる）
恋人時両刀ではなく素直に変化。よく考えるとレズというわけでも……。
エッチモードの会話パターンをちょっと増加。口上内の細々した修正。
スカートめくり作成。

20/5/17/4.740 v3
媚薬or発情or欲求85％の状態で口上をえっちなものに変化（睡眠時や告白などは流石に影響無し
押し倒され分岐を精力や欲求不満度なんかで更に分岐。
押し倒され後の押し倒しなどにも口上対応。
恋人or恋慕＋欲望ＬＶ１０＋押し倒され満足時、好きにしてを選択すると発情するように。
告白（輝夜からの）を一応二回目対応。多分問題ないはず。
大分違和感はなくなった気がする……。
おはよう口上を増加。

20/5/15/4.740 v2
ある程度セクハラ実装、カウンター実装（ひねくれナズー口上をベース
カウンターは押し倒され時に使うものを中心に。
おねだりなんかはＶ挿入系（Ｖ敏感＋趣味
むらむらしてる場合なので基本的に素質なしでもえっち。
地の文との兼ね合いが気になったので行為後の口上を地の文に合わせて改善。
良くなったはず……。
一応セフレと愛欲にも行為後だけ仮対応。基本的に愛情は無い方向。
オート喘ぎが優秀過ぎて、カウンターだけ作れば良いのではなかろうか……。
発情顔差分のおかげで押し倒されが本当……（
20/5/14/4.740 v1
作成

■予定

△絶頂の口上はパターンを作りたい。（あなたの射精だけ対応させればよさそうかも）
朝起きたら射精寸前みたいなのをちょっと作りたいけれど無理そう。
処女喪失くらいは作った方がいいかなぁ。
△押し倒し欲情分岐作りたい。
○告白はどうだろう。カウント必要だろうか……。
○セクハラ愛撫などはとりあえず実装しておきたい……

path: 原版+前人整合等各种readme/パッチ/eraTW4772輝夜口上V6/輝夜様口上れどめ.txt


code:
eraTW_Ver4752�p_�ƒ�؉��ȂǕ\������

�K�����@
eraTW Ver4.752�ɏ㏑��

�ύX�_
�E�̏W�Ŕ������ɏ�������\������悤��
�E�ԉ��Ŗ�؂̏�������\������悤��

�ƒ�؉��ύX�_
�E���Ԓ�~���ł��؉��̏�Ԃ��m�F�ł���悤��
	���ƒ�؉�.ERB��14�s�ڂ̎��Ԓ�~�������217�A261�s�ڂ�����̏������폜����Β�~���ł�TPS����ō�Ɖ\�ɂ͂��Ă���
�E��Ƃ��Ȃ������ꍇ�͎��Ԍo�߂��Ȃ��悤�ɕύX
�E�c��A����ۂ̑I�����ɕc�ƍ앨�̏�������\������悤��
�E�앨�������Ă��Ȃ���Ԃł͎��n�ł��Ȃ��悤�ɏC��
�E

path: 原版+前人整合等各种readme/パッチ/eraTW_Ver4752用_家庭菜園など表示調整/eraTW_Ver4752用_家庭菜園など表示調整.txt


code:
eraTW_Ver4753�p���낢��C��

�C�����e
�E�C�^�Y�����ɏo�|���ꂽ�̂ł��Ȃ��悤�ɏC��
�E�o��̑�O����⋌�n������œ����R�}���h�����s�ł����̂��ł��Ȃ��悤�ɏC��
�E�Ă̊Ԃ͉����@�\���Ȃ��Ă��A�v�[���ł��낮���g�p�\�ɕύX
	�V�����[�@�\�L��Ŏ��s�\�������̂Ɉ�a��������������
�EFLAG:�v�[��������bit�����֕ύX
	���̂����ȈՃv�[���ɐV�@�\�����邩��
�E���t���̓��΃_���[�W�̓������l����\������悤�ɏC��
�E�ԉ��ŏ������Ă����ؕ\���ʒu���C��
�E�؂�Ă���{�̎��ŋ��ȍ~�\������悤�ɏC��

path: 原版+前人整合等各种readme/パッチ/eraTW_Ver4753用いろいろ修正/eraTW_Ver4753用いろいろ修正.txt


code:
eraTW4.782用 口上テンプレ関数定義漏れ修正

口上テンプレの「物陰に誘う」コマンド口上で関数定義に漏れがあるため、
コマンド実行時に異常終了する問題を修正し、該当テンプレを利用している
ユキ口上および幻月口上の修正ファイルも同梱。
ユキ口上v1（eraTx1302）、幻月口上ver1.01（eraTx1295）を元にしています。

※幻月口上は1.01で当問題に対処済みですが、CALL文を削るよりは
通常テンプレに合わせておいた方がいいんじゃないかなと思ったので、
差し出がましいようですがパッチを作らせていただきました。
（というか>>317のエラー報告の時にテンプレに問題があることに気付ければ良かったのだが）

【修正内容】
改造とかしてみたい人のためのあれこれ/口上関連/口上テンプレ/M_KOJO_KX_日常系コマンド.ERB
　579行目～　@M_KOJO_MESSAGE_COM_KX_356_1 を挿入

ERB/口上・メッセージ関連/個人口上/ユキ/M_KOJO_K104_日常系コマンド.ERB
　997行目～　@M_KOJO_MESSAGE_COM_K104_356_1 を挿入

ERB/口上・メッセージ関連/個人口上/幻月/M_KOJO_K117_日常系コマンド.ERB
　1088行目　　CALL文を復活
　1091行目～　@M_KOJO_MESSAGE_COM_K117_356_1 を挿入

path: 原版+前人整合等各种readme/パッチ/eraTW_物陰に誘う口上修正/readme.txt


code:
�����Ɏ藎���������Ďː���������̃A�j�������\���ł����c
���̃p�b�`�ł����ƕ\�������悤�ɂȂ�܂�

�摜���H��җl�ɂ͑�ς����f�����������܂����B�\���󂲂����܂���

/*************************************************************************************/
�f�P�l��������җl�A���������������F�l�ATW�V���[�Y�Ɋւ��F�l�Ɋ��ӂ������܂��B

/*************************************************************************************/
�[�[�f�P�l��������җl���[�[

�f���炵���f�ނ��オ���Ă��̂ł������܎������܂���
�ӂ��Ȃ�/�����Ȃ��̔�}�����͖��m�F�ł����A�����悻�R�s�y�͈͓��Ȃ�ł��Ԃ񓮂��c�͂�

�ȉ��̃t�@�C�����㏑������̂ŕK�v�ȕ�/�s��S�z�ȕ��̓o�b�N�A�b�v����Ă�������
\ERB\�X�e�[�^�X�v�Z�֘A\SOURCE\SOURCE.ERB
\ERB\�X�e�[�^�X�\���֘A\ANIMATION.ERB
\resources\list.csv

/*************************************************************************************/
�X�V����

�y2021/08/12_eraTW_�`�����A�j���\���p�b�`3�z

1�ASOURCE.ERB�@�`���𒆏o����@PRINT_IMAGE_ANIMATION_������ ���Ăяo��������ǉ�

2�AANIMATION.ERB�@���ʂɕt��������������p�~���āA�A�ԉ摜�𐳂����w�肷��悤�ɕύX

3�A���\�[�X�t�@�C�����~�X���C��

�y2021/08/10_eraTW_�`�����A�j���\���p�b�`2�z

1�AA�w��̃A�����ɑ}���䒌�̐F����
���U�C�N�䒌�̐F�A�ԁ���@�򁨐Ԃ̂œ�����\�����Ă���̂ŐF�����ŃA�j���[�V�����\���𓮂��Ă���悤�ɉ��ǁB

2�A�}���K�����o�����A�����Ƃ��Ԃ��Ă���̂ŁA�ł������`��ς����������փX���C�h

�y2021/08/10_eraTW_�`�����A�j���\���p�b�`�z

�f�P�l��������җl�̂��͓Y���ɂ��A�f�ނ��ғ��A���샊���[�X
�{���ɂ��肪�Ƃ��������܂��B

/*************************************************************************************/
�摜���H��ҁFA����f�ނ��������l

path: 原版+前人整合等各种readme/パッチ/eraTW_Ａ性交アニメ表示パッチ3/README.txt


code:
276�X��>>688,701�w�E�̃o�O�C���p�b�`�Ăł�
�w�E�ӏ��̐��퓮��͊m�F�o���܂������A�o�b�N�A�b�v��Y�ꂸ�ɂ��肢���܂�

�C���ӏ�
\ERB\�X�e�[�^�X�v�Z�֘A\SOURCE\SOURCE_POSE.ERB 310�s�ځ` �ȉ��̍\����}��
;���R�L
CASE 85
	IF TEQUIP:ARG:�o�ڐG���� == 6 || TEQUIP:ARG:�o�ڐG���� == 7
		CALL �}������(ARG)
	ENDIF
	CALL TOUCH_SET(SET_FROM_LEG,SET_P,ARG)

path: 原版+前人整合等各种readme/パッチ/eraTWエア足コキ修正パッチ/read me.txt


code:
���T�v
TW4.781�p�����_���L�����Ǝq���̖��O���𑝂₷�p�b�`�ł�
����Ŗ��O���͂��Ȃ菭�Ȃ��Ȃ�ł��傤

�����e
�E���̎q�E���u�q
�Ђ炪�Ȗ�200�A������1400��A�J�^�J�i��450�����烉���_���I��
�E�j�̎q
�K���Ȋ�����16*16�ʂ�őg�ݍ��킹�����_������
��e���������̏ꍇ�A�ꕶ���Ƃ��Đ�������p�^�[��������̂ŏ����͌����o�邩��

���o�T�E���ӓ_
�����n���O�f�[�^��deme�l�쐬�̋��ł��܂���Ǝ�荞��ł܂�
�����m���́u�����b�l���^�vhttps://www.worldsys.org/europe/�́u�������E�p��v����荞��ł܂�

�j���������R�[�h�́u��11�� �e�X�g�p�̖��O�f�[�^��������������FITpro�v
https://xtech.nikkei.com/it/article/COLUMN/20060131/228230/���Q�l�ɂ��܂���

������肠�����ꍇ��.txt�Ƃ��ē��������O�o�[�W�����ƍ����ւ��Ă�������

path: 原版+前人整合等各种readme/パッチ/eraTWランダム名前増加パッチ/りーどみー.txt


code:
�A�b�v�f�[�g�͒��ڏ㏑�����Ă��炦���OK�ł�

�������p�b�`���Ă��̂��������Ȃ��͂��ł����A������������G���[�o�邩������܂���
���̏ꍇ�G���[�񍐂��炦��Ə�����܂�


code:
���������S�̓I�ɌÂ������̂ōďC���B
�l���A���@�̐X�A�d���̎R�[�A�d���̎R�R���A�n��a�̃��C���}�b�v�ϐ������������܂����B

�𓀂����炻�̂܂܃t�H���_�ɓ˂�����ł��������B

�ȉ��C���_
;-------------------------------------------------
950:�n��a
960:�ܔM�n����

�@�@��

950:���u�z
960:�n��a
970:�ܔM�n����
;-------------------------------------------------

path: 原版+前人整合等各种readme/パッチ/eraTW現在位置変数表修正ver2/れあどめver2.txt


code:
��

00eraTW(u_}Ya�0t'`�w.~h�:y_j�����R�0�0�00

qSz��ej0�0K0k0�0�0g0V?ceQW0�0F0h0W0_0�0}Yah0K0t'`h0K0h�:yU0�0�0Q0i00��SL0JS҉h0hQ҉g0�ky0k0O0D0W0UOPh�:yU0�0f0�0K0peH0�0n0�0�0�0i0O0[0G0�

& h0`c0_0n0g0\Oc0f00~0W0_0

�f�e�Q�[�0���0P��004.543�NM�g0B0�0p0OUL�j0O0�R\OY0�0& o0Z0�eraTW4.553h0eraTW4.560proto�0�0�0�0!qW0g0�R\O�x��n0	�

0�i��0

0OPTIONk00[29] - B0j0_0x0n0}Ya�0t'`n0�X�0�w.~h�:y
0�0���RW0~0Y0

0S0�0�0ONk0Y0�0S0h0g00�b0PW0Bf0e&
0h00&
0L0UOPh�:yU0�0�0n0K00peW[g0�wO0h�:yU0[0~0Y0

0�O	�

0�%�%n0��-N

0B0j0_0x0n0}Yae&�8

0t'`n0�X&�15.5

0���d���_n07_D0�%�%o00]0S0~0g01�W0f0D0D0�0n0K0h0`D0�vW0_0& &

0t'`n0�X&�18.5

0�%�%o0�0�0�0�0h0�ec0_0

0[0]�vKbn0a�_�0
\͑Y0�0

0[1]�0F0r0h0�bW0

01

0t'`n0�X&�15

0�%�%k0`D0c0M0�0`�0�0_0&

0�!S0�0j0aX0k0j0�0~0Y0

00}K0D0�N�i0

0�0�0�0n0e&h0Ğn0&�010}vn0e&h0}vn0&�00.5h0W0f0h�:yW0f0D0~0Y0

0e&n0�eo0�8^�0�0�0g0h�:yU0�0~0Y0L00e&n0peL010000�N
Nn04XT0d�r�g0h�:yU0�0~0Y0

0O(uFLAG0

01064,}Yat'`�w.~

9e	Y�0�QM�^I{o0T0�1uk0i0F0^0

path: 原版+前人整合等各种readme/パッチ/eraTW用_好意・理性短縮表示機能追加パッチ/readme.txt


code:
�N���s���オ�ƂĂ��Ȃ����������̂ŉ䖝�ł�����G�̂ݒE�����܂���

�������܂�K������Ă���l�ŁA������΂ւ������߂܂���̂ŃX���ł̍��m�͒v���܂���
�����G�͒E�����܂���

������d���ł��̂�
�K���摜���m�F�̏�Ł@�u����Ȃ�ǂ������v�@�Ǝv������̂�resources�t�H���_�ɏ㏑�����Ă�������

�O�����p�ł��̂Ń��C�Z���Xtxt�ɂ͎�������Ă���܂���
���C�Z���X�͊����̂��̂ɏ����܂�

path: 原版+前人整合等各种readme/パッチ/eraTW用クラピ裸絵 (顔絵のみ・立絵なし)/上書きの前に.txt


path: 原版+前人整合等各种readme/パッチ/eraTW用クラピ裸絵/上書きの前に.txt


code:
eraTW�p��resources�摜�t�@�C���I�v�V�����ł�
�摜�͈��k�ς݂ł�
��{�I�ɏ㏑�����č����ւ���p�ł�

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


code:
eraTW�p��resources�摜�t�@�C���I�v�V�����ł�
�摜�͈��k�ς݂ł�
�摜�t�@�C���܂ߑS�Ẵt�@�C�����㏑������ƗH���̃p�W���}���摜�ɔ��f�����悤�ɂȂ�܂�
�Z���p�W���}�摜�̓X��237��>>155���ɒ񋟂��Ă��������܂���

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


code:
�𓀂�����K���ɕ��蓊���ď㏑�����ăl�I(�ޯ����߂͂��Ă�����I)

�}�~�X�ɂ����X�V�ł�
�O�̓z��DL���Ȃ��Ă����Ȃ��ł�

path: 原版+前人整合等各种readme/パッチ/eraTW用八雲藍口上【別人加筆版】ver0.15/れあどめ.txt


code:
eraTW/ERB/口上・メッセージ関連/個人口上/勇儀/

ERBフォルダをそのまま本体に上書きすれば動作するはずです


code:
-----------------------------------------------------
eraTheWorld�p�@���R�������G(2019/03/11)

				��ҁF����ق�
-----------------------------------------------------
���g����---------------------------------------------------------------------------
"resources"�t�H���_��˂�����ł̉摜���㏑������
��
�u�d���̎R�E�R�[�v�ɂ��錮�R���ɉ�ɍs��
��
(߄t�)�ϰ

�����������-----------------------------------------------------------------------

�E����������悤�Ƀo�X�g�A�b�v�摜�̑傫���ƈʒu�𒲐�����
�E�������G�œ��ɂ��Ă����{����r������(���Ƃ����) �����̃��{���͎��炵��
�E�����ǉ�����
�E�������G�ŋ@�����ǂ����̕\���ς���(�j����߂�ƃG�b�`�x��������)

�����ӎ���-------------------------------------------------------------------------

�E���̉摜��kaoru���̗����G�f�ނ����ς������̂ł�
�@�摜�̃��C�Z���X�ɂ��Ă͊����̂��̂ɏ����܂�
�i�ڂ�����resources�t�H���_����"�摜����җl�̗��p�K��.txt"�Q�Ɓj

�@�ȉ����p�K����]��
=======================================================================
������Ă�������
�E���M�E�C���E���H
�E�Q�[���A���[�r�[�A�z�[���y�[�W�f�ނȂǂł̎g�p�B

������Ă͂����Ȃ�����
�E���Ɨ��p�i���l�܂ށj���̂����ɗ��ގ��ւ̗��p�i�F�X�ʓ|�Ȃ̂Łj
�E���̂܂܎��g�̐��삵���f�ނƂ��Ċۏグ
�E���ƃ\�t�g�̉����p�[�c����щ����C���X�g�E�����A�C�R���ȂǂɎg�p���邱��

������ҁFkaoru
=======================================================================

�E�摜���k���Ă��Ȃ��̂Ńt�@�C���T�C�Y�����傫�߂ł�
�@�ǂȂ������k�ł����爳�k���Ă��������c�c
�@

���ӎ�-----------------------------------------------------------------------------

eraTheWorld�𐻍삳�ꂽ��eraTWk3.v6���ɉ��߂Ċ��Ӑ\���グ�܂�

-----------------------------------------------------------------------------------
��ҁF����ق�

path: 原版+前人整合等各种readme/パッチ/eraTW用鍵山雛立ち絵/Readme(お読みください).txt


code:
eraTW4.622�p��resources�摜�t�@�C���̏C���łł�
�����t�@�C�����㏑�����Ă�������

�E������resources
���k����ĂȂ��摜�����k���Čy�����܂���
���g�͓����ł�

�E�C��resources
�L�P�̗���O�����X�q�E���łȂ������̂��C��
�Ă�͊m�F����������Ȃ������̂ł����A�ς��Ƃ̈ӌ����������̂ł��łɍ�蒼��

�����[�z���C�g���S�����ɖX�q�E���łȂ��L���������܂����A�����G��҂���̕��ɍ��킹�Ă��܂��B
���炭�X�q�Ȃ��Ǝ����L�����Ɠ����ɂȂ��Ă��܂����ۂ̂��߂��Ǝv���܂��B

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

path: 原版+前人整合等各种readme/パッチ/eraTW用顔グラ修正＆圧縮/readme.txt


code:
○eraTheWorld　積み石コンテスト ver 0.1

作者　Cineraria
―――――――――――――――――――――――――――――――――――――――――――――――
■積み石コンテストとは
賽の河原の9:00～17:00の間参加することができる石を積む数を競うコンテストです
将来的には土日限定だったり一日一回するとか考えているのですが今回は色々ダメ出ししてもらう関係上プレイしやすいように外しています

■何で作ったの
鬼形獣で一番好きな瓔花の口上を作ろうと思い至る
→詰まって気分転換に積み石コンテストのお仕事を作り始める
→気が付いたらこんなことに…
なお改変じゃなくて自分で作ってそれをUPするのは初めてです…昔の自分の馬鹿！めっちゃ大変だったぞ！

■一応コンセプトとか
冥界MAP独自のものが少なかったので補強
ラブホみたいなデートしてる時だけ特殊なイベントができる場所が欲しかった(まだ未実装)
訓練して自分から高めるんじゃなくてそこで生活して色んなことをしていくうちに強くなっていくみたいなのいいよね
せっかく戦うならモブじゃなくて名有りと戦いたいよね
せっかく戦うなら銭湯前後にセリフ欲しいよね
せっかく戦うなら恋慕か否かでの分岐ぐらいほしいよね
はるか未来になるけど口上書くのは大変だからいやだけど６セリフくらいなら書ける…って気軽に増えてほしい

■ver0.1ってどういうこと？
システムの骨格作って最低限動くようにしたやつ
こんな感じですよーっていうアピールと口上書いてくれるって言ってくれた優しい方々のために急ピッチで作ったので色々雑
・(急に恋慕時にセリフを変えるとか思いついたせいで)台詞が書き終わっているキャラが少なすぎてキャラを流用している(LEVEL0の子がLEVEL3にも登場しているなど)
・難易度調整が適当
・戦闘システムも改善の余地あると思う
・構文も無駄が多く表記ゆれもあり、標準でない構文多め
・つまりあらゆる部分に改善の余地あり
・口上色をつけていない
・対戦前にキャラの顔が出ると良いよね(できてない)
・お金以外にちょっとレアい素材とかも賞金としてもらえるようにしたかったけどしてない
・デート中に出来るタッグマッチモードはほぼ未実装
・素質の数値に応じてで石積みビギナー、石積みルーキー…って変わるようにしたいけどCSVあんまりいじったことないからどうやるか分かんない…

■現在どこで誰と戦えるのか表
LEVEL0(EASY1)　くたか　妖夢　成美
LEVEL1(EASY2,NORMAL1)　スター　こころ　小鈴
LEVEL2(NORMAL2,HARD1)　霊夢　白蓮　成美
LEVEL3(NORMAL3,HARD2)　董子　こころ　サニー
LEVEL4(HARD3)　董子　妖夢　白蓮
LEVEL5(HARD4)　娘々　神子　布都
LEVEL6(LUNATIC1～4)　娘々　神子　布都　エレン　袿姫　隠岐奈
タッグバトル　娘々＆布都

■口上書いたんだけどどのLEVELに入れればいいの？
技巧+指+(調合+採集+演奏)÷2の数値に針さばきか手先が器用を持っていればそれぞれ２点、習得速いを持ってれば１点足した数値をある程度の目安にしています
ある程度なので俺の中ではこの子は超手先器用で石積み得意なんだよ！っていうのであればそのレベルに突っ込んでいただいて構いません
あとこの作者が書いたやつよりいいのが出来たらどんどん書き換えてくださって構いません
とりあえずの入れ物としてなるべくエミュレートして書いただけなので本来の口上作者が書くならそれに越したことはないので
たとえば勝利セリフ以外は良いけどこれだけは気に食わないから書き直すぜー！みたいな一部書き直すのも全然ありです
なんならせっかく個人口上とは独立しててランダムで選ばれる形式なんだから書き直しや差し替えじゃなくてA氏が書いた霊夢とB氏の書いた霊夢とC氏の書いた霊夢全部採用！みたいな形でもいいんじゃないでしょうか

■参考にしたもの
本当に色々参考にしましたが一番参考にしたのはカジノです
ありがとうございました

■苦情・バグ報告等
何かありましたらしたらば掲示板のeratoho総合スレにご一報を
常駐してはおりませんので連絡が遅くなる場合がございます。予めご了承ください

■更新履歴

2020年9月30日	ver0.1を公開

path: 原版+前人整合等各种readme/パッチ/eraTW積み石コンテストパッチver0.1/りーどみー.txt


code:
　積み石コンテスト
  作者：Cineraria
  ＜改変した場合はここに改変者の名前を追加する＞

  ＜この口上について語ったりするスペース＞

  ライセンス：
  この口上について以下で作者が○をつけた行為は、作者以外の者も連絡不要で行うことができます

  +--------------------------------------+
  | 再配布                               |
  +--------------------------------------+
  | 〇 | 単体での再アップロード          |
  +----+---------------------------------+
  | ○ | 本体への同梱・口上まとめへの収録|
  +--------------------------------------+
  | 再配布を許可する場合の改変           |	//改変可・再配布不可を防ぐためのif文
  +--------------------------------------+
  | ○ | バグ・誤字脱字の修正            |
  +----+---------------------------------+
  | ○ | 口上の加筆                      |
  +----+---------------------------------+
  | 〇 | 口上の改変                      |	//加筆OK・改変NGの口上って結構ある（俺調べ）
  +--------------------------------------+
  | その他                               |
  +--------------------------------------+
  | 〇 | このバリアント以外での利用      |	//例えばNTR嫌いなのにNTR口上に改変された！みたいな行為を防ぐため
  +--------------------------------------+ 	//era外での利用も含む？
  | ○ | 他言語版バリアントへの流用・翻訳|
  +----+---------------------------------+	//加筆・改変禁止と別枠なのは「NTR部分の口上だけ別に作る」みたいな抜け道を潰すため
  | × | 金銭のやり取りを伴う利用        |	//商用利用だと同人が入らないようにも見えるのでこの表現に
  +--------------------------------------+
  | ○ | 二次創作                        |
  +--------------------------------------+
  | × | era以外への流用                 |
  +--------------------------------------+

	○：許可　△：要相談、連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない
	○のついていない・○以外のついた行為や、ここに書かれていない行為を無断で行うことを禁止します。
	必要な場合は事前に作者の許可を得て行ってください。
  ・この口上を使用したことによる損害等について、作者は一切の責任を負いません。
  ・改変を行った際には、改変部分も同じライセンスを適用しなければなりません。
  ・このライセンスに反しない限り、作者はその者に対するこのライセンスによる許可を取り消すことはできません。
  ・このライセンスは現バージョンのみに適用されます。
  　作者は次期バージョンからのライセンスを変更することはできますが、旧バージョンのライセンスを変更することはできません。
-----------------------------------------------------

path: 原版+前人整合等各种readme/パッチ/eraTW積み石コンテストパッチver0.1/ライセンス.txt


code:
実装済のキャラ表(仮)
大量の人に手を入れてもらうならこういう表も必要かなって思って作りました
実際は６文作るだけなのでわざわざ他の人のを改変するくらいなら新しく生み出して並列にしたほうが早い気がする…

■キャラ名
書いた人　入れたいLEVEL　文を改変可かどうか　文を追記可かどうか　文の誤字脱字の修正可かどうか　難易度変更可かどうか

■霊夢
Cineraria　２　〇　〇　〇　〇

■サニー
Cineraria　３　〇　〇　〇　〇

■スター
Cineraria　１　〇　〇　〇　〇

■妖夢
Cineraria　０　〇　〇　〇　〇

■エレン
Cineraria　６　〇　〇　〇　〇

■にとり
Cineraria　３　〇　〇　〇　〇

■白蓮
Cineraria　２　〇　〇　〇　〇

■神子
Cineraria　５　〇　〇　〇　〇

■こころ
Cineraria　１　〇　〇　〇　〇

■小悪魔
Cineraria　２　〇　〇　〇　〇

■小町
Cineraria　０　〇　〇　〇　〇

■娘々
Cineraria　５　〇　〇　〇　〇
Cineraria　Ｔ　〇　〇　〇　〇

■布都
Cineraria　５　〇　〇　〇　〇
Cineraria　Ｔ　〇　〇　〇　〇

■董子
Cineraria　４　〇　〇　〇　〇

■成美
Cineraria　０　〇　〇　〇　〇

■隠岐奈
Cineraria　６　〇　〇　〇　〇

■久侘歌
Cineraria　１　〇　〇　〇　〇

■袿姫
Cineraria　６　〇　〇　〇　〇

■瓔花
Cineraria　８　×　×　〇　×
Cineraria　９　×　×　〇　×

○：許可　△：要相談、連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない
○のついていない・○以外のついた行為や、ここに書かれていない行為を無断で行うことを禁止します。
必要な場合は事前に作者の許可を得て行ってください。

path: 原版+前人整合等各种readme/パッチ/eraTW積み石コンテストパッチver0.1/実装済のキャラ表的なの.txt


code:
-----------------------------------------------------------------
■導入のやり方■
-----------------------------------------------------------------
同封のERBフォルダをeratohoTW本体が入ったフォルダに入れて、デフォルトのERBフォルダにそのまま上書きしてください。

作者の処女作ということもあり不具合が発生する可能性があります
必ずバックアップをとってから本パッチを導入するようお願いします

path: 原版+前人整合等各种readme/パッチ/eraTW積み石コンテストパッチver0.1/導入のやりかた.txt


code:
��eraTW4.733�p�������V�s�I�����̍ޗ��̌��\���p�b�`

���̃p�b�`�Ƃ̕��p�͎��ȐӔC�ł��肢���܂��B

���d�l

�����R�}���h�Ń��V�s��I������Ƃ��ɁA�ޗ����̉��Ɍ���\������B
���O�̒ʂ�̃p�b�`�ł��A�ǂ̍ޗ�������Ȃ�����������悤�ɂȂ�܂��B

path: 原版+前人整合等各种readme/パッチ/eraTW調合レシピの材料個数表示パッチ/readme.txt


code:
・キャラ番号必要な場所でCFLAGにキャラ番号が設定されていないのを修正（デイリーイベントと個人情報）
・デート帰りの死に分岐を修正（2つあるELSEIF TALENT:愛欲のうち後者をELSEに変更）
・嫉妬処理で嫉妬相手が入るべきところに輝夜が入っていたのを修正


code:
��TW��������������|���p�b�`

���v���肻���Ȃ̂ŁA���I�ő҂������т��f�C���[�C�x���g����Ȃ��Ċ�|���̕��Ŏ���
����ň��ԈႦ������ʓ|�����ǃ��Z�b�g�c�Ƃ����̂����邩�Ǝv���܂�
�����Ɋ�|���Ŕ�����������̍ہA�����������ɏ������I�����ɂ��܂���

�����������c���Ă���ꍇ�A�ēx�����x����������̂�����������������Ȃ�悤�ɒ������܂���
�v���X�␳�Ƃ��Ă͂��Ȃ�������x���ɗ}���Ă܂����A�����������c���Ă���f�����b�g�͊F���Ȃ̂ł���Ȃ��񂩂�

�ȉ��̃t�A�C�����㏑�����܂�
\SHOP�֘A\TUTORIAL.ERB
\�R�}���h�֘A\��|���p�b�`.ERB
\�R�}���h�֘A\COMF\����n\COMF421 ��|��.ERB
\�X�e�[�^�X�v�Z�֘A\TRACHECK_����擾.ERB

path: 原版+前人整合等各种readme/パッチ/eraTW願掛けから反発履歴消去パッチ/reasme.txt


code:
-----------------------------------------------------
eraTheWorld�p�@���}�����p���X�B�����G(2019/04/06)

				��ҁF����ق�
-----------------------------------------------------
���g����---------------------------------------------------------------------------
"resources"�t�H���_��˂�����ŉ摜���㏑������
��
�n��ɂ��郄�}���ƃp���X�B�ɉ�ɍs��
��
(߄t�)�ϰ

�����������-----------------------------------------------------------------------

�E����������悤�Ƀo�X�g�A�b�v�摜�̑傫���ƈʒu�𒲐�����
�E�p���X�B�̗����G��"���ւ��āA�p���p���I(�p���X�B2)"�ɕύX����
�E�����ǉ�����
�E�������G�ŋ@�����ǂ����̕\���ς���(�j����߂�ƃG�b�`�x��������)

�����ӎ���-------------------------------------------------------------------------

�E���̉摜��kaoru���̗����G�f�ނ����ς������̂ł�
�@�摜�̃��C�Z���X�ɂ��Ă͊����̂��̂ɏ����܂�
�i�ڂ�����resources�t�H���_����"�摜����җl�̗��p�K��.txt"�Q�Ɓj

�@�ȉ����p�K����]��
=======================================================================
������Ă�������
�E���M�E�C���E���H
�E�Q�[���A���[�r�[�A�z�[���y�[�W�f�ނȂǂł̎g�p�B

������Ă͂����Ȃ�����
�E���Ɨ��p�i���l�܂ށj���̂����ɗ��ގ��ւ̗��p�i�F�X�ʓ|�Ȃ̂Łj
�E���̂܂܎��g�̐��삵���f�ނƂ��Ċۏグ
�E���ƃ\�t�g�̉����p�[�c����щ����C���X�g�E�����A�C�R���ȂǂɎg�p���邱��

������ҁFkaoru
=======================================================================

�E�摜���k���Ă��Ȃ��̂Ńt�@�C���T�C�Y�����傫�߂ł�
�@�ǂȂ������k�ł����爳�k���Ă��������c�c
�@

���ӎ�-----------------------------------------------------------------------------

eraTheWorld�𐻍삳�ꂽ��eraTWk3.v6���ɉ��߂Ċ��Ӑ\���グ�܂�

-----------------------------------------------------------------------------------
��ҁF����ق�


code:
��eraTW ver4.640proto�p ���ʕʚb���ǉ��p�b�`

���T�v
�@�ウ�Ȃ���̚b�����̒��Ɋ����镔�ʂ�����Ă�̂��ăG�����Ǝv��Ȃ��H
�@�Ƃ����킯�ō���Ă݂܂���

���p�b�`���e
�EAUTO_AEGI.ERB
�@�b�������������Ɉ��m���ŕ��ʂ����ɂ��鏈����ǉ�
�@�ǂ̕��ʂ����ɂ��邩�͂��̎��_�ł̕��ʕ�CUP�����Ƀ����_���Ō���
�@�{���̏����̂��ߐ������̃L�����̔ԍ����擾���邽�߂Ɉ������g��

�@���ۂɌ��ɂ��錾�t�́u�Ώۂ̊��xx30�{1d100�v�̌��ʂ����Ɍ�Q��I���i���ʂ������قǃG�����Ȃ�A�Ō�͓�����j

���p�b�`�����菇
�@�{�̂ɏ㏑���̏ゲ���p������
�@���̃p�b�`�Ƃ̋����͑����������Ȃ��Ǝv���܂�

�����Ƃ���
��1�N���Ԃ�̃p�b�`����
�Ȃ�Ƃ������A�v���Ԃ�ɏ��������Ȃ����̂ŏ������A�����Ȃ��画�蕔���̎d�l���ς��Ƃ������̈���
���ŏ��͊��x�̒l�����ŕ��򂵂Ĉ��ȏ�ɂȂ�Ίm���ł���ɕ��򂷂���x������

�����Ď�Ⴂ�ł��̃t�@�C���ۑ��������˂��̂ŏ��������Ă��邤���ɂ��̕ӂ̏����Ɏ���������ƌ���ꂽ���ǂǂ����悤�Ǝv���Ƃ肠����������i�����ǂ���ł����߂�Ȃ����j

���ǐL
���_�Ђł����̌i�i��n����t��ł����A�ŏ��Ƃ�Ȃ�����̃n�v�j���O�Z�b�g��n���Ă����̂��A
���ǂ��Ȃ肷�������߂Ɂu�N�Ɏg����ł����H�v�ƃW�g�ڂŗ��̃n�v�j���O�Z�b�g��n�����悤�ɂȂ�A
�X�ɒ����i�񂾌��ʎ����̃f�[�g���𕴂ꍞ�܂�����h�����N�Z�b�g�̐��͍܂������Ă�����A
�ʂĂ͗��̃n�v�j���O�Z�b�g�����̊Ԃɂ���l�̃n�v�j���O�Z�b�g�ɂȂ��Ă��āu���g�͂ł��˂��c�c�H�v�ƕ��A�ɘA�ꍞ�ݕ����͂��������ė����ƌҊԂɃ��[�^�[��t�����͂����Ȃ��p���������Ă���B

����ȁA����Ă���_�l�����̖z���Ȏp�����Ă��邤���ɗ~���s�������܂��Ėϑz�����点��������Ǝc�O�Ȏ�t�삭�������i��

������TW�쐬�p�b�`����
eraTW4.10�p �A�ꍞ�ݏh�p�b�`
TW413��荞��_���ʂ̐l�͊֌W�Ȃ��p�b�`�i�͂��A����̌����͂����炭���ł��j
eraTheWorld 4.13 ���Ɗ֌W���ׁX�p�b�`
TW414_�ړ��p�b�`�i�͂��A�A�����͂�Ȃ苭�����悤�Ƃ����͎̂��ł��j
eraTW4.14�p�\�͕\���p�b�`
ETW proto4.14�p�b�`��荞�ݗp�ח��f���֌W�p�b�`
TW4.14��荞�ݗp�ח��f����������
TW4.14��荞�ݗp�e����P�p�b�`
eraTW4.15�p���c�΍�p�b�`
eraTW4.15�p���c�����p���p�b�`
eraTW4.15�C���p�R���N�V�����p�b�`
TW4.15�C��2_�F�X�p�b�`
TW4.15�C��2_�r�b�g���쓝���p�b�`
TW4.15�C��2_�r�b�g�Q�ƃp�b�`�ǉ���
eraTW4.16_�����o���K����p�b�`���i���x���グ�������炵�܂����j
eraTW4.16_�����ꏊ�֌W�p�b�`
eraTW4.16_���ԂԂ��p�b�`�i�v���Ԃ�ɒn�̕����C���̃p�b�`�j
eraTW416��荞��_���������p�b�`
eraTW416��荞��_�����ꏊ�p�b�`�i�ʖ��FeraTheWorld proto4.16 ����Ɛj���ۂƗ��Ƃ߁[���ɂ��߂�Ȃ����p�b�`�j
eraTW416��荞��_�����֘A�p�b�`
eraTW416��荞��2_���C����L�����Z�b�g
eraTW417_���d�p�b�`
eraTW417_�����፬���p�b�`
eraTW 4.17�p�b�`��荞�ݗp C�ُ픭�B�}���p�b�`
eraTW ver4.17proto�p �Ⓒ�֌W�Z�C���p�b�`
eraTW 4.18�C��2�p ���݂����p�b�`�i�^�Q�[�n�܂��[�A�Q�[�����ɑS���̕��������炽���������̂ł��j
eraTW ver4.18proto�C��2�p ������p�b�`
eraTW 4.18proto�C��2�p ���݂����͂��߂܂����p�b�`
eraTW ver4.19proto�p ���݂����͂P���P��܂Ńp�b�`
eraTW ver4.19proto�p �����p�b�`
eraTW ver4.20proto�C��4�p �����_���z�񐶐��֐��C���p�b�`
eraTW ver4.26proto�C���p ���s���蓝���p�b�`
eraTW ver4.37proto�p �J���X�}�s�ꎎ�������p�b�`
eraTW ver4.37proto�p ��J�K�`�����e�ۑ��p�b�`
eraTW ver4.49proto�p �|�[�J�[���[�������p�b�`�_���̃Q�[������Ă΂���ŗV�ׂĂ܂���^

path: 原版+前人整合等各种readme/パッチ/eratohoTW4640_部位喘ぎパッチ/りどみんほー.txt


path: 原版+前人整合等各种readme/パッチ/eratohoTW用賑やかし口上集・天空璋全員セット/■■動作未確認■■.txt


path: 原版+前人整合等各种readme/パッチ/eratohoTW用賑やかし口上集・天空璋全員セット/■バックアップ必須■.txt


code:
���̌���W�̓x�[�^�o�[�W�����Ȃ̂ł��Ԃ�ǂ����ŃG���[��f���܂�
��[�팳�N��5���̂��ɂ�		��������

�������ӁI�@�N�����G���[�̗L���ȊO�@���얢�m�F
		�N�����ɂ͕K���o�b�N�A�b�v������Ă�������
�������ӁI	�@��҂̋Z�ʂł̓o�O�E�s����������Ă������炭�C���s�\
		�K�X�L�u�ɂ�鋦�͂����肢���܂�
�������ӁI�@�S�ē���l�����`�����̂ŕ��͂Ƀw���ȕȂ��o�Ă��邩�����ĂȂ�
		����񂩁i�Ȃ����ϊ��ł��Ȃ��j������ꍇ�ʐl�C������
		�C���E���M�Ȃǒ�����Ǝ��͊�т܂�

��������

���T��
�������L����
���e�L�����R���Z�v�g
�����m�̕s�

���T��

����Ȃ��L�����������Ĕ߂����̂ł����
��{���j�͌͂�؂��R�̓��킢

���������ǂ̃L������

	�Z�N�n���ɂ͔������Ȃ�
	�f�[�g���̓����b���Ȃ�
	�e��r�����̃R�����g����{�Ȃ�(����������j
	A��p�C�Y�������Ȃ�
	��������������������Ȃ�
	��b�ɋl�܂����p�̃o���G�[�V�������Ȃ�
	����܂ōs���Ă���{�I�ɉ�b�͕ς��Ȃ�
	�i�������ς�����������j

�Ȃǒ��ǂ��Ȃ��Ă��猩��悤�Ȃ��͖̂�����������
�����ď����I�ɂ������̗\�������܂�Ȃ��E�ʐl�ǋL��W��

�t��

���Ζ�
	��b�ق��������V�b�v
	�׋��ȂǋZ�\�P���e��
	�e����������
	CB�i���~�ߊ܂ށj
	����ƃt�F���i���~�ߊ܂ށj
	��߂ق�
	�A��o���Ƃ��E���̐l�ƃf�[�g�̂Ƃ�
	�I�i�o���̂Ƃ��E�p���c�o���̂Ƃ�
	�v��E����擾��

�Ȃǂ̔�r�I�悭�����ʂł͒����Ă����i�͂��j
�\������x�̔����p�^�[���ꍇ����������
�����p�^�[�����ڍׂɑ��₵�Ă������ȂǕ�W��

���悤���܂˂ō���Ă���̂ł����炭�o�O����
�L�u�̒ǋL�C������ �Ƃ��������ВǋL�C�����Ă����������Ȃ������܂�

���ϓ����ׂăt���[�@�����ɂ�������Ă������

�A�����K�v�ȏꍇ���������̖��O�Ō�������΂��Ԃ�݂���@����������������
�ł��o�O�C���Ȃǂ͂قƂ�Ǌ��҂��Ȃ��ł��������i�[�����ꂪ���E�jʻ�ϰ

�������ς݃L����

���V��

118�@�����o
119�@�l���m
120�@������
121�@����
122�@��
123�@���T
124�@�B���

���R���Z�v�g

������������Ȃ��񂶁@�ځ[�邬�Ⴎ�т��

�y118�@�G�^���������z
�����C�����őf�������ȃx�[�V�J���퐢�_��
����̐V���E�̐_�l�^���ď��_���炾�����肵�āB

�y119�@�l���m�}�}�z
���T�C�R�L���[��������o�u�~�t���������肷��l���@
�n���������Ă����[�h�͂قƂ�ǂO���ׁB

�y120�@�����񂿂�z
�������Ɖ���������������_�[�N���L������
���i���i�ꉞ�O���炪���y���Ă����ǁj�������C���Ȃ̂Œ��ӁB

�y121�@���@�n���̂Ȃ邱�z
�������h���@�O�҂ݒn�����q�H��
�Ȃ񂾂���b���ςŌ��\�m���m���B���Əd���i�����j�B

�y122�@�ՂՂՂœ��̒S���ȕ��z
�����]���S�n�T�[�N���N���b�V���[��
���t���l�̂��Ƃ͌����ɂȂ�Ȃ��ł����Ă��������BNTR�E���^�\�����ӁB

�y123�@�ց`�Ő��_�S���ȕ��z
�����]���S�n�I�^�T�[�̕P��
���R�̌����̂悤�ɐ��_����B���Ɨ��T�A���ǂǂ����̕����K���Ȃ񂾂낤�B

�y124�@�܂炨�����[�ȁz
�������点���呸��ނ���֎q����
��O�I�Ƀf�[�g�I���̃L�X�Ǝ����I�����r���Ɍ��゠��B

�����m�̕s�

�����o�E�l���m�E������
�F���~��CB�A����t�F���`�I�̌��オ�\������Ȃ��B���ۂ悭�킩��Ȃ��B

���T
�F����擾�㏉�������̌���\�����ꂸ�B���ۂ悭�킩��Ȃ��B

��
�F����擾���Ƀ��^�ȕ`�ʂ��g�p���Ă��邪�A���̍ہwPLlNTFORML�x�iI����������l�j
�@�Ȃǂ̕�������g�p���Ă���̂Ō듮�삷�鋰���@���Ȃ������烉�b�L�[�i���m�F�j

�e���퓬�@�S��
�F���Ԃ�G���c�@�O���̌��オ�����݂���Ă���B
	�G���c�@�O����e�\�񐔎c��1��Ƃ̗����ŋL�q�������A
	������������G���c�@�O���퓬�I����������������Ȃ��B
	���m�F��������Ă���悤�Ȃ�ǂȂ������Ƃ����Ă������i���̋��{�� F 1�j

path: 原版+前人整合等各种readme/パッチ/eratohoTW用賑やかし口上集・天空璋全員セット/れどめ.txt


code:
時計の時針が動く差替え画像

時計の分針が廻る間に時針が動かないのに違和感を憶えたので

導入方法
1. resources\tokei.pngをバックアップ
2. resources\tokei.pngを同梱の画像で上書きする
3. 完了

おまけで「見づらい奴」に別デザインのtokei.pngを入れてあります。
時計が見づらい方が興奮する方はこちらもご利用下さい。

もとの時計画像パッチ同様、連絡不要で改変・再配布可

path: 原版+前人整合等各种readme/パッチ/tokei/時計差替え用画像README.txt


code:
欲求不満が溜まった女の子があなたを買おうとする依頼を追加するやつです
動作確認は4.752
4.754は表示バグだとかなんか色々あるみたいなので触ってないですがまあそう大差ないでしょうしおそらく多分きっとメイビー正常に動くきがする

たぶんスレで求められていたのとは違う感じなんだとわかってはいる…
でも人里路地裏ックスとか月面路地裏穢れックスとかやりたかった…やりたかったんだ…
あとは私の技術力がないから作れてもこのくらいが限度という理由もある。悲しいね
処理はだいたいオナバレックスのやつを改変。改変ってことはつまり書かれてることを私がちゃんと理解していないということです。そもそもeraが何の言語で書かれてるのかとかすらわからない貧弱一般人がなぜこんなの作ったのか、ｺﾚｶﾞﾜｶﾗﾅｲ

改変や要素の追加などはご自由にどうぞ。というか是非お願いします
特にキャラごとに報酬変わるの欲しいって人とかは報酬のとことか自分で弄ってじゃんじゃかアップロードしてくだち

発生条件は絞ったつもりだけどそれでも本体に取り込まれるかどうかは微妙なところだと思うので(世界観壊れると言われたらそれまで)、マージされないことを考えて需要ある方は別途保存しておくといいと思うです

正直プログラムとかよくわかってないのでエラーとか出ても下手したら修正できないので
そういうのわかる方バシバシ修正お願いします

つくったひと USamino

path: 原版+前人整合等各种readme/パッチ/あなたが買われる依頼追加パッチ/りどみ.txt


code: �����񂪋����Ȃ��l�ׂ̈ɍ����t���I

path: 原版+前人整合等各种readme/パッチ/ぼて小町・サニー再修正/readme.txt


code:
eraTW�p���̃��\�[�X

�摜�̒��쌠��kaoru���ɋA�����܂��B���L�̑��ɂ����G����җl�ɊQ���y�ԗp�r���ւ��܂�
era�ȊO�ւ̎g�p�Eera�낾�y�т��̔h���n�A�b�v���[�_�[�ȊO�ւ̉摜�A�b�v�̋֎~

���ߒE�߂ŐԖʂɍ���݂��Ȃ��̂Ōʂɂ���L�q���폜

��G�E���ɂ���
	�����҂��񓙂��A���Ӗ����p�Ŏg��or���Ȃ玞�Ԓ�~�Ƀ��^���邾�낤�I�ȏꍇ�����邩���Ǝv���ꉞ����Ă����܂��i��G�̕��݂̂ł����j
	����͋L�q���Ă��Ȃ��̂ŋ@�\���܂���


code:
�^���ɓ������ꂽ�킩�����P���������摜��\���ł���悤�ɂ���p�b�`�X�V�łł�
�e���d�n�R�}���h�Ɛ���ʗp�i�Ζʂł��\���j���ꍷ�����ǉ�����܂���
�ł����[���I

������l�F������

path: 原版+前人整合等各种readme/パッチ/わかさぎ姫画像差分パッチ2/readme.txt


code:
======================================================
�@eraTW4.671�p �A�i�����ݑ}���{���܂��p�b�`
======================================================

���ݑ}��������񂾂��́B�A�i�����ݑ}���������Ă���������Ȃ��B
�Ƃ����킯�Ō��ݑ}���R�}���h�����ς��č���Ă݂܂����B
��ʂ���Ȃ������͂��ł����A�ǂ����Ԉ���Ă��牓���Ȃ��C�����Ă���Ă��������B

���܂��t�H���_�̒��g�͂x�l�̓z�ꔄ�p���Q�l�ɍ�����L��������֐��ł��B�gCALL SALE_CHARA(TARGET)�h�œz�ꏤ�l�����Ȃ��̉łɒl�i��t���Ă���܂��B�ʂɔ���܂���B
�����ł͔��t���̕�V���߂Ɏg���Ă��肵�܂����A����Ȃ��񂤂��ł��Ȃ��̂Ŏg�������ȕ������������o���܂����B����������R�ɂ����ς��������B

path: 原版+前人整合等各种readme/パッチ/アナル交互挿入＋おまけパッチ/りどみ.txt


code:
# eraTW4.750�p�I�i�j�[�摜�p�b�`v2
## �T�v
��I�i�j�[�̕񍐂Ɋ�O�����ǉ�����܂�

## �g����
�𓀂����t�@�C����f��eraTW4.750�ɓ��ĂĂ�������(�㏑���ۑ������ok)

## �g�p�Ɋւ���

�g�p���������G��җl�Fkaoru�Adairi&�͂邩
�摜�̒��쌠��kaoru���Adairi&�͂邩���ɋA�����܂��B
��җl�ւ̖₢���킹�͂������������B

��җl�̃T�C�g�i���p�K��j
http://gensoukyou.1000.tv/
https://goo.gl/4KDHgg

�{�p�b�`���̉摜�t�@�C����era�����era�낾�A�h���n�A�b�v���[�_�[�ȊO�ւ̃A�b�v���[�h���֎~���܂��B

�܂��A�`���̓s���ɂ��ߋ��ɉ摜�����H���ꂽ�����쐬�����u�S�āv�̉摜�ɏ㏑������`�Ŋ����Ă��܂��B
�摜���H�җl���\�����Ă��������ꍇ�͍폜�Ή������������Ē����܂��̂ł��炩���߂������������B

�\�[�X�R�[�h�̉��ς�eraTW�̃��C�Z���X�Ɠ��l�ł��肢���܂��B

���̃p�b�`���̂̃o�[�W�����A�b�v���͑劽�}�ł��B�����R�Ƀ\�[�X�����ς��ăo�[�W�����A�b�v�Ƃ��Ă��������Ă��܂��܂���B

## ���������t�@�C���Əꏊ

### ERB/�C�x���g�֘A/AFTERTRA.ERB
[�ǋL] 437,438�s�ځA453~461�s�� �I�i�j�[�摜���邢�͔����̎Q�Ƃƕ\���i�����T�C�Y�͕ς��Ȃ����ƑO��j

### resources/��.csv
[�ǋL] 1542~1545�s�� �I�i�j�[�摜�̎Q�ƒǉ�

### resources/xx_��.png
[�ǋL] �I�i�j�[���ǉ�

## ����
v2 �S�L�������̃I�i�j�[�摜�ǉ�
v2 eraTx0690��荞��

path: 原版+前人整合等各种readme/パッチ/オナニー画像パッチv2/readme.txt


code:
�J�W�m�C��

���t�@�C���\��
 ERB��CASINO��CASINO_BJ.ERB
            ��CASINO_POKER.ERB

���C�����e
�E238�X��>>237�C��(CASINO_BJ.ERB)
�@���J���X�}��d�x���C���i�\����̂݁j
238�X��>>412�C��(CASINO_POKER.ERB)
�@���E�J���X�}��d�x���C��
�@���E�J���X�}���ʗʕs���C��

���C���҃�������
�ECASINO_POKER.ERB�̃J���X�}���ʗʕs���ɂ���
  �J�W�m�ł̃J���X�}�����ɂ��Ă�
�@CALL CASINO_MONEY(type, arg)�̊֐��ŏ������Ă��܂����A
�@�֐��Ăяo����ł�[FLAG:�J���X�}����]�����������邱�Ƃɂ��
�@�����o���ł������i�g���قۗ̕L�J���X�}�ʁj�Ȃǂ�
�@�Ǘ����Ă���悤�ł��B
�@�i�v�Z��͌Œ�l-�s�ꗬ�ʗʂ��g���ٕێ��ʂƂ��Ă���j
�@�Ȃ̂Œ���TOTAL:2(�v���C���[�̏����J���X�})�𑝂₷��
�@�ۗL�J���X�}�͌��炳���ɐV�K�J���X�}�𔭍s���錸���������B
�@��������Ă���炵���J���X�}���ʗʂ̃o�����X��
�@�Ԃ��󂷌��ʂɂȂ肻���B
�@�܂��A���ɂ��Ă����l��[FLAG:������]�ŊǗ����Ă���悤�ł���
�@�������̕��܂ł͉e�����m�F�ł��B
�@�S�\�[�X���m�F���Ă���킯�ł͂Ȃ��̂ŁA
�@�J�W�m�ȊO�Ŏx�������J���X�}���g���قɊҌ�����Ă���̂��͕s���B
�@�i����Ă��Ȃ���΂��������������j

by238-412

path: 原版+前人整合等各种readme/パッチ/カジノ修正/れどめ.txt


code:
Q.����͂Ȃ�

A.�J�����_�[�@�\�̊댯���ɁA���łɎ󐸍ς݂̂��̖��O���s���N�ɂ���p�b�`����
�댯���c�A�[���̖��ʂȃ^�C�����X�����炷���߂ɒǉ�������B
�J�����_�[��267�s�ڂ��炢��
	;		�����ςȂ疼�O���s���N�ɂ���
			SIF CFLAG:LOCAL:�D�P�o�ߓ���
				SETCOLOR C_PINK
��t����������������B

path: 原版+前人整合等各种readme/パッチ/カレンダー/readme_カレンダーに着床済確認機能を追加.txt


code:
dairi���͂邩���̃t���[�����G�f�ނ����H�����Ă��������܂���
���p�K��͈͓��ł���Ǝv���܂����A��������΂�����̉摜�͍폜�������܂�
���p��eraTW���Ɍ���A���쌠��dairi�l�y�т͂邩�l�ɋA�����܂�
�܂���L�̂������era�֘A�Ŗ₢���킹�邱�Ƃ̂Ȃ��悤�ɂ��肢���܂�

�ȉ��z�z���Ɍf�����ꂽ�u-�f�ޗ��p�K��-.txt�v���甲�����ē]�L
��������������������������������������������������

�@������͓���project�L�����N�^�[�̗����G�f�ނł��B
�@�����p�̍ۂ͈ȉ��̋K�������肭�������B

�@�� ����project�̃K�C�h���C�������炵�Ă��g�����������B

�@�� �I�����C���X�g���[�W�ւ̒��ڃ����N�͂������������B

�@�� ���p���p�A�Ĕz�z�͂������������B
�@�@ �j�R�j�R�̃N���G�C�^�[����v���O�����ւ̓o�^�A
�@�@ Youtube��HP�̍L�������ɂ��Ă͖�肠��܂���B

�@�� ���H�ɐ����͂���܂���B���J�����R�ł����A
�@�@ ���f�ނ����C���Ƃ�����i�̔z�z�͂��~�߉������B
�@�@�i�قڑf�ނ��̂܂܂̉摜�A�O�b�Y�A�A�C�R�����j
�@�@
�@�� ���f�ނ����g�̑n�앨�ł��邩�̂悤�ɐU�����s�ׂ͉��H��ł����Ă�����߂��������B

�@�� �g�p�񍐂͋����ł͂���܂���B
�@�@ �j�R�j�R���ł���Αf�ނ̂����ꂩ��e��i�ɂ��ĖႦ��Ƃ��m�点���͂��܂��̂ŁA�m�点�ĖႦ��Ɗ�т܂��B

�@�� �f�ޗ��p��̃g���u�����͑S�Ď��ȐӔC�ł��肢���܂��B

path: 原版+前人整合等各种readme/パッチ/クラウンピース巨乳差分(別絵ver)/dairi＆はるか氏による素材利用規約.txt


code:
�N���E���s�[�X��������

�����G�ɗ�������I�ƌ����Ă��̂ō쐬
�������ŖX�q�����Ə��σ}�}�@�ƌ������Â炢�̂Ŕ킹���ςȂ��ł�
�Ȃ����ʏ�̋��������Ŏ�荞�ނƕ\���G���[�A�������̂ŕʊG�����ɕύX
UPDATE�Ŏ�荞�݌�A[�\���ݒ�]���獷��[ON]�Ńo�X�g�T�C�Y�֌W�Ȃ��ؑ֕\���ł��܂�

path: 原版+前人整合等各种readme/パッチ/クラウンピース巨乳差分(別絵ver)/readme.txt


code:
-----導乳-------------------------------------------------------------------------

乳首差分まとめ_別人改良版
http://book-shelf-end.com/up2/dwlink.cgi?eraTx0402.zip

上記画像セットをダウンロードして適応した後にこの差分を上書きして下さい。
INFOのお兄ちゃんありがとー！

----------------------------------------------------------------------------------
……………………よく分らないけど動いてるからヨシ！
	小さすぎる、大きすぎる等の意見があればなるべく反映します(半ギレ)

裸の時にマウスオーバーで画像変化させる方法募集中

-----サグメ裸差分----------------------------------------------------------------
MMD使ってポージングさせられないか試行錯誤中

立ち絵csvを整理
	差分がない座標指定をコメントアウトしてたり着衣座標指定してたりするが特に意味はなさそうなのでコメントアウトで統一
	裸差分があるのにコメントアウトしてたやつも復活させたけど何か理由があってコメントアウトしてたなら戻してください

-----ドレミー裸差分--------------------------------------------------------------
切り貼りやめて完全書き下ろしに挑戦
	なんか違和感あるけど初めてだしまあええやろ？

-----増量版----------------------------------------------------------------------
そこそこ画像弄れるようになったのでプチ整形とか改変も始めました
	戻してくれとか要望あったら聞いてやるよ(半ギレ)

リリーW&Bを差別化しました
	別人として二人いるなら明確に分けた方が良いので
映姫、さとりの睡眠差分追加
椛の発情差分追加
依姫の恥情差分追加
	(快楽刻印3かうふふ中に欲情ソースが一定値を越えると普通の差分に戻ります)
	割と適当に設定したのでどこくらいまで恥じらって欲しいか要望があったら受け付けてます

-----改修版----------------------------------------------------------------------
実験的に夢子の睡眠時画像を追加しました
	目を開けたまま寝てる少女を犯すのはつらいので
お燐に発情表情オーバーレイを追加しました
	どうやって画像上書きされてるのか分らない…怖い…

使用した立ち絵作者様：kaoru
作者様のサイト：http://gensoukyou.1000.tv/


code:
���e��
	�E�����J�X�C�b�`
	�E�����X�C�b�`
	�E���ӃX�C�b�`

������
	�Y���L�����̉摜��ύX���܂�
	����������Ƌ��ɃX�C�b�`��ǉ�����p�b�`�ł��B�����Ă݂����ł���

�g����
	resources�ɏ㏑������B�O�̂��ߌ��̓����t�@�C��������Ă����ƈ��S
	��A�b�v�ł̎g�p�𐄏�

�ׂ�������
	����������ʒu�ɒ������邽�߂ɉ�ʂ̈ʒu�Ƃ��k�����Ƃ��ύX�B���Ǝ�ŋ����̂��̂��傫���Ȃ��Ă܂�
	���ɂ����傱���傱������Ă���܂�

�厖�Ȃ���
	�摜�̒��쌠��kaoru���ɋA�����܂�

��r�I�ǂ��ł��ǂ�����
	�����v���C���D���Ȃ̂ŋz���t�������Ȃ銴�����o��悤�S�����܂���

�o���Ȃ���������
	�摜�̃r�b�g���[���Ȃ��ăt�@�C���T�C�Y�����ނ��Ƃ̉����B��������������Ƃ��Ȃ�򉻂��Ă��܂��c


code:
-----導乳-------------------------------------------------------------------------

乳首差分まとめ
http://book-shelf-end.com/up2/dwlink.cgi?eraTx0400.zip

上記画像セットをダウンロードして適応した後にこの差分を上書きして下さい。

----------------------------------------------------------------------------------
……………………よく分らないけど動いてるからヨシ！
	小さすぎる、大きすぎる等の意見があればなるべく反映します(半ギレ)

裸の時にマウスオーバーで画像変化させる方法募集中

-----ドレミー裸差分--------------------------------------------------------------
切り貼りやめて完全書き下ろしに挑戦
	なんか違和感あるけど初めてだしまあええやろ？

-----増量版----------------------------------------------------------------------
そこそこ画像弄れるようになったのでプチ整形とか改変も始めました
	戻してくれとか要望あったら聞いてやるよ(半ギレ)

リリーW&Bを差別化しました
	別人として二人いるなら明確に分けた方が良いので
映姫、さとりの睡眠差分追加
椛の発情差分追加
依姫の恥情差分追加
	(快楽刻印3かうふふ中に欲情ソースが一定値を越えると普通の差分に戻ります)
	割と適当に設定したのでどこくらいまで恥じらって欲しいか要望があったら受け付けてます

-----改修版----------------------------------------------------------------------
実験的に夢子の睡眠時画像を追加しました
	目を開けたまま寝てる少女を犯すのはつらいので
お燐に発情表情オーバーレイを追加しました
	どうやって画像上書きされてるのか分らない…怖い…

使用した立ち絵作者様：kaoru
作者様のサイト：http://gensoukyou.1000.tv/


code:
���T�v
�p�C�Y������肢���ɋ��ō�����₷���Ȃ�܂��B

���ǉ����e
�E�e�p�C�Y�����s���̃p�C�Y���o���̐L�т��㏸
�E�����|���ꎞ�A���Z�I�ɉ����ăp�C�Y���I�𗦏㏸
�E�����|���ꎞ�p�C�Y���̉��a��}��

path: 原版+前人整合等各种readme/パッチ/パイズリ強化パッチ/readme.txt


code:
eraTW4.552�p�̋�\��o�����ی���+�d���p�b�`

���悤���܂˂ō�����d���p�b�`�ł��B

���ԑт����ύX�����v���Y�����o�[�O�o���Ɠ����ł��B
�d������`���ɂ��Ă����y�Z�\�ŕ��򂳂��悤�Ƃ���Ǝd��45�̒��g��邱�ƂɂȂ��Ă����܂ł͂��܂���������ł����Ǐ����Ƃ��Ċy�펝���ĂȂ��ƑʖڂȂ킯�Ŋy�펝���ĂȂ����͉̂��Ă��邱�Ƃɂł����悤���ȂƂ��l�������ʍl�����܂Ƃ܂�Ȃ������̂łƂ肠�������`������邱�Ƃɂ��܂����B

���g����
CSV��ERB�ɃR�s�[���ĉ������B

path: 原版+前人整合等各种readme/パッチ/九十九姉妹雷鼓口上+仕事パッチ/readme.txt


code:
乳首差分まとめパッチを改良したものです
INFO改良パッチの画像部分のみを移植してます

主な改変点は
表示方法の簡略化、マウスオーバー機能の修正、余白の削除です
顔.csvファイルも分類を判りやすくしたつもり

ちなみにマウスオーバー時の変化は@表情変化のRESULTS:1で行ってます

・不明点
華扇の母乳差分がcsvにはあるけど見つからない
響子の特殊服装が存在はするけど分岐がない（着替える条件がない）

作者：holy

▼以下、「乳首差分まとめ」作者さんのreadme

……………………よく分らないけど動いてるからヨシ！
	小さすぎる、大きすぎる等の意見があればなるべく反映します(半ギレ)

裸の時にマウスオーバーで画像変化させる方法募集中

-----増量版----------------------------------------------------------------------
そこそこ画像弄れるようになったのでプチ整形とか改変も始めました
	戻してくれとか要望あったら聞いてやるよ(半ギレ)

リリーW&Bを差別化しました
	別人として二人いるなら明確に分けた方が良いので
映姫、さとりの睡眠差分追加
椛の発情差分追加
依姫の恥情差分追加
	(快楽刻印3かうふふ中に欲情ソースが一定値を越えると普通の差分に戻ります)
	割と適当に設定したのでどこくらいまで恥じらって欲しいか要望があったら受け付けてます

-----改修版----------------------------------------------------------------------
実験的に夢子の睡眠時画像を追加しました
	目を開けたまま寝てる少女を犯すのはつらいので
お燐に発情表情オーバーレイを追加しました
	どうやって画像上書きされてるのか分らない…怖い…

使用した立ち絵作者様：kaoru
作者様のサイト：http://gensoukyou.1000.tv/

path: 原版+前人整合等各种readme/パッチ/乳首差分まとめ_別人改良版/readme.txt


code:
……………………よく分らないけど動いてるからヨシ！
	小さすぎる、大きすぎる等の意見があればなるべく反映します(半ギレ)

裸の時にマウスオーバーで画像変化させる方法募集中

-----増量版----------------------------------------------------------------------
そこそこ画像弄れるようになったのでプチ整形とか改変も始めました
	戻してくれとか要望あったら聞いてやるよ(半ギレ)

リリーW&Bを差別化しました
	別人として二人いるなら明確に分けた方が良いので
映姫、さとりの睡眠差分追加
椛の発情差分追加
依姫の恥情差分追加
	(快楽刻印3かうふふ中に欲情ソースが一定値を越えると普通の差分に戻ります)
	割と適当に設定したのでどこくらいまで恥じらって欲しいか要望があったら受け付けてます

-----改修版----------------------------------------------------------------------
実験的に夢子の睡眠時画像を追加しました
	目を開けたまま寝てる少女を犯すのはつらいので
お燐に発情表情オーバーレイを追加しました
	どうやって画像上書きされてるのか分らない…怖い…

使用した立ち絵作者様：kaoru
作者様のサイト：http://gensoukyou.1000.tv/


code:
・導乳
	中身をぶちまけるだけです

使用した立ち絵作者様：kaoru
作者様のサイト：http://gensoukyou.1000.tv/

path: 原版+前人整合等各种readme/パッチ/乳首差分夏服対応パッチ/readme.txt


code:
�E�C���p�b�`
�w�E���ꂽ20�l�ȏ�̉���ŃG���[����������̏C���ł��B
������ŏ���ɏ�������ł̓������̃p�b�`���������Ă��܂��B���������������B
�����f�����������܂����B
�E���܂�
�T�C�Y�A�b�v�E�����ǉ��ŏo�������̂����s�d�l�ɕϊ����܂����B
�d�v�ȕύX�_�́A�ςs���Ɂuwelcome�v���Ă����Ɠǂ߂�Ƃ���ł��B
�����ɖX�q���B��Ă��܂��̂ƁA������������Ȃɕς���ĂȂ��̂Ő֖ؑ��Ή��B�����͂��D�݂�

path: 原版+前人整合等各种readme/パッチ/修正パッチ・おまけ/READ ME.txt


code:
�E���@���̖ʁX�i�i�Y�[�����E�ʂ��E���@�E��ցE�����T�E���E���q�E�����i���ꂼ���G�̂݁j�j�ɐ��t����̃G�t�F�N�g��ǉ��B
�@�����P�͋Z�p�I�Ȗ��ɂ�茩����܂����B�������炸
�E���@�i�����G�j�ɉĕ������ǉ�
�E��ցi�����G�j�ɐS�Y�O�ł�ǉ�

path: 原版+前人整合等各种readme/パッチ/命蓮寺resources書き足し差分/りどみ.txt


code:
ダブル系コマンド口上がもっと流行るといいな…という信念のもと、
命蓮寺キャラのダブル系コマンド(ダブルフェラ、ダブルパイズリ)2人目口上を加筆しました。

〇導入方法
同梱のERBフォルダをD&Dしてください。
※念のため、上書き前にバックアップを取っておくことをお勧めします。

改変を行ったERBファイルの名称は下記の通りです。
---------------------------------------------------------
M_KOJO_K39_奉仕系コマンド.ERB　;ナズーリン
M_KOJO_K41.ERB　;ぬえ
M_KOJO_K55_派生コマンド　;聖
M_KOJO_K87.ERB　;星
---------------------------------------------------------
キャラの呼称等には気を付けたつもりですが、確認のモレがあったら申し訳ございませんがera板+にて報告していただけると幸いです。
お手数おかけしますが、よろしくお願いいたします。

各口上についての加筆内容に関するライセンスの詳細については、各口上内の
ダブル系口上加筆 Readme.txt
をご参照ください。
(基本的には、元にした口上のライセンスにのっとっています)

〇加筆可否メモ
・ナズーリン…未記入部位加筆〇
・小傘…加筆は要相談
・ぬえ…未記入部位加筆〇
・聖…加筆改変〇
・マミゾウ…加筆改変×
・一輪…ライセンスに関する記述なし
・ムラサ…未記入部位加筆〇　readmeに更新履歴あり
・星…改変者・改変されたことが明記されていれば〇
・響子…改変者の明記があれば〇
・女苑…加筆〇

・こいし、こころ…加筆〇だが命蓮寺住まいではないので今回は見送り　こいしちゃんのウフフ口上ホント好き

path: 原版+前人整合等各种readme/パッチ/命蓮寺ダブル系口上/2022.命蓮寺ダブル系口上パッチreadme.txt


code:
���@���ɏZ�ݍ��ނƏ�������񂪖��@�����炢�Ȃ��Ȃ��Ă��܂��������݂����̂�
���������̐Q���𖽘@���̋q�Ԃɂ���p�b�`���쐬�B

�y���ĕ��z�o�b�N�A�b�v����Ă���̃p�b�`���Ă𐄏����܂��B
ERB��MOVEMENTS��CHARAMOVE��CHARMOV�`���㏑��
CSV��Chara��Chara125 �������㏑��

�y���ӓ_�z���łɃv���C���[�����@�����Z���ɂ��Ă�ꍇ�A����ɓ��삵�Ȃ����Ƃ�����܂��B
��x�����z�����ďZ�������Z�b�g����Ǝ���̂��m�F���Ă���̂ł��������������B

path: 原版+前人整合等各种readme/パッチ/女苑住居設定パッチ/りどみ.txt


code:
小悪魔CSV案:一応正式なパッチ
「いやあ…おかしくねぇか?」って話があったらツッコんでほしい

小悪魔長髪短髪切り替え;未完成口上
なので本体にはぶち込まず、テキストエディタで直接読んでね!記述探すの面倒だったり、間違えてたりでコメントアウトしてる部分もあるし!

path: 原版+前人整合等各种readme/パッチ/小悪魔長髪短髪切り替えver.0.1別人修正版に画像押し付け版/それぞれのせつめい.txt


code:
一部インデントの整理。
掃除コマンド分岐の修正。
髪型設定機能。
まだ画像が対応してないから現在のヘアスタイルが確認しづらいため、ステータス画面のキャラ紹介で見れるように。

path: 原版+前人整合等各种readme/パッチ/小悪魔長髪短髪切り替えver.0.1別人修正版に画像押し付け版/改変者によるreadme.txt


code:
既存絵と並立させる為別顔・別立ちでリソース作成しています
使用する場合UPDATEで差し替え画像を選択、[表示設定]から差分[ON]にしてください
既存の小悪魔口上にも差分絵は適用されますが髪の長さは長髪で固定されます

※口上作者様へ
・イベント/独自関数/Chara_data_59_小悪魔.ERBの他、CSVファイルにも変更入っているので注意してください(別顔・別立ちフラグ)
・髪の長さ三択にしましたが口上作成で負担になるなら二択に戻せます
  その場合、M_KOJO_K59_1_イベント.ERB 77行目と78行目、102行目と104行目のコメントアウトをそれぞれ入れ替えてください
・(作成者の趣味で)妊娠差分入ってます。デフォでは妊娠40日目～出産までの間勝手に切り替わります

path: 原版+前人整合等各种readme/パッチ/小悪魔長髪短髪切り替えver.0.1別人修正版に画像押し付け版/画像作成者によるreadme.txt


code:
画像差分をおすそ分け

霊夢：冬服差分に表情追加。
魔理沙：冬服差分追加。
白蓮：夏服差分追加。サイズ合わせのついでに表情一部改変。
隠岐奈：新規画像追加。差し替え方法はおまかせします。

霊夢・白蓮・隠岐奈は差し替え前の画像をbakファイルに拡張子変更。戻したい場合は拡張子をwebpに変換すればok

4.782の初期状態から追加したので他の差し替え画像を追加で導入してる場合は、お手数ですが該当箇所を手打ちして使ってください

path: 原版+前人整合等各种readme/パッチ/差し替えresources/りどみ.txt