code:
;��������������������������������������������������
;�n�[�h�Ȓ����R�}���h
;��������������������������������������������������
;==================================================
;140,�C���}�`�I
;==================================================
@M_KOJO_MESSAGE_COM_K109_140
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_140_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_140_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;�T�O���Ȃ肫�莞
		IF FLAG:�Ȃ肫�� == 110
		ELSEIF FLAG:70
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORML �u�A�̉��܂łȂ�āc����Ȃ́c���I�J�G�b�I�H�v
			PRINTFORMDW %CALLNAME:MASTER%�͗L�������킹���A���ɓ˂����ꂽ
		ENDIF
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;�T�O���Ȃ肫�莞
	IF FLAG:�Ȃ肫�� == 110
	;������
	ELSEIF FLAG:70
		PRINTFORMW
		RETURN 1
	;�o�����O
	ELSEIF BASE:PLAYER:2 > 8000
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u���J�b�c�����J�bHPH�v","L"
			PRINTFORMDL �ː����ߕt���A�A���ɓ˂�����鑬�x���オ���Ă���ƃh���~�[�͗܂ƕ@���Ŋ�������Ⴎ����ɂ��Ȃ���q�f��
			PRINTFORMDW %CALLNAME:MASTER%�����낻��ː������Ɛ錾����ƁA�h���~�[�͑S�g�̗͂𔲂��󂯓���Ԑ��ɓ�����
		CASE 1
			CALL HPH_PRINT,@"�u���J�فJ�bHPH�����bHPH�񂮂����b�cHPH�v","L"
			PRINTFORMDL �h���~�[���C�����]�T�̖����Ȃ���%CALLNAME:MASTER%�́A�����Ђ�����ɍA���ւƓ��_��˂������
			PRINTFORMDW �݂��Ђ�����Ԃ�悤�Ȋ��o�̘A���Ƀh���~�[�͂����ς��邱�Ƃ����ł��Ȃ��c
		CASE 2
			CALL HPH_PRINT,@"�u���b�A���J�G�J�b�c��J���J�b�c����HPH�v","L"
			PRINTFORMDL ���ۂ��A���ۂ��A�Ƃ܂�ŃI�i�z�̂悤�Ƀh���~�[�̍A��Ƃ��Ă���
			PRINTFORMDW �ː����߂��Ȃ���%CALLNAME:MASTER%�́A�r���Ɍ����č���U�鑬�x���グ��
		ENDSELECT
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u�ԃbHPH�c�ӂ��J���J�c�����bHPH�v","L"
			PRINTFORMDL �h���~�[�͂܂�ŕ��̂悤�Ɉ����邱�Ƃɕs�v�c�ȍV�g���������Ă���
			PRINTFORMDW ����ȗl�q��m���Ă��m�炸���A%CALLNAME:MASTER%�̓h���~�[�Ɏ����������邱�ƂȂ��Ђ�����ɍA���ɓ˂�����
		CASE 1
			CALL HPH_PRINT,@"�u���J�ԃb�I�H�c�t�[�bHPH�c���b�c�t�[�bHPH�v","L"
			PRINTFORMDL %CALLNAME:MASTER%�̓h���~�[�������|���Ɗ�ʂɌׂ�A�܂�ŏ��I�i�����邩�̂悤�ɍA���ɓ��_��˂����ꂽ
			PRINTFORMDW �h���~�[�͍ŏ��̓���%CALLNAME:MASTER%�̐K��͂ݖ\��Ă������A�₪�đ�l�����Ȃ����c
		CASE 2
			CALL HPH_PRINT,@"�u���A��J���b�c���J�b�A���b�A�����bHPH�v","L"
			PRINTFORMDL %CALLNAME:MASTER%�̓h���~�[�̓����K�b�`���ƃz�[���h����ƁA�����������C�����ǂ��Ȃ�ׂɍA��Ƃ��Ă���
			PRINTFORMDW �C�����ǂ������ɟ��𐂂炷%CALLNAME:MASTER%�̎p�����āA�h���~�[�͌҂�G�炵�q�{���u�������c
		ENDSELECT
	;����3
	ELSEIF MARK:�s������ == 3
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u�b�b�c�����A���Ղ��A�I�J�G�b�c�v
			PRINTFORMDL �A����Ƃ���Ă���h���~�[���q�f�����A�H���̓�����͓��_���s�b�`���ƍǂ��݉t�̈�H����ʂ錄�Ԃ͂Ȃ�
			PRINTFORMDW %CALLNAME:MASTER%�̓h���~�[�̓��𕏂ŉA�s�����������ƁA��C�ɓ˂�����
		CASE 1
			PRINTFORML �u��J��J�b�c�G�J�b�c�S�A�G�J�b�c�v
			PRINTFORMDL �h���~�[�ׂ͒ꂽ�J�G���̂悤�ș���グ�Ȃ���A�����ɗ^������\�͂ɑς��Ă���
			PRINTFORMDW ���܂肪�ア�Ǝv����%CALLNAME:MASTER%���A���O�b�ƒ͂ނƁA�h���~�[�͔������ڂ𔍂���������Ɛ��炵��
		CASE 2
			PRINTFORML �u�b�b�c�c�c�v
			PRINTFORMDL �h���~�[�͍A�ɓ˂������ꂽ���_�̏Ռ��ɖڂ����J���d�����Ă���
			PRINTFORMDW �n�s�S���N����%CALLNAME:MASTER%���@��E�܂ނƁA�ċz�𕕂���ꂽ�h���~�[�̓o�^�o�^�Ɩ\�ꂽ
		ENDSELECT
	;����ȊO
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u���A���c�c�ԁA�ӂ��c�v
			PRINTFORMDL �h���~�[�͍A���ɓ˂������ꂽ���_�ɖڂ𔒍������Ă���
			PRINTFORMDW %CALLNAME:MASTER%�͂���ȃh���~�[�̗l�q�����ď����y�[�X���ɂ߂�
		CASE 1
			PRINTFORML �u�Ԃ��J�b�c�񂲂��c�񂭁c�v
			PRINTFORMDL �s�ӂɃY���b�ƍA�ɓ˂������ƁA�h���~�[�͓؂̂悤�Ȑ����グ�r�N���Ɛg�̂𒵂˂�����
			PRINTFORMDW %CALLNAME:MASTER%�͂��̗l�q�ɖ��������ɔ��΂ނƁA�s�X�g�����ĊJ�����c
		CASE 2
			PRINTFORML �u���J���b�c����c�������c�v
			PRINTFORMDL ���\�Ȓ��}�ɍR�c�̐����グ�悤�Ƃ����h���~�[�̐H���ɉA�s��˂����ꕕ�E����
			PRINTFORMDW �H���ǂɋT�����C�����悤�Ɉ��������ƁA�h���~�[�͕@���𐂂炵�Ȃ���q�f����
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;141,�t�B�X�g�t�@�b�N
;==================================================
@M_KOJO_MESSAGE_COM_K109_141
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_141_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_141_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;142,�A�i���t�B�X�g
;==================================================
@M_KOJO_MESSAGE_COM_K109_142
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_142_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_142_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;143,�����t�B�X�g
;==================================================
@M_KOJO_MESSAGE_COM_K109_143
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_143_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_143_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;144,���A
;==================================================
@M_KOJO_MESSAGE_COM_K109_144
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_144_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_144_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;145,�A�i����d����
;==================================================
@M_KOJO_MESSAGE_COM_K109_145
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_145_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_145_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;146,������{�v���O
;==================================================
@M_KOJO_MESSAGE_COM_K109_146
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_146_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_146_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;�����t����
	IF TEQUIP:����
		;����
		IF TALENT:����
			PRINTFORMW
			RETURN 1
		;����3
		ELSEIF MARK:�s������ == 3
			PRINTFORMW
			RETURN 1
		;����ȊO
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;����
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;147,�g���o���[��
;==================================================
@M_KOJO_MESSAGE_COM_K109_147
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_147_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_147_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TEQUIP:�g���o���[��
		;����
		IF TALENT:����
			PRINTFORMW
			RETURN 1
		;����3
		ELSEIF MARK:�s������ == 3
			PRINTFORMW
			RETURN 1
		;����ȊO
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;����
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;148,�A�i���d��
;==================================================
@M_KOJO_MESSAGE_COM_K109_148
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_148_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_148_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TEQUIP:�A�i���d��
		;����
		IF TALENT:����
			PRINTFORMW
			RETURN 1
		;����3
		ELSEIF MARK:�s������ == 3
			PRINTFORMW
			RETURN 1
		;����ȊO
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;����
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;150,���̒J�Ԃ�Ƃ�
;==================================================
@M_KOJO_MESSAGE_COM_K109_150
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_150_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_150_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u����HPH����ȁA���\�Ɂc��HPH�v","L"
			PRINTFORMDL %CALLNAME:MASTER%�̓h���~�[�̋����񂹏グ��悤�ɒ͂ނƁA�p���p���ƍ���ł��t����
			PRINTFORMDW �����Ɏw�œ�������ˉ񂵂Ă��ƁA�h���~�[�͗��\�ɋ���Ƃ���Ă���ɂ��ւ�炸�g������N���w�g����x�K���ɑł��k����
		CASE 1
			CALL HPH_PRINT,@"�u������HPH��l�������ĂȂ���_������Ȃ��ł���HPH�v","L"
			PRINTFORMDL �h���~�[�͂܂�ł���������q���z�߂�悤�Ȍ����ŕ�d�𑱂��Ă���
			PRINTFORMDW �^�Ƃ΂���Ƀh���~�[�������M���E�b�Ɖ����グ��ƁA�ƑS�̂����̊C�Ɉ�������������%CALLNAME:MASTER%�͎v�킸����グ��
		CASE 2
			CALL HPH_PRINT,@"�u�񂣂�HPH�����ς������͂񂶂�_���ł���c��HPH�v","L"
			PRINTFORMDL ���œ��_�������������Ɏv�킸�h���~�[�̋���h�݂͂ɂ��Ă��܂�
			PRINTFORMDL �h���~�[�͌��ł͒�R���Ă��邪�A�ǂ������������ɂ��Ă���c
			CALL HPH_PRINT,@"�u�w�R�w�R���U��Ȃ��玄�̂����ς��ɃJ�E�p�[�C��t���āc���傤���Ȃ��l�ł��˂��cHPH�v","L"
		ENDSELECT
		RETURN 1
	;����ȊO
	ELSE
		CALL AUTO_AEGI(NO:TARGET)
		RETURN 1
	ENDIF
ENDIF
RETURN 1

repo_name: akadiya/eratw

path: 原版+前人整合等各种readme/パッチ/eraTW4.762用 贈り物パッチ1.11/ERB/口上・メッセージ関連/個人口上/ドレミー/M_KOJO_K109_ハードなコマンド.ERB

license: unknown


code:
@M_KOJO_IRAIEXIST_K109(IRAI_NO)
#DIM  IRAI_NO   ;�}���������ʈ˗��i���o�[
;������}�����������ꍇ�́A�hRETURN 0�h�ɕύX���邱��
SELECTCASE IRAI_NO
	[SKIPSTART]
	;�|������`���āi���������FTARGET�����C���}�b�v�ݏZ�j
	CASE 1
		RETURN 1
	;���Ԃɐ��������āi���������FTARGET��MASTER�N���\�̎���Z�܂����A���C���}�b�v�ݏZ���A�e���Q�ȏ�j
	CASE 2
		RETURN 1
	;��������ɂ����ځi���������FTARGET��TALENT:�c�t�����j
	CASE 3
		RETURN 1
	;�������ɂȂ肽���i���������FTARGET�̗����Z�\��MASTER�������AMASTER�̗����Z�\���Q�ȏォ�A�e�����R�ȏ�j
	CASE 4
		RETURN 1
	;���P�ɂ������āi���������FTARGET�̐퓬�\�͂�MASTER�ȉ����A�e�����Q�ȏォ�l���ȊO�j
	CASE 5
		RETURN 1
	;�N�������āI�i���������FTARGET�̋��{��MASTER�ȉ��j
	CASE 6
		RETURN 1
	;��|�����I���Ȃ��i���������FTARGET�����C���}�b�v�ݏZ���A�~��15������31���܂ł��A�e�����R�ȏ�j
	CASE 7
		RETURN 1
	;�莆��͂��āi���������FTARGET�̐M���x��30�ȏォ�ATARGET�ɕ��ʑ��肪�ݒ肳��Ă���iFUNC_IRAI.ERB��965�ڈȍ~�ɑ��݁j
	CASE 8
		RETURN 1
	;�N���̗��Ƃ����i���������FTARGET�̐M���x��30�ȏ�j
	CASE 9
		RETURN 1
	;�ǂ����Ă��݂���Ȃ�(���̂܂ܗ����Ă�)�i���������FTARGET�̐M���x��30�ȏ�j
	CASE 10
		RETURN 1
	;�ǂ����Ă��݂���Ȃ�(�N�����E���Ă�)�i���������FTARGET�̐M���x��30�ȏ�j
	CASE 11
		RETURN 1
	[SKIPEND]
	;���炵�߂āI�i���������FTARGET��CSV�ɐ퓬�\�͂��P�ȏ゠��ꍇ�j
	CASE 12
		RETURN 0
	;���܂������H�ׂ����Ȃ��i���������F�킩�����P�ȊO�j
	CASE 13
		RETURN 1
	[SKIPSTART]
	;���󖳂�
	CASEELSE
		RETURN 1
	[SKIPEND]
ENDSELECT

;==================================================
;�˗�����E�e�˗��ŋ��ʂ̌���
;==================================================
@M_KOJO_IRAI_K109(ROLE, SCENE, IRAI_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  IRAI_ID  ;�˗����̂�ID
#DIM  CLIENT_ID;�˗���ID���������o��������
#DIM  CHK_ID   ;�˗�ID���������o��������
#DIMS IRAI_NAME;�˗���
CHK_ID    = IRAI_ID % 1000
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
IRAI_NAME = STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
RESULT = 0
IF CHK_ID > 100
	TRYCALLFORM M_KOJO_IRAI_%IRAI_NAME%_K109(ROLE, SCENE, CLIENT_ID)
ELSE
	TRYCALLFORM M_KOJO_IRAI_{CHK_ID}_K109(ROLE, SCENE, CLIENT_ID)
ENDIF
SIF RESULT
	RETURN 1
;--------------------------------------------------
;�����ɂ���̂͊e�˗��ŋ��ʂ̌���ł�
;�˗����Ƃ̌����\�������ꍇ�͋��ʂ̌���͕\������܂���
;�y�z�ň͂��Ă���̂͌���O��̒n�̕��┭�����鏈���ł�
;WAIT�����邩���̖ڈ��ɂ��Ă��������iL,W�͂��ꂼ��PRINTFORML,PRINTFORMW�̗��j
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"
;���˗��������������鎞
;�yW �ǂ����m�ޏ��n�́m���Ȃ��n�ɗ��ݎ�������悤���z
;�y������z
;�y�˗��f�[�^�\���z
;�yINPUT�i������邩Y/N�j�z
	SETCOLOR 0xEC3860
	PRINTFORMW �u�ЂƂ��݂𕷂��Ă��������܂��񂩁H�v
	RESETCOLOR
CASE "�˗�������"
;�����e�������Ď�����Ȃ�������
;�yL �m���Ȃ��n�͒��d�ɂ��f�肵���z
;�y������z
;�yW �m�ޏ��n�͎c�O�����Ȋ�����Ă���z
	SETCOLOR 0xEC3860
	PRINTFORMW �u�d��������܂���ˁv
	RESETCOLOR
CASE "�˗������"
;���˗������������
;�yW �m���Ȃ��n�́m�ޏ��n�̈˗����󂯂��z
;�y������z
	SETCOLOR 0xEC3860
	PRINTFORMW �u����ł́A���݂܂�����v
	RESETCOLOR
CASE "�˗��m�F��"
;��[366]�ň˗����e���˗��l�Ɋm�F������
;�y������z
;�y�˗��f�[�^�\���z
;�yINPUT�i�j�����邩Y/N�j�z
	SETCOLOR 0xEC3860
	PRINTFORMW �u��A���͑厖�ł�����ˁv
	RESETCOLOR
CASE "�˗��j����"
;����������˗���j�����鎞
;�y������z
;�yW �˗���j�����܂����B�z
	SETCOLOR 0xEC3860
	PRINTFORMW �u�����ł����c�c�O�ł��v
	RESETCOLOR
CASE "�˗����s���O"
;��[367]�ň˗������s���鎞�A���s�����̑O�ɌĂяo�����
;���˗��ɂ���ď󋵂��傫���قȂ�̂ŋ��ʌ���͔񐄏�
;�y������z
;�y���s���̒n�̕��E�\�[�X���z
;�y�����̌���ɑ����z
	IF ROLE == "CLIENT"
	;�i���ʁjCLIENT�F�˗����s�̑Ώۂƈ˗���i�����j������̏ꍇ�i��ɓ��P�n�ł����ꏏ�ɑ{�����������ꍇ���܂܂�܂��j

	ELSEIF ROLE == "TARGET"
	;�i���ʁjTARGET�F����傪�˗����s�̑Ώۂł���ꍇ�i��ɔz�B�n�ł����{�����������ہATARGET�ɂ��Ă����ꍇ���܂܂�܂��j

	ENDIF
CASE "�˗����s����"
;��[367]�ň˗������s���鎞�A���s�����̌�ɌĂяo�����
;���˗��ɂ���ď󋵂��傫���قȂ�̂ŋ��ʌ���͔񐄏�
;�y����̌��ォ�瑱���z
;�y������z
;�y�B�����ECLIENT�F�����̌���ɑ����z
;�y�B�����ETARGET�F�Y�ꂸ�Ɂm�˗���n�ɕ񍐂��悤�z
	IF ROLE == "CLIENT"
	;�i���ʁjCLIENT�F�˗����s�̑Ώۂƈ˗���i�����j������̏ꍇ�i��ɓ��P�n�ł����ꏏ�ɑ{�����������ꍇ���܂܂�܂��j
		SELECTCASE CFLAG:CLIENT_ID:�˗���
		CASE 2
		;���s�㖢����

		CASE 3
		;���s��B��

		CASE 6
		;���s�㎸�s�i���݁u06_�N�������āI�v�̂݁j

		ENDSELECT
	ELSEIF ROLE == "TARGET"
	;�i���ʁjTARGET�F����傪�˗����s�̑Ώۂł���ꍇ�i��ɔz�B�n�ł����{�����������ہATARGET�ɂ��Ă����ꍇ���܂܂�܂��j
		SELECTCASE CFLAG:CLIENT_ID:�˗���
		CASE 2
		;���s�㖢����

		CASE 3
		;���s��B��

		CASE 6
		;���s�㎸�s�i���݁u06_�N�������āI�v�̂݁j

		ENDSELECT
	ENDIF
CASE "�����񍐎�"
;���񍐎��i�����j
;�y�˗����s�ƕ񍐂������̎��F����̌��ォ�瑱���z
;�y������z
;�y�\�[�X�̓���E�A�C�e�����̕�V�l���z
	SETCOLOR 0xEC3860
	PRINTFORMW �u���肪�Ƃ��������܂����B���ӂ��܂��v
	RESETCOLOR
CASE "���s�񍐎�"
;�����ڎ��s�񍐂͌��݁u06_�N�������āI�v�̂�
;���񍐖Y��E�����؂�ɂȂ����ہA�������̍Ō�ɌĂяo�����
;�i�������j�y���A���z���y�@���̗ǂ������z���y���@�m�z���y�Փ��C�x���g�z���y���R�R�I�z�i���A�˗����s���肪����ƃf�[�g�̂��U���͔������܂���j
;�y������z
;���@���̕ω���ǉ��̃y�i���e�B���͌��㑤�ŏ������Ă�������
	SETCOLOR 0xEC3860
	PRINTFORML �u�Y��Ă����������̂��w���܂łł���v
	PRINTFORMW �u�˗����Z�b�g�������Ė����������Ƃɂ��Ă����ʂł�����ˁH�v
	RESETCOLOR
CASE "�˗��񍐕s�v"
;����ʈ˗��ł͌��݁u02_���Ԃɐ��������āv�u09_�N���̗��Ƃ����v�̂�
;���N�����A�񍐕s�v�˗���B�����Ă����ꍇ�ɌĂ΂�����
;�i�N�����j�y�N�����b�Z�[�W�z���yX���ԐQ�����z���y���R�R�I�z���y���݂����E��[���z���y����J�n�z
;���n�̕��͂���܂���
;������傪���̏�ɂ��Ȃ��Ă��\������܂��iMASTER���Q�鎞�̃C�x���g����Ɠ����^�C�v�j

ENDSELECT
RETURN 1

;==================================================
;�˗�����E��ʈ˗�01�F�|������`����
;==================================================
@M_KOJO_IRAI_1_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��͈˗��傪TARGET�ł�
	IF YOGORE:(GET_CHARAHOME(TARGET)) < 1000
	;��ɑ|�����Ă��܂��Ă����ꍇ
	;�y������z
	;�yW �m�ޏ��n�̕����\���ɂ��ꂢ���z
	;�y�����̂܂܉��̌���ցz

		RETURN 0
	ELSE
	;�ꏏ�ɑ|������ꍇ
	;�y������z
	;�yW �m���Ȃ��n�́m�ޏ��n�Ƌ��͂��ĕ����̑|�����s�Ȃ����z
	;�y�����̂܂܉��̌���ցz

		RETURN 0
	ENDIF
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�����񍐎�"
;��V�F�ዉ�f��
;�y����̌��ォ�瑱���z
;�y������z
;�y��V�l���z

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�02�F���Ԃɐ���������
;==================================================
@M_KOJO_IRAI_2_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�y������z
;�yW �m���Ȃ��n�́m�˗���n�̉Ƃ̔��A����A�؂ɐ����������z
;�y�����̂܂܉��̌���ցz
	IF ROLE == "CLIENT"
	;����肵�����A�˗���ł������傪TARGET�̏ꍇ

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;����肵�����A�˗���ł͂Ȃ�����傪TARGET�̏ꍇ

		RETURN 0
	ENDIF
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
	IF ROLE == "CLIENT"
	;����肵�����A�˗���ł������傪TARGET�̏ꍇ
	;���̏ꍇ�͂��̂܂܉��̌���֑����܂�

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;����肵�����A�˗���ł͂Ȃ�����傪TARGET�̏ꍇ

		RETURN 0
	ENDIF
CASE "�����񍐎�"
;��V�F\500

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
CASE "�˗��񍐕s�v"

	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�03�F��������ɂ�����
;�����̈˗���[�c�t]�������Ă���L�����̂ݔ������܂�
;==================================================
@M_KOJO_IRAI_3_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��͈˗��傪TARGET�ł�
;�y������z
;�yW �m���Ȃ��n�́m�ޏ��n�ƗV�񂾁z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�����񍐎�"
;��V�F�D���x�ƐM���x�̂݁i�@�����ǂ��Ȃ�j
;�y����̌��ォ�瑱���z
;�y������z

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�04�F�������ɂȂ肽��
;==================================================
@M_KOJO_IRAI_4_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��͈˗��傪TARGET�ł�
;�y������z
;�yL �m���Ȃ��n�́m�ޏ��n�ƈꏏ�ɗ����������z
;�yW �m�������n�����܂��z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�����񍐎�"
;��V�F\500
;�y����̌��ォ�瑱���z
;�y������z
;�y��V�l���z
;�yL �ł��������͓�l�ł�������ɒ������z
;�y�H�����ʁi�����̓_�j�z

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�05�F���P�ɂ�������
;==================================================
@M_KOJO_IRAI_5_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��͈˗��傪TARGET�ł�
;�y������z
;�yW �m���Ȃ��n�́m�ޏ��n�ƒe���������̓��P�������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�����񍐎�"
;��V�F\500
;�y����̌��ォ�瑱���z
;�y������z
;�y��V�l���z

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�06�F�N�������āI
;==================================================
@M_KOJO_IRAI_6_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
	IF IS_LIBRARY(CFLAG:MASTER:���݈ʒu) && TARGET == CLIENT_ID
	;�m����ׂ��́n�Ɓm�����Ă�����n���d�Ȃ��Ă���ꍇ
	;�y������z
	;�yL �m���Ȃ��n�́m�ޏ��n�̋^��ɓ����邽�߂Ɂm���ݒn�n��K�ꂽ�z
	;�yL �����Ȃ���ɗ������������肻�����z
	;�yINPUT�i����ׂ���/�����Ă�����j�z
	;�y����ׂ��́��m���Ȃ��n�Ɓm�ޏ��n�́m���ݒn�n�Œ��ו��������z
	;�y�����̂܂܉��̌���ցz
	;�y�����Ă����遄�m�����Ă�����n�փW�����v�z

		RETURN 0
	ELSEIF IS_LIBRARY(CFLAG:MASTER:���݈ʒu)
	;�m����ׂ��́n���������A�˗���ł͂Ȃ�����傪TARGET�̏ꍇ
	;�y������z
	;�y�m���Ȃ��n�́m���ݒn�n�Œ��ו��������z
	;�y�����̂܂܉��̌���ցz

		RETURN 0
	ELSE
	;�m�����Ă�����n���i�˗��傪TARGET�j
	;�y������z
	;�yL �m���Ȃ��n�́m�ޏ��n�̋^��ɓ������z
	;�y�����F�m�ޏ��n�̋^��͕X�������I�z
	;�y���s�F�m�ޏ��n�͔[���ł��Ȃ������悤���c�c�z
	;�y�����̂܂܉��̌���ցz

		RETURN 0
	ENDIF
CASE "�˗����s����"
	;�y����̌��ォ�瑱���z
	;�y������z
	SELECTCASE CFLAG:CLIENT_ID:�˗���
	CASE 2
	;�m����ׂ��́n��������
		IF ROLE == "CLIENT"
		;�ꏏ�Ɂm����ׂ��́n��������

			RETURN 0
		ELSEIF ROLE == "TARGET"
		;�˗���ł͂Ȃ������̑O�Łm����ׂ��́n��������

			RETURN 0
		ENDIF
	CASE 3
	;����������
	;�y�����̂܂܉��̌���ցz

		RETURN 0
	CASE 6
	;���s������
	;�y�����̂܂܎��s�񍐎��̌���ցz

		RETURN 0
	ENDSELECT
CASE "�����񍐎�"
;��V�F\500

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�07�F��|�����I���Ȃ�
;==================================================
@M_KOJO_IRAI_7_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��͈˗��傪TARGET�ł�
	IF YOGORE:(GET_CHARAHOME(TARGET)) < 1000
	;��ɑ|�����Ă��܂��Ă����ꍇ
	;�y������z
	;�yW �m�ޏ��n�̕����\���ɂ��ꂢ���z
	;�y�����̂܂܉��̌���ցz

		RETURN 0
	ELSE
	;�ꏏ�ɑ|������ꍇ
	;�y������z
	;�yW �m���Ȃ��n�́m�ޏ��n�Ƌ��͂��ēO��I�ɕ�����|�������z
	;�y�����̂܂܉��̌���ցz

		RETURN 0
	ENDIF
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�����񍐎�"
;��V�F\1500
;�y����̌��ォ�瑱���z
;�y������z
;�y��V�l���z

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�08�F�莆��͂���
;�����̈˗��̓L�����ɂ���Ă͔������܂���
;==================================================
@M_KOJO_IRAI_8_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��ł͎莆��n����鑤�̌���ł�
;�y������z
;�yW �m���Ȃ��n�́m�ޏ��n�ɗa�����Ă����莆��n�����z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z

	RETURN 0
CASE "�����񍐎�"
;��V�F�f��4��

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�09�F�N���̗��Ƃ���
;==================================================
@M_KOJO_IRAI_9_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��ł͗��Ƃ�����n����鑤�̌���ł�
;�y������z
;�yW �m���Ȃ��n�́m�ޏ��n�ɗa�����Ă������Ƃ�����Ԃ����z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z

	RETURN 0
CASE "�����񍐎�"
;��V�F�㋉�f��

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
CASE "�˗��񍐕s�v"

	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�10�F�ǂ����Ă��݂���Ȃ��i�ꏊ�T���p�^�[���j
;==================================================
@M_KOJO_IRAI_10_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�y������z
;�yW �������T���Ă����m���Ȃ��n�͂��ɒT���Ă������Ƃ����𔭌������z
;�y�����̂܂܉��̌���ցz
	IF ROLE == "CLIENT"
	;�˗���ł�������ƈꏏ�ɔ��������ꍇ

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;�����������A�˗���ł͂Ȃ�����傪TARGET�̏ꍇ

		RETURN 0
	ENDIF
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
	IF ROLE == "CLIENT"
	;�˗���ł�������ƈꏏ�ɔ��������ꍇ

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;�����������A�˗���ł͂Ȃ�����傪TARGET�̏ꍇ

		RETURN 0
	ENDIF
CASE "�����񍐎�"
;��V�F�㋉�f��2��

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�11�F�ǂ����Ă��݂���Ȃ��i�l���T���p�^�[���j
;==================================================
@M_KOJO_IRAI_11_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��ł͎��������̎����Ă������̌���ł�
;�y������z
;�yW �������݂𑱂��Ă����m���Ȃ��n�͂��ɒT���Ă������Ƃ����𔭌������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z

	RETURN 0
CASE "�����񍐎�"
;��V�F\3200

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�12�F���炵�߂āI
;==================================================
@M_KOJO_IRAI_12_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��ł͓�������鑤�̌���ł�
	IF CANNOT_DANMAKU() == 1
	;�����̂Ƃ��i�����ł��Ȃ��j
	;�y������z
	;�yW ���O�Œ������c�z

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 2
	;�d�����i�����ł��Ȃ��j
	;�y������z
	;�yW ����荞�ݒ����c�z

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 3
	;���Ȃ�����J���i�����ł��Ȃ��j
	;�y������z
	;�yW ���͔��Ă���c�z

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 4
	;����傪��J���i�����ł��Ȃ��j
	;�y������z
	;�yW �����ނ̂̓t�F�A����Ȃ��c�z

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 5
	;���ɍ�����x�e�����������Ă���i�����ł��Ȃ��j
	;�y������z
	;�yW �����͂������߂Ȃ��c�z

		RETURN 0
	ELSE
	;�y������z
	;�yW �����J�n�I�I�z
	;�y�ȍ~�͂��̂܂ܒe�����オ�Ă΂�܂��z

		RETURN 0
	ENDIF
	;�y�����̂܂܉��̌���ցz
CASE "�˗����s����"
;�����̈˗��ł͓�������鑤�̌���ł�
	IF CFLAG:CLIENT_ID:�˗��� == 2
		IF CANNOT_DANMAKU() == 0
			;������
			;�y����̌��ォ�瑱���z
			;�yL �m�ޏ��n�̓����Ɏ��s�����c�c�z
			;�yW �c�c�����Ȃ��������o���������Ȃ��z
			;�y������z
			RETURN 0
		ELSE
			;���߂Ȃ������ꍇ
			;�y����̌��ォ�瑱���z
			;�y������z
			RETURN 0
		ENDIF
	ELSEIF CFLAG:CLIENT_ID:�˗��� == 3
	;����
	;�y����̌��ォ�瑱���z
	;�yW �m�ޏ��n�𒦂炵�߂��I�z
	;�y������z

		RETURN 0
	ENDIF
CASE "�����񍐎�"
;��V�F�܋��i�����j

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E��ʈ˗�13�F���܂������H�ׂ����Ȃ�
;==================================================
@M_KOJO_IRAI_13_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"
;�����̈˗��͈˗��傪TARGET�ł�
;�y������z
;�yL �m���Ȃ��n�́m�ޏ��n�ɂ��܂�����n�����z
;�yL �������������]���킢�Ă�����B�z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�˗����s����"
;�����̈˗��͕K�����s��B�����܂�
;�y����̌��ォ�瑱���z
;�y������z
;�y�����̂܂܉��̌���ցz

	RETURN 0
CASE "�����񍐎�"
;��V�F���ĂR��

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT

;==================================================
;�˗�����E�ŗL�˗�101�F
;�ŗL�˗��̎d�l�̓L�����ɂ���ĈقȂ�܂����˗��ԍ���101�`�ŋ��ʂł�
;"�˗���"�����Ɉ˗��������ĉ�����
;==================================================
@M_KOJO_IRAI_�˗���_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"

	RETURN 0
CASE "�˗����s����"

	RETURN 0
CASE "�����񍐎�"
;��V�F

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
CASE "�˗��񍐕s�v"

	RETURN 0
ENDSELECT

[SKIPSTART]
;��������������������������������������������������
;�˗�����e���v���̃e���v��
;==================================================
;�˗�����E��ʈ˗�Y�F
;==================================================
@M_KOJO_IRAI_Y_K109(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;�L�����̗���A�˗��҂������łȂ���
#DIMS SCENE    ;�Z���t�̕\�������^�C�~���O
#DIM  CLIENT_ID;�˗���ID���������o��������
;--------------------------------------------------
;RETURN 0 �̕����͋��ʂ̌��オ�\������܂�
;�˗����Ƃ̌����\�����镔���� RETURN 0 �� RETURN 1 �ɂ��Ă�������
;--------------------------------------------------
SELECTCASE SCENE
CASE "�˗��񎦎�"

	RETURN 0
CASE "�˗�������"

	RETURN 0
CASE "�˗������"

	RETURN 0
CASE "�˗��m�F��"

	RETURN 0
CASE "�˗��j����"

	RETURN 0
CASE "�˗����s���O"

	RETURN 0
CASE "�˗����s����"

	RETURN 0
CASE "�����񍐎�"
;��V�F

	RETURN 0
CASE "���s�񍐎�"

	RETURN 0
;CASE "�˗��񍐕s�v"
;�����̈˗��ɂ͂���܂���
;	RETURN 0
ENDSELECT
[SKIPEND]

path: 原版+前人整合等各种readme/パッチ/eraTW4.762用 贈り物パッチ1.11/ERB/口上・メッセージ関連/個人口上/ドレミー/M_KOJO_K109_依頼.ERB


code:
;-------------------------------------------
;����擾
;-------------------------------------------
@M_KOJO_MESSAGE_MARKCNG_K109
;���̂܂܂��ƒn�̕����\������܂���
;�n�̕���\�����������́A���L�̃R�����g�A�E�g���폜���ĉ�����
CALL MARK_MESSAGE
;��ɍ���
IF TFLAG:22 == 1
	SETCOLOR 0xEC3860
	PRINTFORML �u�ɂ��c�����c�v
	RESETCOLOR
	PRINTFORMDW �h���~�[�͒ɂ݂Ɋ�����߂Ă���
ELSEIF TFLAG:22 == 2
	SETCOLOR 0xEC3860
	PRINTFORML �u����ȏ�́c���c��߂Ă��c�I�v
	RESETCOLOR
	PRINTFORMDW �h���~�[�͒ɂ݂̗]��k���Ă���
ELSEIF TFLAG:22 == 3
	SETCOLOR 0xEC3860
	PRINTFORML �u������I�I�����������̂�Ȃ̂��I�I�I�v
	RESETCOLOR
	PRINTFORMDL �h���~�[�͗c���ލs�������̂悤�ɋ��������Ă���c
	PRINTFORMDW �d�����Ȃ��̂ŗ��������܂Ŕw�����C���Ă����
ENDIF

;��������
IF TFLAG:��������擾 == 1
	PRINTFORML ������y���M���Ă��ƁA�����Ɍł��u�N����
	PRINTFORMW �~�߂�ꂽ���̒��ŁA�h���~�[�̓��͖̂{�l�̈ӎv��u������ɂ��ĊJ�����i��ł���
ELSEIF TFLAG:��������擾 == 2
	PRINTFORML �N���g���X�ɑ��𐁂������Ă��ƁA�����������ꂽ��L���т��т��Ɛk������̈��t�𐂂ꗬ��
	PRINTFORMW ����t�������̒��ŁA%CALLNAME:MASTER%�͊J���������ɐi��ł��邱�Ƃ��m�F����
ELSEIF TFLAG:��������擾 == 3
	PRINTFORML ���͂�h���~�[�̓��̂Ɋւ��Ă͖{�l���ڂ������낤�Ƃ���������������
	PRINTFORML ���̏ォ��h���~�[�̃|���`�I�̕ӂ��D�������łĂ��B����Ǝ��~�߂��������ꂽ��L���璪�������オ����
	PRINTFORMW ����ɂ���āA�h���~�[�̓��̂�%CALLNAME:MASTER%�̑O�Ɋ��S�����������Ƃ��m�M�����̂�����
ENDIF

;���y����
IF TFLAG:23 == 1
	SETCOLOR 0xEC3860
	PRINTFORMW �u�c��肢�̂�������Ɖ������ł��ˁv
	RESETCOLOR
ELSEIF TFLAG:23 == 2
	SETCOLOR 0xEC3860
	CALL HPH_PRINT,@"�u����HPH�c�����Ƃ��Ă��������cHPH�v","L"
	PRINTFORMW �h���~�[�͂�����ɏ��񂾓��������Ă���
	RESETCOLOR
ELSEIF TFLAG:23 == 3
	SETCOLOR 0xEC3860
	CALL HPH_PRINT,@"�u�����J��HPH�񂨁J�����J���J��HPH�v","L"
	CALL HPH_PRINT,@"�u������HPH�D���ɂ��Ă�HPH�v","L"
	RESETCOLOR
	PRINTFORMDW ��~�Ɏx�z���ꂽ�h���~�[�͑̂�k�킹�Ă���
ENDIF

;�s������
;���y�ɂ�鍏�� �� �����A�����ɂ�鍏��
;LV1
IF TFLAG:24 == 11 || TFLAG:24 == 31
	SETCOLOR 0xEC3860
	PRINTFORMW �u�ӂӂ��c�����A�Ȃ�ł�����܂����v
	RESETCOLOR
;LV2
ELSEIF TFLAG:24 == 12 || TFLAG:24 == 32
	SETCOLOR 0xEC3860
	PRINTFORMW �u�Ȃɂ����ė~�������Ƃ͂���܂��񂩁c�H�v
	RESETCOLOR
;LV3
ELSEIF TFLAG:24 == 13 || TFLAG:24 == 33
	SETCOLOR 0xEC3860
	PRINTFORML �u%CALLNAME:MASTER%�c��v
	RESETCOLOR
	PRINTFORMW �h���~�[��%CALLNAME:MASTER%�ɖj�𐠂�񂹂Ă���
ENDIF

;��������
IF TFLAG:21 == 1
	SETCOLOR 0xEC3860
	PRINTFORML �u�΂��Ă�����ɂ�߂��ق����ǂ��ł���H�v
	RESETCOLOR
	PRINTFORMW �h���~�[�͂�����𖳕\��Ō��Ă���
ELSEIF TFLAG:21 == 2
	SETCOLOR 0xEC3860
	PRINTFORML �u�������Ɂc�e�̈�������Ȃ������̂ł��ˁv
	RESETCOLOR
	PRINTFORMW �h���~�[�͂�����Ɍy�̂̎����𗁂т��Ă���
ELSEIF TFLAG:21 == 3
	SETCOLOR 0xEC3860
	PRINTFORML �u�M������������߂Ƌ������𓙍߂ői���܂��I���R�͂�����񂨕�����ł��ˁH�v
	PRINTFORMW �u�M�������ɂƂĂ��������Ƃ����A��������lv3��t��������ł��I�v
	PRINTFORMW �u�o��̏��������Ă����Ă��������v
	PRINTFORML �u�߂������ɑi���܂��B�ٔ����N�����܂��B�ٔ����ɂ��ⓚ���p�ŗ��Ă��炢�܂��B�Ԏӗ��̏��������Ă����ĉ������I�v
	PRINTFORMW �u�M���͔ƍߎ҂ł��I�Y�����ɂԂ����܂��y���݂ɂ��Ă����Ă��������I�����ł��ˁI�v
	RESETCOLOR
ENDIF

path: 原版+前人整合等各种readme/パッチ/eraTW4.762用 贈り物パッチ1.11/ERB/口上・メッセージ関連/個人口上/ドレミー/M_KOJO_K109_刻印取得.ERB


code:
;��������������������������������������������������
;���s�n�R�}���h
;��������������������������������������������������
;==================================================
;100,�X�p���L���O
;==================================================
@M_KOJO_MESSAGE_COM_K109_100
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_100_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_100_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;�T�O���Ȃ肫�莞
	ELSEIF FLAG:�Ȃ肫�� == 110
		PRINTFORML
		CALL AUTO_AEGI(NO:TARGET)
		RETURN 1
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		PRINTFORMDL �h���~�[�̗h���K��O�ɗ~����}�����Ȃ��Ȃ���%CALLNAME:MASTER%�͎��U��グ��Ǝv���؂�����@����
		PRINTFORML �u���Ⴄ���I�H�c�񂣁c�����A�I���ł����c�H�v
		PRINTFORMDW ���������h���~�[�̌����͊ɂ݁A���񂾓��͑��������҂��Ă���悤�Ɍ�����
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORML �u�����c�����c�v
		PRINTFORMDW �h���~�[�͒ɂ����ɂ��Ă���
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORML �u�����I�v
		PRINTFORMDW �h���~�[�̐K�͐Ԃ����Ă���
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;101,��
;==================================================
@M_KOJO_MESSAGE_COM_K109_101
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_101_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_101_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;102,�X�C
;==================================================
@M_KOJO_MESSAGE_COM_K109_102
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_102_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_102_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;103,�j
;==================================================
@M_KOJO_MESSAGE_COM_K109_103
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_103_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_103_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;104,�A�C�}�X�N
;==================================================
@M_KOJO_MESSAGE_COM_K109_104
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_104_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_104_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TEQUIP:�A�C�}�X�N
		;������
		IF FLAG:70
			PRINTFORMW
			RETURN 1
		;����
		ELSEIF TALENT:����
			PRINTFORMW
			RETURN 1
		;����3
		ELSEIF MARK:�s������ == 3
			PRINTFORMW
			RETURN 1
		;����ȊO
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;����
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;105,��
;==================================================
@M_KOJO_MESSAGE_COM_K109_105
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_105_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_105_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TEQUIP:��
		;������
		IF FLAG:70
			PRINTFORMW
			RETURN 1
		;����
		ELSEIF TALENT:����
			PRINTFORMW
			RETURN 1
		;����3
		ELSEIF MARK:�s������ == 3
			PRINTFORMW
			RETURN 1
		;����ȊO
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;����
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;106,�{�[���M���O
;==================================================
@M_KOJO_MESSAGE_COM_K109_106
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_106_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_106_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TEQUIP:�{�[���M���O
		;����
		IF TALENT:����
			PRINTFORMW
			RETURN 1
		;����3
		ELSEIF MARK:�s������ == 3
			PRINTFORMW
			RETURN 1
		;����ȊO
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;����
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;107,�S���v���C
;==================================================
@M_KOJO_MESSAGE_COM_K109_107
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_107_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_107_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;����
	IF TEQUIP:�{�[���M���O
		;����
		IF TALENT:����
			PRINTFORMW
			RETURN 1
		;����3
		ELSEIF MARK:�s������ == 3
			PRINTFORMW
			RETURN 1
		;����ȊO
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;����
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;108,���X�p���L���O
;==================================================
@M_KOJO_MESSAGE_COM_K109_108
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_108_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_108_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;�T�O���Ȃ肫�莞
	ELSEIF FLAG:�Ȃ肫�� == 110
		PRINTFORML
		CALL AUTO_AEGI(NO:TARGET)
		RETURN 1
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		PRINTFORMDL �Ղ�Ղ�Ɨh��鋹�ɏՓ����}�����Ȃ��Ȃ���%CALLNAME:MASTER%�̓h���~�[�̓��������@����
		PRINTFORML �u�ӂ����I�H�c�����c���������̂ł����c�H�v
		PRINTFORMDW ���𒣂�ꂽ�h���~�[���񂾓���%CALLNAME:MASTER%�Ɍ����Ă���
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORML �u�����c�����c�v
		PRINTFORMDW �h���~�[�̏_�炩������%CALLNAME:MASTER%�̎�`���n�b�L���Ǝc����
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORML �u�����A�ɂ��c�v
		PRINTFORMDW �h���~�[�͒ɂ�����
		RETURN 1
	ENDIF
ENDIF
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4.762用 贈り物パッチ1.11/ERB/口上・メッセージ関連/個人口上/ドレミー/M_KOJO_K109_加虐系コマンド.ERB


code:
;��������������������������������������������������
;��d�n�R�}���h
;��������������������������������������������������
;==================================================
;80,���
;==================================================
@M_KOJO_MESSAGE_COM_K109_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_80_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_80_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF FLAG:70
			PRINTFORMW
			RETURN 1
		;�T�O���Ȃ肫�莞
		ELSEIF FLAG:�Ȃ肫�� == 110
		ELSE
			PRINTFORMW �u��Łc�H��肭�ł��邩�킩��܂��񂪁c�v
		ENDIF
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;�T�O���Ȃ肫�莞
	ELSEIF FLAG:�Ȃ肫�� == 110
	;�o�����O
	ELSEIF BASE:PLAYER:2 > 8000
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u�o�����ł����H�䖝���Ȃ��Ă����ł���cHPH�v","W"
		CASE 1
			CALL HPH_PRINT,@"�u�����A�͂𔲂��ācHPH�v","W"
		CASE 2
			CALL HPH_PRINT,@"�u�U�[���������ς��o���Ă�������HPH�c�Ȃ�āv","W"
		ENDSELECT
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:7
		CASE 0
			CALL HPH_PRINT,@"�u�����͐����ˁcHPH�v","L"
			PRINTFORMDW �z��������_��������Ȃ��玨���Ś����ꂽ
		CASE 1
			PRINTFORML �u�������セ���ł��ˁc�H�v
			PRINTFORMDW �摖���h�����w�ŋT�����C����ƁA%CALLNAME:MASTER%�͎v�킸��Ȃ������o��
		CASE 2
			PRINTFORML �u�C�����ǂ��ł����H�����r���Ȃ��Ă܂���v
			PRINTFORMDW ������̊�����āA�h���~�[�͈Ӓn�̈������ȏ΂݂𕂂��ׂ�
		CASE 3
			CALL HPH_PRINT,@"�u���������̂��ア��ł���ˁc�HHPH�ӂӁA�������Ă܂���HPH�v","L"
			PRINTFORMDL ���_�������Ă����h���~�[�́A�h���A�X����̂Ђ�ɏ悹��Ƌʂ�]�����悤�ɝ��݂�����
			PRINTFORMDL �I�݂ȕ�d��%CALLNAME:MASTER%�͂��팾�̂悤�Țb����R�炷���Ƃ����ł��Ȃ��c
		CASE 4
			PRINTFORML �u�����c����ۂ���`�����Ă��܂�����H�v
			PRINTFORMDW �h���~�[�̐ӂ߂ɉ䖝�`���~�܂�Ȃ�
		CASE 5
			CALL HPH_PRINT,@"�u�ق�c�V�R�V�R���Ă����܂�����A�����ς��s���b�s�����Ă����ł���cHPH�v","L"
			PRINTFORMDL �h���~�[�͍I�݂Ȏw���΂��ŋC�����ǂ������d�_�I�Ɉ������Ă���
			PRINTFORMDL ���̋Z��%CALLNAME:MASTER%�͂��������|�M�����΂��肾�����c
		CASE 6
			CALL HPH_PRINT,@"�u�����������̂́A�ǂ��ł����HHPH�v","L"
			PRINTFORMDL �h���~�[�̓g�����Ƃ��������̂悤�Ȃ��̂��T���ɐ��炵�Ă���
			PRINTFORMDW ���̂܂܃O�`���O�`���Ɖ��𗧂ĂĈ������B���������Ɏv�킸�����k�����c
		ENDSELECT
	;����3
	ELSEIF MARK:�s������ == 3
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u�ӂӂ��c�v
			PRINTFORMDW �h���~�[�ɒ܂ŔA����M���v�킸�X���Ă��܂���
		CASE 1
			PRINTFORML �u�����c����ۂ���`�����Ă��܂�����H�v
			PRINTFORMDW �h���~�[�̐ӂ߂ɉ䖝�`���~�܂�Ȃ�
		CASE 2
			PRINTFORML �u���������Ă܂���H�v
			PRINTFORMDW �h���~�[�̈����Ɏv�킸����������
		ENDSELECT
	;����ȊO
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW �u����c����Ȃ̂��C�����ǂ��̂ł����H�v
		CASE 1
			PRINTFORMW �u���ꂭ�炢�̋����ł����ł����c�H�v
		CASE 2
			PRINTFORML �u�c�������A����ł��ˁc�v
			PRINTFORMDW �h���~�[�͂������ƈ����Ă���
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;81,�t�F���`�I
;==================================================
@M_KOJO_MESSAGE_COM_K109_81
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_81_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_81_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF FLAG:70
			PRINTFORMW
			RETURN 1
		;�T�O���Ȃ肫�莞
		ELSEIF FLAG:�Ȃ肫�� == 110
		ELSE
			PRINTFORML �u���A���Łc�����v
			PRINTFORMDW �h���~�[��������o�����鋰������ߕt����
		ENDIF
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;�T�O���Ȃ肫�莞
	ELSEIF FLAG:�Ȃ肫�� == 110
	;�o�����O
	ELSEIF BASE:PLAYER:2 > 8000
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u��A������HPH�c�ꂻ���ł����c�HHPH�v","L"
			PRINTFORMDW �h���~�[��%CALLNAME:MASTER%�̑��ڂɎ��Y����ƁA���i�ȉ���t�łȂ��炵��Ԃ肾����
		CASE 1
			CALL HPH_PRINT,@"�u������HPH�c�ӂӂ��A�������HPH�v","L"
			PRINTFORMDW �h���~�[��%CALLNAME:MASTER%�̕\���ː����������ƁA��w�������ӂߗ��Ă�
		CASE 2
			CALL HPH_PRINT,@"�u������HPH�c����ۂ�HPH����ۂ�HPH�v","L"
			PRINTFORMDL �Ƃ��z���グ�A�T����ӂߗ��ĂȂ�����h����h���~�[
			PRINTFORMDW �������ӂ߂ɁA%CALLNAME:MASTER%�͑ς���ꂻ�����Ȃ�����
		ENDSELECT
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:6
		CASE 0
			CALL HPH_PRINT,@"�u�����cHPH�c������cHPH�v","L"
			PRINTFORMDW �h���~�[�͓��_����Ŏx����ƁA���؂���T���܂ł��˂��Ƃ���r�ߏグ�Ă���
		CASE 1
			CALL HPH_PRINT,@"�u�ӁA����cHPH�v","L"
			PRINTFORMDW �h���~�[��%CALLNAME:MASTER%�̍�����������߂�ƁA�����Ƃ�Ƃ���������Ȃ��炵��Ԃ肾����
		CASE 2
			CALL HPH_PRINT,@"�u����ς�HPH�c����HPH�v","L"
			PRINTFORMDL �h���~�[�͋T��������𗣂��Ɛ���`���`���Ɠ����������ӂߗ��Ă�
			PRINTFORMDW �ނ��y���悤�ȉ����Ɏv�킸����������
		CASE 3
			PRINTFORML �u����c�Ђ��Ђ�����ӂ��c�H�v
			PRINTFORMDW �Ƃ����Ɋ܂݂Ȃ����𕷂��Ă���
		CASE 4
			CALL HPH_PRINT,@"�u��A������c�񂭂��cHPH�v","L"
			PRINTFORMDW �h���~�[�͓��_������Ԃ�Ȃ���A�摖��̍����������t�����݊�����
		CASE 5
			PRINTFORML �u���Ղ��c����A����c�v
			PRINTFORMDW �h���~�[�͓�����A���_������Ԃ鎖�ɏW�����Ă���
		ENDSELECT
	;����3
	ELSEIF MARK:�s������ == 3
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u����c�Ђ��Ђ�����ӂ��c�H�v
			PRINTFORMDW �Ƃ����Ɋ܂݂Ȃ����𕷂��Ă���
		CASE 1
			CALL HPH_PRINT,@"�u��A������c�񂭂��cHPH�v","L"
			PRINTFORMDW �h���~�[�͓��_������Ԃ�Ȃ���A�摖��̍����������t�����݊�����
		CASE 2
			PRINTFORML �u���Ղ��c����A����c�v
			PRINTFORMDW �h���~�[�͓�����A���_������Ԃ鎖�ɏW�����Ă���
		ENDSELECT
	;����ȊO
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u�c������c�؂���c�v
			PRINTFORMDW �h���~�[�͋��鋰����_���r�߂Ă���
		CASE 1
			PRINTFORML �u����c�����j�I�C�c�v
			PRINTFORMDW �h���~�[�͍T���߂ɋT�����r�߂Ă���
		CASE 2
			PRINTFORML �u�c�Ӂc��������c�v
			PRINTFORMDW �T�������Ɋ܂ނƁA����]�����悤���r�ߎn�߂�
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;82,�p�C�Y��
;==================================================
@M_KOJO_MESSAGE_COM_K109_82
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_82_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_82_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF FLAG:70
			PRINTFORMW
			RETURN 1
		;�T�O���Ȃ肫�莞
		ELSEIF FLAG:�Ȃ肫�� == 110
		ELSE
			PRINTFORMW �u�ށA���ŁH�c�킩��܂����c�v
		ENDIF
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;�T�O���Ȃ肫�莞
	ELSEIF FLAG:�Ȃ肫�� == 110
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:5
		CASE 0
			CALL HPH_PRINT,@"�u�񂣂�HPH�c���񂪎C��āc��HPH�v","L"
			PRINTFORMDW �h���~�[�͓��_�����ŋ��ݍ��݁A�����Ƃ���������Ȃ���C��グ�Ă���
		CASE 1
			CALL HPH_PRINT,@"�u�C�����ǂ��ł����HHPH�c���c�v","L"
			PRINTFORMDW �h���~�[�̓p�C�Y�����Ȃ���J�ԂɎ��g�̑��t�𐂂炵�����܂ɂ��Ă���
		CASE 2
			CALL HPH_PRINT,@"�u�����A�M���cHPH�v","L"
			PRINTFORMDW �h���~�[�͓��_�̔M���ɂ����Ƃ�Ƃ����\��𕂂��ׂĂ���
		CASE 3
			CALL HPH_PRINT,@"�u�摖�肪�悩����Ă���̂������܂���cHPH�v","L"
			PRINTFORMW �h���~�[�͐摖������ɎC��������܂Ƃ��Ă���
		CASE 4
			CALL HPH_PRINT,@"�u�����cHPH�c������cHPH�c����c�Ђ��Ђ�����ӂ��c�H�v","L"
			PRINTFORMDL �h���~�[�͕�d�̎���ɂ߂���ڌ����ł���������߂Ă���
			PRINTFORMDW %CALLNAME:MASTER%�����x�������Ƌ@����ǂ������̂���d���������Ȃ���
		ENDSELECT
	;����3
	ELSEIF MARK:�s������ == 3
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u�摖�肪�悩����Ă���̂������܂���cHPH�v","L"
			PRINTFORMW �h���~�[�͐摖������ɎC��������܂Ƃ��Ă���
		CASE 1
			PRINTFORML �u�c�r�N�r�N���Ă�̂��킩��܂��c�v
			PRINTFORMDW �h���~�[�̏_�炩�����ɕ�܂ꂽ���_�����������ɂт����Ă���
		CASE 2
			PRINTFORML �u�{���ɋC�����ǂ���ł����H�v
			PRINTFORMDW �ƂĂ�������������
		ENDSELECT
	;����ȊO
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u�c�ӊO�Ɣ��܂��ˁc�v
			PRINTFORMDW ���������������㉺�ɓ�������͎~�߂Ȃ�
		CASE 1
			PRINTFORML �u�ǂ��ł����c�H�v
			PRINTFORMDW �h���~�[�͂����Ƃł��Ă���̂����g���Ȃ��悤��
		CASE 2
			PRINTFORML �u�ށA����c�v
			PRINTFORMDW �h���~�[�͎l�ꔪ�ꂵ�Ă���
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;83,�f��
;==================================================
@M_KOJO_MESSAGE_COM_K109_83
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_83_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_83_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF FLAG:70
			PRINTFORMW
			RETURN 1
		;�T�O���Ȃ肫�莞
		ELSEIF FLAG:�Ȃ肫�� == 110
		ELSE
			PRINTFORML �u�}����Ȃ��ŎC�邾���Ȃ�āc�v
			PRINTFORMDW �h���~�[�͌����邪�܂܌҂œ��_������
		ENDIF
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;�T�O���Ȃ肫�莞
	ELSEIF FLAG:�Ȃ肫�� == 110
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:6
		CASE 0
			CALL HPH_PRINT,@"�u�{���ɁA�Z�b�N�X���Ă�݂����cHPH�v","L"
			PRINTFORMDW �h���~�[�̉A�O�ɊƂ�H�����܂��A�j�`���j�`���Ƃ������𗧂ĂȂ��獘���X�g���[�N����
		CASE 1
			CALL HPH_PRINT,@"�u�K���ɍ���U���āc����ȂɋC�����ǂ���ł����HHPH�v","L"
			PRINTFORMDW �h���~�[�̔�L������Ă������t�������܂ƂȂ�ƂĂ��C�������ǂ�
		CASE 2
			CALL HPH_PRINT,@"�u�ӂ���HPH�񂟂��cHPH�v","L"
			PRINTFORMDW ���X���𐨂��ǂ��˂��o���N���g���X���C���Ă��ƁA�h���~�[�͊���̚b�����グ��
		CASE 3
			CALL HPH_PRINT,@"�u�����c��l�������Ă��Ă��������cHPH�v","L"
			PRINTFORMDL %CALLNAME:MASTER%�͗d���ɍ������˂点��h���~�[�̐K�Ɏ��Y���D�������ŉ�
			PRINTFORMDW �Ƃ����߂���Ԃ�A�O���S��������鈤�t�𖞕ՂȂ��A�s�ɓh��t������̏����𐮂��Ă����c
		CASE 4
			CALL HPH_PRINT,@"�u�䖝�ł��܂��񂩁c�HHPH�����c��HPH�v","L"
			PRINTFORMDL �h���~�[�͔M�ɕ������ꂽ�悤�ɍ���O��ɐU�肽���菗�A�ł����ē��_�������������Ă���
			PRINTFORMDW �����ɂł��ː����Ă��܂������ȉ�����%CALLNAME:MASTER%�͐K�����M���E�b�ƒ͂ݕK���ɑς�������
		CASE 5
			CALL HPH_PRINT,@"�u�����cHPH�������������Ă܂��˂��c���HPH�������܂����c�HHPH�v","L"
			PRINTFORMDL �h���~�[�̍����O��ɉ�������x�Ɍ݂��̑̉t�������荇���O�`���O�`���Ɣ��΂ȉ���t�ł�
			PRINTFORMDW �M�S�ȕ�d��J�߂邩�̂悤��%CALLNAME:MASTER%�̓h���~�[�̐K�𕏂ő�����
		ENDSELECT
	;����3
	ELSEIF MARK:�s������ == 3
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u����HPH�c�C�邾���c�HHPH�v","L"
			PRINTFORMW �h���~�[�͉A�O��O��ɉ���������_�������ƒ��߂Ă���
		CASE 1
			CALL HPH_PRINT,@"�u�c����c����A�������ācHPH�v","L"
			PRINTFORMDW �h���~�[�����ڂ��L���b�ƕ���B�����������_����������x�Ɉ��o�Ă������t���~���o����Ă�����
		CASE 2
			PRINTFORML �u����ȁA���𗧂ĂȂ��ł��������c���v
			PRINTFORMDW �킴�ƈ���ȉ��𗧂Ă�悤�ɍ��𓮂����ƃh���~�[�͊��^���Ԃɂ��Ę낢��
		ENDSELECT
	;����ȊO
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u����A�C��t���Ȃ��Ƒ}�������Ⴂ�����ł��ˁc�v
			PRINTFORMDW �����Ȃ�̂������Ȃ��Ǝv��%CALLNAME:MASTER%�ł�����
		CASE 1
			PRINTFORML �u����������H�c���݂܂���v
			PRINTFORMDW �h���~�[��㵒p���炩�����s�b�^���ƕ��Ă���B�������̂����J��
		CASE 2
			PRINTFORML �u�����A���c�v
			PRINTFORMDW %CALLNAME:MASTER%���X�g���[�N����x�Ƀh���~�[��������Ă���
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;84,�A�x��
;==================================================
@M_KOJO_MESSAGE_COM_K109_84
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_84_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_84_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;�T�O���Ȃ肫�莞
		IF FLAG:�Ȃ肫�� == 110
		ELSE
			PRINTFORML �u���A�A�x��c�H�v
			PRINTFORMDW �h���~�[�ɐ������Ă����
			RETURN 1
		ENDIF
	ENDIF
	;��{�Z�b�g
	;�T�O���Ȃ肫�莞
	IF FLAG:�Ȃ肫�� == 110
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:6
		CASE 0
			CALL HPH_PRINT,@"�u�񂣂�HPH�c�S�g���C��ācHPH�v","L"
			PRINTFORMDW �A�܂݂�ɂȂ����h���~�[�͐Q�]��%CALLNAME:MASTER%�Ɍׂ�A�S�g���g����%CALLNAME:MASTER%�̓��̂𖁂��Ă���
		CASE 1
			CALL HPH_PRINT,@"�u�ӂ�HPH�c����cHPH�v","L"
			PRINTFORMDL �h���~�[��%CALLNAME:MASTER%�̐g�̂ɐ��ʂ��疧�����A�㉺�ɓ���
			PRINTFORMDW ���񓯎m���C�ꍇ���ނ��y���ƋT�����h���~�[���`�Ɉ����|����ۂ̉����Ŏv�킸%CALLNAME:MASTER%�������X��
		CASE 2
			CALL HPH_PRINT,@"�u�ӂӂ�HPH�c�C�����ǂ������ˁcHPH�v","L"
			PRINTFORMDW �A�܂݂�̃h���~�[�͋R��ʂ̎p���ɂȂ�ƁA%CALLNAME:MASTER%�̕��̏������悤�ɑS�g���������Ă���
		CASE 3
			CALL HPH_PRINT,@"�u�c����ŁA�����ł����c�HHPH�v","L"
			PRINTFORMDW ���g�̐g�̂ɖA��h�����h���~�[��%CALLNAME:MASTER%�̔w����S�g���g���Ė����Ă���
		CASE 4
			PRINTFORMDL �h���~�[�͂������ɐQ�]��%CALLNAME:MASTER%�̋r�ɕ��������ƁA�����J�Ԃɋ��ނ悤�ɂ��đS�g���g�������Ă�����
			PRINTFORMW �u�ӂ��A����c�Ȃ��Ȃ��ɏd�J���ˁc�v
		CASE 5
			PRINTFORML �u���R�}���h�ł̖{�ԍs�ׂ͋֎~�ƂȂ��Ă���܂��v
			PRINTFORMDW �ǂ������ɕ���ăh���~�[�ɑ}�����悤�Ƃ�����~�߂�ꂽ
		ENDSELECT
	;����3
	ELSEIF MARK:�s������ == 3
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u�c����ŁA�����ł����c�HHPH�v","L"
			PRINTFORMDW ���g�̐g�̂ɖA��h�����h���~�[��%CALLNAME:MASTER%�̔w����S�g���g���Ė����Ă���
		CASE 1
			PRINTFORMDL �h���~�[�͂������ɐQ�]��%CALLNAME:MASTER%�̋r�ɕ��������ƁA�����J�Ԃɋ��ނ悤�ɂ��đS�g���g�������Ă�����
			PRINTFORMW �u�ӂ��A����c�Ȃ��Ȃ��ɏd�J���ˁc�v
		CASE 2
			PRINTFORML �u���R�}���h�ł̖{�ԍs�ׂ͋֎~�ƂȂ��Ă���܂��v
			PRINTFORMDW �ǂ������ɕ���ăh���~�[�ɑ}�����悤�Ƃ�����~�߂�ꂽ
		ENDSELECT
	;����ȊO
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u����A�C���������̂ł����c�H�v
			PRINTFORMDW �S�g�ɖA��h�肽�������h���~�[�͂������Ȃ���d�����Ă���
		CASE 1
			PRINTFORML �u���A������c�v
			PRINTFORMDW �h���~�[�͐����]���ē����Ԃ������ɂȂ���
		CASE 2
			PRINTFORML �u�c����A���ʂɂ�����p���������ł��ˁc�v
			PRINTFORMDW �\�[�v�Ɣ����C��鉹�𕷂��ăh���~�[�����Ԃ����Ă���
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;85,������
;==================================================
@M_KOJO_MESSAGE_COM_K109_85
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_85_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_85_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;����
	ELSEIF TALENT:����
		PRINTFORMW
		RETURN 1
	;����3
	ELSEIF MARK:�s������ == 3
		PRINTFORMW
		RETURN 1
	;����ȊO
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;88,�o�L���[���t�F��
;==================================================
@M_KOJO_MESSAGE_COM_K109_88
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K109_88_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K109_88_1
;-------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���߂�
	;�L���`�F�b�N
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;�T�O���Ȃ肫�莞
		IF FLAG:�Ȃ肫�� == 110
		ELSE
			PRINTFORMW �u�����Ɖ��܂ŁH�c����Ă݂܂��v
			RETURN 1
		ENDIF
	ENDIF
	;��{�Z�b�g
	;������
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;�T�O���Ȃ肫�莞
	ELSEIF FLAG:�Ȃ肫�� == 110
	;�o�����O
	ELSEIF BASE:PLAYER:2 > 8000
		SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"�u����ۂ�HPH���Ղ�HPH��A�ӂ�HPH�v","L"
			PRINTFORMDW �h���~�[�͍A�̉��܂ř������݂Ȃ���A�ڂŎː��𑣂��Ă���
		CASE 1
			CALL HPH_PRINT,@"�u���ۂ�HPH���A��HPH������HPH�v","L"
			PRINTFORMDW �h���~�[�͎ː����߂��ƌ���⌃��������Ԃ肾����
		CASE 2
			CALL HPH_PRINT,@"�u�񂮂��A����Ղ�HPH��������HPH�v","L"
			PRINTFORMDW �v�킸���������قǂ̉՗�ȃt�F���`�I�ɋ���Ȏː��~�������オ���Ă���
		ENDSELECT
	;����
	ELSEIF TALENT:���� || TALENT:���~ || TALENT:�Z�t�� || TALENT:�����}��
		SELECTCASE RAND:6
		CASE 0
			CALL HPH_PRINT,@"�u�������HPH�c��ӂ��cHPH�v","L"
			PRINTFORMDW �h���~�[�͔A���̃J�E�p�[���z���グ�悤�Ƃ��邩�̂悤�ɋz�����Ă���
		CASE 1
			CALL HPH_PRINT,@"�u�ӂ�HPH�c����cHPH�v","L"
			PRINTFORMDL �h���~�[�ɂ����Ƌ����z���Ă����悤�ɗ���
			CALL HPH_PRINT,@"�u�͂�HPH�c���ジ�����HPH�v","L"
			PRINTFORMDW ���܂ŋz����̂ł͂Ƃ����قǂ̋z���Ɏv�킸���������яオ����
		CASE 2
			CALL HPH_PRINT,@"�u���ۂ�HPH���ۂ�HPH���Ղ�HPH�v","L"
			PRINTFORMDW �h���~�[�͈�S�s���ɓ��_������Ԃ��Ă���
		CASE 3
			PRINTFORML �u��A�������c�v
			PRINTFORMDW �h���~�[�����ꂵ�����ɂ��Ȃ�����ꐶ�����ɂ���Ԃ��Ă���
		CASE 4
			PRINTFORML �u����c������c�v
			PRINTFORMDW �h���~�[�͗ܖڂɂȂ�Ȃ�����A���܂ř������ꂽ
		CASE 5
			PRINTFORML �u�ӁA����c�񂮂��c�v
			PRINTFORMDW �h���~�[�͌��̒[���矵�𐂂ꗬ���Ȃ������t�ɖj�����Ă���
		ENDSELECT
	;����3
	ELSEIF MARK:�s������ == 3
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u��A�������c�v
			PRINTFORMDW �h���~�[�����ꂵ�����ɂ��Ȃ�����ꐶ�����ɂ���Ԃ��Ă���
		CASE 1
			PRINTFORML �u����c������c�v
			PRINTFORMDW �h���~�[�͗ܖڂɂȂ�Ȃ�����A���܂ř������ꂽ
		CASE 2
			PRINTFORML �u�ӁA����c�񂮂��c�v
			PRINTFORMDW �h���~�[�͌��̒[���矵�𐂂ꗬ���Ȃ������t�ɖj�����Ă���
		ENDSELECT
	;����ȊO
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML �u�c�������c���ق��A������ƁA�ꂵ���c�v
			PRINTFORMDW �h���~�[�͂������Ă���
		CASE 1
			PRINTFORML �u�c���Ղ��c��A���v
			PRINTFORMDW �h���~�[�͍A���܂ř����������Ƃ��Ē��߂��悤��
		CASE 2
			PRINTFORML �u����Ԃ��c�ӂ��c��Ղ��c�v
			PRINTFORMDW �h���~�[�͂Ȃ�Ƃ��撣���Ă���
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4.762用 贈り物パッチ1.11/ERB/口上・メッセージ関連/個人口上/ドレミー/M_KOJO_K109_奉仕系コマンド.ERB


code:
;==================================================
;�e������
;==================================================
;
@M_KOJO_MESSAGE_COM_K109_DANMAKU(ARGS, ����c�@)
#DIM ����c�@
;�S�̗̂���
;�@�y�퓬�O�z���A�_�C�X���[���ƃv���C���[�I�����A�n���f�������ꍇ�́y�n���f����z���B�Ή��X�L�������������ꍇ�y�X�L������z���C��e����A�L��������e�����Ȃ�y��e����z��
;�ǂ��炩�̎c�@��0�ɂȂ��Ă��Ȃ���·A�ɖ߂遨�D�y�퓬�����z

;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL
SIF FLAG:����F
	TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�퓬�O
	HANDICAP_FIXED = 0
	HANDICAP_RAND = 0
	;�n���f�����邱�Ƃ��ł��A���l���傫���قǂ��Ȃ����s���ɂȂ�@���l�����Ȃ炠�Ȃ����L����
	;�L�����̔\�͂Ɋւ�炸�N�b�\����������キ������ł���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "�퓬�O"
		;�T�O���Ȃ肫�莞
		IF FLAG:�Ȃ肫�� == 110
		ELSEIF TALENT:�D�P
			PRINTFORML �u�c�c�{�C�ł����H�v
			PRINTFORMDL �h���~�[�͐S�z�����ɖc��񂾂����𕏂łĂ���
			PRINTFORMW �u�c�܂��A�����ً��ɂȂ邩������܂���ˁB�����A�����܂���v
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW �u���̋����A�����������܂��傤�v
			CASE 1
				PRINTFORMW �u�M���̞ň��͍������v
			CASE 2
				PRINTFORMW �u�����򂢁A����n�鎄�ɓG���Ǝv���Ȃ�I�v
			ENDSELECT
		ENDIF
		RETURN 0
	ENDIF
	;-------------------------------------------------
	;�n���f
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "�n���f"
		;�n���f���Ȃ�������\������Ȃ��̂Ŗ��L���ł悢
		PRINTFORML
		RETURN 0
	ENDIF
	;-------------------------------------------------
	;�퓬��TARGET��e������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "��e"
		;�ʂɈꗥ�Łu���ꂽ�[�v�����ł�������
		SELECTCASE ����c�@
		;�c��c�@3���\�������̂́y�����[���z�����̂�
		CASE 3
			;�T�O���Ȃ肫�莞
			IF FLAG:�Ȃ肫�� == 110
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML �u�܂��܂������܂���v
					PRINTFORMW �u�Ӓ��u�o�^�t���C�T�v�����e�[�V�����v�I�v
				CASE 1
					PRINTFORML �u�����؂邱�Ƃ��ł��܂����H�v
					PRINTFORMW �u�����}�u�h���[���G�N�X�v���X�v�I�v
				ENDSELECT
			ENDIF
		CASE 2
			;�T�O���Ȃ肫�莞
			IF FLAG:�Ȃ肫�� == 110
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML �u����ŉ����؂�܂��v
					PRINTFORMW �u�r���u�i�C�g���A�E�I�u�E�L�����v�I�v
				CASE 1
					PRINTFORML �u�ǂ���炽���̐l�Ԃł͂Ȃ��悤�Łv
					PRINTFORMW �u�����u�N���[�s���O�o���b�g�v�I�v
				ENDSELECT
			ENDIF
		CASE 1
			;�T�O���Ȃ肫�莞
			IF FLAG:�Ȃ肫�� == 110
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW �u���I�`�v���Ƃ��Ė����U�肳��鎄�̋ꂵ�݁A�����Ɏv���m��I�v
					PRINTFORMDL ��Ȃ���b�I
					PRINTFORMW �u�Ȃɂ��b�I�I�v
				CASE 1
					PRINTFORMW �u�ǂ����M���ɂ͎��̒m��Ȃ��͂�������Ă���悤�ł��ˁc�v
					PRINTFORMDL �킩��܂��I�e����������V�тɂ��Ă���h���~�[�Ɂc
					PRINTFORMDW ���́A�I���̑̂�ʂ��ďo��͂��I
					PRINTFORMW �u�̂�ʂ��ďo��́c�H����Ȃ��̂ŁA�e���������ɏ��Ă���̂��I�v
				ENDSELECT
			ENDIF
		CASE 0
			;�T�O���Ȃ肫�莞
			IF FLAG:�Ȃ肫�� == 110
			ELSE
				PRINTFORMW �u�c�����܂ł̈����A�S�ď��������Ē����܂����v
			ENDIF
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;�퓬��
	;TARGET�́y�c�E�����z������
	;ARG��TARGET�̎c�@
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "�c�E����"

	ENDIF
	;-------------------------------------------------
	;�퓬��
	;TARGET�́y�����ꝱ�z������
	;ARG��TARGET�̎c�@
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "�����ꝱ"

	ENDIF
	;-------------------------------------------------
	;�퓬��
	;TARGET�́y���͗��_�z������
	;ARG��TARGET�̎c�@
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "���͗��_"

	ENDIF

	;-------------------------------------------------
	;�퓬��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "�퓬��"
		PRINTFORML
		;�c��c�@4���\�����ꂤ��̂́y�����[���z�����̂�
		;�c�@��1�ȏ�Ȃ炠�Ȃ��̕����A0�̏ꍇ�͂��Ȃ��̏���
		SELECTCASE ����c�@
			CASE 4
				;�T�O���Ȃ肫�莞
				IF FLAG:�Ȃ肫�� == 110
				ELSE
					PRINTFORMW �u�������Ɂc���������āc�v
				ENDIF
			CASE 3
				;�T�O���Ȃ肫�莞
				IF FLAG:�Ȃ肫�� == 110
				ELSE
					PRINTFORMW �u���ނ����ɓ˂�����ŏ��Ă���̂ł͂���܂����v
				ENDIF
			CASE 2
				;�T�O���Ȃ肫�莞
				IF FLAG:�Ȃ肫�� == 110
				ELSE
					PRINTFORMW �u����Ă����悤�ł��ˁv
				ENDIF
			CASE 1
				;�T�O���Ȃ肫�莞
				IF FLAG:�Ȃ肫�� == 110
				ELSE
					PRINTFORMW �u�����������ł��ˁv
				ENDIF
			CASE 0
				;�T�O���Ȃ肫�莞
				IF FLAG:�Ȃ肫�� == 110
				ELSE
					IF TALENT:�D�P
						PRINTFORML �u�͂��c�͂��c�v
						PRINTFORMDL �h���~�[�͍������Ղ��Ă���悤���c
						PRINTFORMW �u�����ɐԂ���񂪂����ł�����c���������A��S���c�v
					ELSE
						PRINTFORMW �u%CALLNAME:MASTER%�Ȃ�΋������琧���邱�Ƃ��ł��邩������܂���ˁv
					ENDIF
				ENDIF
		ENDSELECT
	ENDIF
RESETCOLOR
ENDIF
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4.762用 贈り物パッチ1.11/ERB/口上・メッセージ関連/個人口上/ドレミー/M_KOJO_K109_弾幕勝負.ERB