code:
;-------------------------------------------------
;�o�L���[���t�F��
;��d�n�R�}���h�A���x��2
;-------------------------------------------------
@COM88
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET
;��d���y
TCVAR:108 = 1

CSTR:PLAYER:10 += @"{TARGET}/"
;TCVAR:2 �ː��ӏ��t���O�i-1=�R���h�[�� 1=�S�� 2=�A�i�� 3=��� 4=���� 5=�p�C�Y�� 6=�f�� 7=���R�L 8=�̕\ 9=�A�i����d 10=���� 11=�G�� 12=�`�ӂ� 13=�u�ӂ߁j
TCVAR:PLAYER:2 = 4
;���x
TCVAR:PLAYER:4 = 1500

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 50
	SOURCE:PLAYER:���b = 110
	SOURCE:���l = 80
ELSE
	DOWNBASE:�̗� += 30
	DOWNBASE:�C�� += 150
	SOURCE:PLAYER:���b = 110
	SOURCE:���l = 80
	SOURCE:� = 100
	SOURCE:���s�� = 350
	SOURCE:�B�� = 150
	SOURCE:���] = 800
	SOURCE:��E = 300
	SOURCE:���� = 650

	;��̂ق��Ōv�Z��������f�[�^
	SOURCE:�s�� = Y*10 + 60

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	SIF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 400
ENDIF

;-------------------------------------------------
;����̏���
;-------------------------------------------------
;�ː��Ɋ֌W�Ȃ��s���鏈���͂�������
;�z��̎w�̒����҂̂o�̉��ꂪ�ړ�
STAIN:0 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:0

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�t�F���o��
EXP:�����o�� += 3
EXP:�l�o�� += 1

;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF FLAG:70 == 1
IF HETEROSEX(TARGET,PLAYER)
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 7
ENDIF
	EXP:PLAYER:�����o�� += 1
ELSE
IF HETEROSEX(TARGET,PLAYER)
	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 7
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 7
ENDIF

;����o��
SIF TALENT:���� && ASSIPLAY == 0
	EXP:����o�� += 1
ENDIF

;�z�ꂪ�L�㎝���̏ꍇ�́A�����҂ɚn�s���y�o����ǉ�
SIF TALENT:TARGET:�L��
	EXP:�n�s���y�o�� += 1

;���t����
SIF TCVAR:PLAYER:112 == 1 || TCVAR:PLAYER:112 == 2
	EXP:�����o�� ++

RETURN 1

@CAN_COM88(ARG)
SKIPDISP ARG
PRINTL �o�L���[���t�F��
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
IF FLAG:70 == 1

ELSE
A = 0
S = 0

;���ׂĂ̖��߂ɋ��ʂ̗v�f���l��
;(�]���������Ɩ��߂ɏ]���₷���Ȃ�)
CALL COM_ORDER

;ABL:�~�]
IF ABL:�~�]
	SIF S
		PRINT  +
	A += ABL:�~�] * 1
	PRINT �~�]
	PRINTV 'LV,ABL:�~�],'(,ABL:�~�] * 1,')
	S = 1
ENDIF
;ABL:��d���_
IF ABL:��d���_
	SIF S
		PRINT  +
	A += ABL:��d���_ * 4
	PRINT ��d���_
	PRINTV 'LV,ABL:��d���_,'(,ABL:��d���_ * 4,')
	S = 1
ENDIF
;ABL:���t����
IF ABL:���t����
	SIF S
		PRINT  +
	A += ABL:���t���� * 3
	PRINT ���t����
	PRINTV 'LV,ABL:���t����,'(,ABL:���t���� * 3,')
	S = 1
ENDIF

IF MARK:���y����
	SIF S
		PRINT  +
	A += MARK:���y���� * 1
	PRINT ���y����
	PRINTV 'LV,MARK:���y����,'(,MARK:���y���� * 1,')
	S = 1
ENDIF
;PALAM:�~��
IF GETPALAMLV(PALAM:�~��,5)
	SIF S
		PRINT  +
	A += GETPALAMLV(PALAM:�~��,5) * 1
	PRINT �~��
	PRINTV 'LV,GETPALAMLV(PALAM:�~��,5),'(,GETPALAMLV(PALAM:�~��,5) * 1,')
	S = 1
ENDIF
;�p���炢
IF TALENT:㵒p�S > 0
	PRINT  -
	A -= 1
	PRINT �p���炢
	PRINTV '(,1,')
	S = 1
ENDIF
;���L�݊�
IF TALENT:���L�ϐ� > 0
	SIF S
		PRINT  +
	A += 1
	PRINT ���L�݊�
	PRINTV '(,1,')
	S = 1
ENDIF
;���L�q��
IF TALENT:���L�ϐ� < 0
	PRINT  -
	A -= 3
	PRINT ���L�q��
	PRINTV '(,3,')
	S = 1
ENDIF
;���g�I
IF TALENT:���g�I
	SIF S
		PRINT  +
	A += 6
	PRINT ���g�I
	PRINTV '(,6,')
	S = 1
ENDIF
;�����̔ے�i�����A���w�Ŗ����j
IF TALENT:�������� < 0 && !TALENT:����
	PRINT  -
	A -= 1
	PRINT �����̔ے�
	PRINTV '(,1,')
	S = 1
ENDIF
;�j�����i����A�e���Ŗ����j
IF OTOKOGIRAI(TARGET)
	PRINT  -
	A -= 12
	PRINT �j����
	PRINTV '(,12,')
	S = 1
ENDIF
;����
IF TALENT:���� && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ����
	PRINTV '(,5,')
	S = 5
ENDIF
;�e��
IF TALENT:���� > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT �e��
	PRINTV '(,5,')
	S = 5
ENDIF

;�����҂��ӂ��Ȃ�
IF (TALENT:PLAYER:2 & 3) == 3
	SIF S
		PRINT  +
	A += 8
	PRINT �ӂ��Ȃ�
	PRINTV '(,8,')
	S = 1
ENDIF

Y = 0
;���t�̉���
SIF STAIN:PLAYER:2 & 1
	Y += 1
;���t�̉���
SIF STAIN:PLAYER:2 & 4
	Y += 3
;�A�i���̉���
SIF STAIN:PLAYER:2 & 8
	Y += 7
SIF STAIN:PLAYER:2 & 16
	Y += 15

Y = Y * (2 - TALENT:���L�ϐ�) / 2

;���ꂠ��
IF Y
	PRINT  -
	A -= Y
	PRINT ���ꂠ��
	;���L�݊�
	IF TALENT:���L�ϐ� > 0
		PRINT �A���L�݊�
	ELSEIF TALENT:���L�ϐ� < 0
		PRINT �A���L�q��
	ENDIF
	PRINTV '(,Y,')
	S = 1
ENDIF

;���v��\��(30�ȏ�Ŏ��s)
PRINT  =
PRINTV A

V = 30
SIF A < V
	PRINT  <
SIF A == V
	PRINT  =
SIF A > V
	PRINT  >
PRINT ���s�l
PRINTV V

WAIT
SKIPDISP 0
;���s�ł��Ȃ�
SIF A < V
	RETURN 0
ENDIF
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE88
;�o�L���[���t�F�����s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(88)
	RETURN RESULT
;�Z�ILv1�ȏ�K�v
SIF ABL:�Z�I < 1
	RETURN 0
;�L��̓z��̏ꍇ�͋Z�ILv2�ȏ�K�v
SIF TALENT:�L�� && ABL:�Z�I < 2
	RETURN 0
;�{�[���M���O�g�p���͕s��
SIF TEQUIP:�{�[���M���O
	RETURN 0
;��Z�\3�ȏ�K�v
SIF ABL:�� < 3
	RETURN 0
;�����҂��I�g�R�����l���d���ӂ��Ȃ肶��Ȃ��ƃ_��
SIF !(TALENT:PLAYER:2 & 2)
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE367
SIF !TFLAG:100
	RETURN 0
SIF !SEARCH_ACTIVE_IRAI_SLOT()
	RETURN 0
RETURN 1

@COM367
#DIM CHK_SLOT
CHK_SLOT  = SEARCH_ACTIVE_IRAI_SLOT()
CALL IRAI_APPLY(CHK_SLOT)
RETURN RESULT

;-------------------------------------------------
;�˗����s�������X���b�g�w��ɂ���
;���Ȃ炸CAN_IRAI_SLOT_DO(CHK_SLOT)�����܂��Ă�����s���Ȃ��Ƒf�ʂ��ɂȂ�܂�
;@COM367��SEARCH_ACTIVE_IRAI_SLOT()�Ŕ���ς݂Ȃ̂ł悵
;-------------------------------------------------
@IRAI_APPLY(CHK_SLOT)
#DIM CHK_SLOT
#DIM IRAI_RESULT
#DIM CLIENT_ID
CLIENT_ID = IRAI_SLOT_TO_CLIENT(CHK_SLOT)
CALL SHOW_IRAI_MESSAGE(TARGET, IRAI_SLOT:CHK_SLOT, "�˗����s���O")
CALL IRAI_CARRYOUT(TARGET, IRAI_SLOT:CHK_SLOT, "�˗����s��")
IRAI_RESULT = RESULT
;�����Őݒ肵�Ȃ��Ǝ��s����̃��b�Z�[�W�Ő������s�̔��ʂ����Ȃ��̂Ŏd���Ȃ�
SELECTCASE IRAI_RESULT
CASE IRAI_CONST_RESULT("�L�����Z��")
	;������-1���Ԃ�
	;����ȊO�͎��s�������s��ꂽ�͂��Ȃ̂őS��1�ȏ��Ԃ�
	RETURN IRAI_RESULT
CASE IRAI_CONST_RESULT("���s���Đ���")
	CALL SET_IRAI_PROGRESS(CLIENT_ID, "�˗��B��")
CASE IRAI_CONST_RESULT("���s���Ď��s")
	CALL SET_IRAI_PROGRESS(CLIENT_ID, "�˗����s")
CASE IRAI_CONST_RESULT("���s���Ė�����")
ENDSELECT
CALL SHOW_IRAI_MESSAGE(TARGET, IRAI_SLOT:CHK_SLOT, "�˗����s����")

;�Ƃ肠�������Ԍo��
SIF !FLAG:70
	TIME += 5

;���ۂ��������Ȃ�X���[
IF !GROUPMATCH(IRAI_RESULT, IRAI_CONST_RESULT("���s���Đ���"), IRAI_CONST_RESULT("���s���Ď��s"))
;���ۂ��m�肵�ATARGET���˗��҂ł���
ELSEIF TARGET == CLIENT_ID
	CALL COM366
;���ۂ��m�肵�ATARGET���˗��҂łȂ�
ELSE
	;�˗�����(�񍐂��Ȃ��Ǝ��s����)
	PRINTFORMW �Y�ꂸ��%CALLNAME:CLIENT_ID%�ɕ񍐂��悤
ENDIF
RETURN 1

repo_name: akadiya/eratw

license: unknown


code:
;----------------------------------------------------------------------------------------------------
;�˗��������
;----------------------------------------------------------------------------------------------------
@SET_IRAI_SLOT(CHARA)
#DIM CHARA
#DIM IRAI_ID
#DIM CHK_SLOT
IRAI_ID = CFLAG:CHARA:�˗����e
CHK_SLOT = SEARCH_IRAI_EMPTY()
SIF !CHK_SLOT
	RETURN
IRAI_SLOT:CHK_SLOT     = IRAI_ID
IRAI_DATA:CHK_SLOT     = INT_DATA_IRAI(IRAI_ID, "�˗����e",     CHARA)
IRAI_SUB:CHK_SLOT      = INT_DATA_IRAI(IRAI_ID, "�˗��T�u",     CHARA)
IRAI_DEADLINE:CHK_SLOT = INT_DATA_IRAI(IRAI_ID, "�˗�����", CHARA) + DAY
CALL SET_IRAI_PROGRESS(CHARA, "�˗���")

;----------------------------------------------------------------------------------------------------
;�˗��I������
;----------------------------------------------------------------------------------------------------
@CLEAR_IRAI_SLOT(CHARA, CHK_SLOT, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIM  CHK_SLOT
#DIMS SCENE
ARRAYREMOVE IRAI_SLOT,     CHK_SLOT, 1
ARRAYREMOVE IRAI_DATA,     CHK_SLOT, 1
ARRAYREMOVE IRAI_SUB,      CHK_SLOT, 1
ARRAYREMOVE IRAI_DEADLINE, CHK_SLOT, 1
CALL SET_IRAI_PROGRESS(CHARA, SCENE)

;----------------------------------------------------------------------------------------------------
;�˗���������
;�K����10�L�������U���Ĉ˗�������
;----------------------------------------------------------------------------------------------------
@IRAI_HAPPEN
#DIM CHARA_ID, 10
[IF_DEBUG]
	;#;PRINTFORMW �˗����������i�S�L�������s�A���O���f�o�b�O�E�C���h�E�ɕ\���j
	;#;DEBUGCLEAR
	FOR LOCAL:0, 1, �L�����N�^�����
		SIF !CAN_MEET(LOCAL:0)
			CONTINUE
		SIF CFLAG:(LOCAL:0):�˗���
			CONTINUE
		CALL SET_NEW_IRAI(LOCAL:0)
	NEXT
	;#;PRINTFORML �˗����������A�f�o�b�O�����폜���܂�
	;#;FORCEWAIT
	;#;DEBUGCLEAR
	RETURN
[ENDIF]
CALL ARRAY_RAND(CHARA_ID, 10, 1, �L�����N�^�����)
FOR LOCAL:0, 0, 10
	SIF !CAN_MEET(CHARA_ID:(LOCAL:0))
		CONTINUE
	SIF CFLAG:(CHARA_ID:(LOCAL:0)):�˗���
		CONTINUE
	CALL SET_NEW_IRAI(CHARA_ID:(LOCAL:0))
NEXT

;----------------------------------------------------------------------------------------------------
;�e�L�����̈˗���������
;�˗��Ȃ�/��ʈ˗�/�ŗL�˗�
;----------------------------------------------------------------------------------------------------
@SET_NEW_IRAI(CHARA)
#DIM CHARA
SELECTCASE IRAI_HIT(CHARA, "HAPPEN")
CASE IS <= 0
	RETURN
CASE 1
	LOCAL = IRAI_HIT(CHARA, "COMMON")
	SIF !LOCAL
		RETURN
CASE 2
	LOCAL = IRAI_HIT(CHARA, "UNIQUE")
	SIF LOCAL <= 100
		RETURN
ENDSELECT
CALL SET_IRAI_PROGRESS(CHARA, "�˗���������")
CFLAG:CHARA:�˗����e = MAKE_IRAI_ID(CHARA, LOCAL)

;----------------------------------------------------------------------------------------------------
;�˗����I�����͂܂Ƃ߂Ă�����
;----------------------------------------------------------------------------------------------------
@IRAI_HIT(CHARA, TYPE)
#FUNCTION
#DIM  CHARA
#DIMS TYPE
#DIM CONST LAST_COMMON = 99 ;��ʈ˗�ID�̖��[
#DIM       LAST_UNIQUE      ;���̃L�����Ɏ�������Ă���ŗL�˗�ID�̖��[
#DIM       HIT_LIST, 100    ;���I�m���z��
#DIM       ID_LIST,  100    ;���I��Ώۈ˗�ID�̈ꗗ
#DIM       CNT_LIST         ;���I�ΏۂƂȂ�˗��̐�
DEBUGPRINTFORML ��IRAI_HIT{CHARA}�@%TYPE%
SELECTCASE TYPE
CASE "HAPPEN"
;�˗��������I
	HIT_LIST:0 = GET_INT(0, "�L�����f�[�^", CHARA, "�˗��Ȃ�������")
	HIT_LIST:1 = GET_INT(0, "�L�����f�[�^", CHARA, "��ʈ˗�������")
	HIT_LIST:2 = GET_INT(0, "�L�����f�[�^", CHARA, "�ŗL�˗�������")
	SIF !SUMARRAY(HIT_LIST, 0, 3)
		HIT_LIST = 7, 3, 0
	DEBUGPRINTFORML ��IRAI_HIT{CHARA}�@{HIT_LIST:0}/{HIT_LIST:1}/{HIT_LIST:2}
	RETURNF ARRAY_HIT(HIT_LIST, 3)
CASE "COMMON"
;��ʈ˗��̒��I
	VARSET HIT_LIST
	VARSET ID_LIST
	VARSET CNT_LIST
	FOR LOCAL:0, 1, LAST_COMMON + 1
		SIF !INT_DATA_IRAI(MAKE_IRAI_ID(CHARA, LOCAL:0), "�˗���������", CHARA)
			CONTINUE
		ID_LIST:CNT_LIST  = LOCAL:0
		HIT_LIST:CNT_LIST = INT_DATA_IRAI(MAKE_IRAI_ID(CHARA, LOCAL:0), "�˗�������", CHARA)
		CNT_LIST ++
	NEXT
	SIF !CNT_LIST
		RETURNF 0
	RETURNF ID_LIST:(ARRAY_HIT(HIT_LIST, CNT_LIST))
CASE "UNIQUE"
;�ŗL�˗��̒��I
	VARSET HIT_LIST
	VARSET ID_LIST
	VARSET CNT_LIST
	LAST_UNIQUE = GET_INT(0, "�L�����f�[�^", CHARA, "�ŗL�˗��ŏI�v�f")
	FOR LOCAL:0, 101, LAST_UNIQUE + 1
		SIF !INT_DATA_IRAI(MAKE_IRAI_ID(CHARA, LOCAL:0), "�˗���������", CHARA)
			CONTINUE
		ID_LIST:CNT_LIST  = LOCAL:0
		HIT_LIST:CNT_LIST = INT_DATA_IRAI(MAKE_IRAI_ID(CHARA, LOCAL:0), "�˗�������", CHARA)
		CNT_LIST ++
	NEXT
	SIF !CNT_LIST
		RETURNF 0
	RETURNF ID_LIST:(ARRAY_HIT(HIT_LIST, CNT_LIST))
ENDSELECT

;----------------------------------------------------------------------------------------------------
;�˗����ŏ���
;�S�L�������ΏۂƂȂ��K�͉�����
;----------------------------------------------------------------------------------------------------
@IRAI_VANISH
#DIM CHK_SLOT
#DIM CHARA
;#;PRINTFORMW �˗��o�������i�S�L�������s�A���O���f�o�b�O�E�C���h�E�ɕ\���j
;#;DEBUGCLEAR
;�S�L�����ΏہA����O��/���ɕ񍐂̏I������˗��̏���
FOR CHARA, 1, CHARANUM
	SELECTCASE IRAI_CHARA_TO_PROGRESS(CHARA)
	;�����͂܂��˗��X���b�g�ɓ����Ă��Ȃ�
	CASE "�˗���������"
		CALL SET_IRAI_PROGRESS(CHARA, "�˗������")

	CASE "�˗������"
		SIF INT_DATA_IRAI(CFLAG:CHARA:�˗����e, "�˗����ŗ�", CHARA)
			CALL SET_IRAI_PROGRESS(CHARA, "�˗�����")
	[SKIPSTART]
	�˗����̃P�[�X�͈˗��X���b�g�����ق����͂₢
	CASE "�˗���"

	��{�I�ɂ���4�i�K�͖��񍐏�ԁA�˗���̃��A�N�V�����҂��ł��i�񍐕K�{�j
	CASE "�˗��B��"
	CASE "�����؂�"
	CASE "�񍐖Y��"
	CASE "�˗����s"
	[SKIPEND]
	CASE "�˗��I���i�����j", "�˗��I���i�����؂�j", "�˗��I���i�񍐖Y��j", "�˗��I���i���s�j"
	;�˗����I�����A�˗��l�ɕ񍐂��s�Ȃ����p�^�[���i�X���b�g�ɓ����ĂȂ��j
		CALL SET_IRAI_PROGRESS(CHARA, "�˗�����")
	ENDSELECT
NEXT
;#;PRINTFORML �˗��o�����������A�f�o�b�O�����폜���܂�
;#;FORCEWAIT
;#;DEBUGCLEAR

SIF !COUNT_IRAI_SLOT()
	RETURN

;#;PRINTFORMW �˗����������i�S�L�������s�A���O���f�o�b�O�E�C���h�E�ɕ\���j
;�˗��̊�������
;�X���b�g�͋󂯂Ȃ����Ƃɂ����i�˗���ւ̕񍐂�����������j
;�˗��񍐕s�v���ɃX���b�g���󂯂鏈�����K�v�ɂȂ���
;�X���b�g1���猩�Ă����ƈ˗��̃��Z�b�g�ɂ����ID�Y������������̂Ŗ�������`�F�b�N����
FOR CHK_SLOT, COUNT_IRAI_SLOT(), 0, -1
	CHARA = IRAI_SLOT_TO_CLIENT(CHK_SLOT)
	;�����ɂ��˗��̎��s����
	;�������c���Ă�Ȃ�X���[
	SIF IRAI_DEADLINE:CHK_SLOT && DAY <= IRAI_DEADLINE:CHK_SLOT
		CONTINUE
	SELECTCASE IRAI_CHARA_TO_PROGRESS(CHARA)
	CASE "�˗���"
		CALL SET_IRAI_PROGRESS(CHARA, "�����؂�")
	CASE "�˗��B��"
		IF STRLENS(STR_DATA_IRAI(IRAI_SLOT:CHK_SLOT, "�˗��񍐕s�v", CHARA))
			CALL IRAI_CARRYOUT(CHARA, IRAI_SLOT:CHK_SLOT, "�˗��񍐕s�v")
			CALL SHOW_IRAI_MESSAGE(CHARA, IRAI_SLOT:CHK_SLOT, "�˗��񍐕s�v")
			CALL CLEAR_IRAI_SLOT(CHARA, CHK_SLOT, "�˗�����")
		ELSE
			CALL SET_IRAI_PROGRESS(CHARA, "�񍐖Y��")
		ENDIF
	ENDSELECT
NEXT
;#;PRINTFORML �˗��������������A�f�o�b�O�����폜���܂�
;#;FORCEWAIT
;#;DEBUGCLEAR

;----------------------------------------------------------------------------------------------------
;�˗����e�̎��s����
;���s����SOURCE�̕ω��̑��A��V�⎸�s�ɂ�鏈�����܂�
;----------------------------------------------------------------------------------------------------
@IRAI_CARRYOUT(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
RESULT = 0
IF IS_COMMON_IRAI(IRAI_ID)
	TRYCCALLFORM IRAI_���{IRAI_ID % 1000}(CHARA, IRAI_ID, SCENE)
	CATCH
		PRINTFORML ���G���[������
		PRINTFORML �@CHARA:{CHARA}�@SCENE:%SCENE%�@IRAI_ID:{IRAI_ID}
		PRINTFORML �@�w��̊֐� @IRAI_���{IRAI_ID % 1000}�͑��݂��܂���
		PRINTFORML �@�G���[���O���R�s�y���ĕ񍐂��ĉ�����
		PRINTFORML
		PRINTFORMW �@���͑ҋ@��
	ENDCATCH
ELSE
	TRYCCALLFORM IRAI_�ŗL{IRAI_ID_TO_CLIENT(IRAI_ID)}(CHARA, IRAI_ID, SCENE)
	CATCH
		PRINTFORML ���G���[������
		PRINTFORML �@CHARA:{CHARA}�@SCENE:%SCENE%�@IRAI_ID:{IRAI_ID}
		PRINTFORML �@�w��̊֐� @IRAI_�ŗL{IRAI_ID_TO_CLIENT(IRAI_ID)}�͑��݂��܂���
		PRINTFORML �@�G���[���O���R�s�y���ĕ񍐂��ĉ�����
		PRINTFORML
		PRINTFORMW �@���͑ҋ@��
	ENDCATCH
ENDIF
RETURN RESULT
;RESULT�ƈ˗����s���茋�ʂ̑Ή���IRAI_CONST_RESULT(TYPE)���Q�Ƃ̂���

;----------------------------------------------------------------------------------------------------
;����ς݈˗����\���֐�
;----------------------------------------------------------------------------------------------------
@SHOW_ALL_IRAI_SLOT
#DIM CHK_SLOT
#DIM IRAI_NUM
IRAI_NUM = COUNT_IRAI_SLOT()
FOR CHK_SLOT, 1, IRAI_NUM + 1
	CALL SHOW_IRAI_DATA(IRAI_SLOT:CHK_SLOT, CHK_SLOT)
	PRINTFORML
NEXT

;----------------------------------------------------------------------------------------------------
;�˗����\���֐�
;�˗�ID�P�̂ł��g�p�ł��邪����ς݂̏ꍇ�͊ȗ����̂��߂�SLOT�ԍ���n��
;�t���l�[���\�L�Ȃ̂͂킴�Ƃł��i���̂ق������d�����ʂ��ۂ�������̂Łj
;----------------------------------------------------------------------------------------------------
@SHOW_IRAI_DATA(IRAI_ID, CHK_SLOT)
#DIM IRAI_ID   ;�Ώۂ̈˗�ID�i�˗��l���܂ށj
#DIM CHK_SLOT  ;����ΏۂƂ���˗��X���b�g�A������̏�Ԃł�0�œǂ�ŉ�����
#DIM CLIENT_ID ;�˗��lID
#DIM CHK_ID    ;�˗����̂�ID
#DIM DEAD_LINE ;��������
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
CHK_ID    = IRAI_ID % 1000
DEAD_LINE = INT_DATA_IRAI(IRAI_ID, "�˗�����", CLIENT_ID)
SIF CHK_SLOT
	PRINTFORML �˗�%TOFULL(TOSTR(CHK_SLOT))%
PRINTFORML �@��%STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)%��
PRINTFORML �@�@�˗��ҁF%NAME:CLIENT_ID%
PRINTFORML �@�˗����e�F%STR_DATA_IRAI(IRAI_ID, "�˗����e�\��", CLIENT_ID)%
PRINTFORML �@�@�@��V�F%STR_DATA_IRAI(IRAI_ID, "�˗���V�\��", CLIENT_ID)%
SIF STRLENS(STR_DATA_IRAI(IRAI_ID, "�˗��񍐕s�v", CLIENT_ID))
	PRINTFORML �@�@�@�񍐁F%STR_DATA_IRAI(IRAI_ID, "�˗��񍐕s�v", CLIENT_ID)%
SIF STRLENS(STR_DATA_IRAI(IRAI_ID, "�˗����l�\��", CLIENT_ID))
	PRINTFORML �@�@�@���l�F%STR_DATA_IRAI(IRAI_ID, "�˗����l�\��", CLIENT_ID)%
;#;PRINTFORML �@�@�˗�ID�F{IRAI_ID}�@CLIENT_ID{CLIENT_ID}

;������̏ꍇ�͊����̂ݕ\�����Ă����܂�
IF !CHK_SLOT
	IF !DEAD_LINE
		PRINTFORML �@�@�@�����F������
	ELSE
		PRINTFORML �@�@�@�����F{DEAD_LINE}���ȓ�
	ENDIF
	RETURN
ENDIF

;�����������ς݁A�Ǝ�ʂ̕\��
SELECTCASE IRAI_SLOT_TO_TASKNAME(CHK_SLOT)
CASE "���B"
	PRINTFORML �@�@�v���i�F%ITEMNAME:(IRAI_SLOT_TO_ITEM(CHK_SLOT))%�~{IRAI_SUB:CHK_SLOT}
CASE "�`�߁i�l���j"
	PRINTFORML �@�ڕW�l���F%NAME:(IRAI_SLOT_TO_PERSON(CHK_SLOT))%
CASE "�`�߁i�ꏊ�j"
	PRINTFORML �@�@�ړI�n�F%GET_PLACENAME(IRAI_SLOT_TO_PLACE(CHK_SLOT))%
ENDSELECT
CALL IRAI_CARRYOUT(CLIENT_ID, IRAI_ID, "�˗������\��")

;�m�肵�Ă�ꍇ�͂��̎|��\�����Ă����܂�
IF GROUPMATCH(IRAI_CHARA_TO_PROGRESS(CLIENT_ID), "�����؂�", "�񍐖Y��", "�˗����s")
	PRINTFORML �@�B���󋵁F���s
	RETURN
ELSEIF GROUPMATCH(IRAI_CHARA_TO_PROGRESS(CLIENT_ID), "�˗��B��")
	PRINTFORML �@�B���󋵁F�B���ς݁i���񍐁j
	RETURN
ELSEIF !DEAD_LINE
	PRINTFORML �@�@�@�����F������
ELSEIF DAY > IRAI_DEADLINE:CHK_SLOT
	PRINTFORML �@�@�@�����F�c��{IRAI_DEADLINE:CHK_SLOT - DAY}��
ELSEIF DAY == IRAI_DEADLINE:CHK_SLOT
	PRINTFORML �@�@�@�����F������
ENDIF

;----------------------------------------------------------------------------------------------------
;�˗��֘A�̌���Ăяo���֐�
;----------------------------------------------------------------------------------------------------
@SHOW_IRAI_MESSAGE(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
SIF FLAG:����e�L�X�g�ݒ� <= 0
	RETURN
SIF FLAG:����F
	TRYCALLFORM M_KOJO_COLOR_K{NO:CHARA}
IF SCENE == "�˗��񍐕s�v"
	TRYCALLFORM M_KOJO_IRAI_K{CHARA}("NO_REPORT", SCENE, IRAI_ID)
ELSEIF CHARA == IRAI_ID_TO_CLIENT(IRAI_ID)
;�Ώۂ��˗��҂ł���
	TRYCALLFORM M_KOJO_IRAI_K{CHARA}("CLIENT", SCENE, IRAI_ID)
ELSE
;���̏ꍇ�͂����ނ�SCENE��"�˗����s��"�ɂȂ邪�ꉞ�n��
	TRYCALLFORM M_KOJO_IRAI_K{CHARA}("TARGET", SCENE, IRAI_ID)
ENDIF
RESETCOLOR

;----------------------------------------------------------------------------------------------------
;�˗����Z�b�g�֐�
;�˗��֘A�ϐ��̑S������
;----------------------------------------------------------------------------------------------------
@IRAI_RESET
PRINTFORML ���ׂĂ̈˗������Z�b�g���܂��B
PRINTFORML ��낵���ł����H
CALL ASK_YN
IF !RESULT
	CVARSET CFLAG, 403
	CVARSET CFLAG, 404
	VARSET IRAI_SLOT
	VARSET IRAI_DATA
	VARSET IRAI_SUB
	VARSET IRAI_DEADLINE
	VARSET IRAI_CLIENT
	PRINTFORMW ���Z�b�g���܂����B
ENDIF

;----------------------------------------------------------------------------------------------------
;�˗������ʒm�֐�
;�����̒ʒm
;----------------------------------------------------------------------------------------------------
@MEMO_IRAI_DEADLINE
#DIM CLIENT
;����ς݈˗��̊����̏���
FOR LOCAL,1, 6
	SIF !IRAI_SLOT:LOCAL
		CONTINUE
	CLIENT = IRAI_SLOT_TO_CLIENT(LOCAL)
	SIF GROUPMATCH(IRAI_CHARA_TO_PROGRESS(CLIENT), "�˗���", "�˗��B��", "�˗����s")
		PRINTFORML %CALLNAME:CLIENT%�̈˗��̊����͂���{IRAI_DEADLINE:LOCAL - DAY}����
NEXT

;----------------------------------------------------------------------------------------------------
;�u������K�˂�v�ł̈˗��֘A�̃A�N�V����
;----------------------------------------------------------------------------------------------------
@IRAI_VISIT_HOME(CHARA)
#DIM PREV_TARGET     ;TARGET�ޔ�
#DIM CHARA           ;�Ώۂ����
#DIM IRAI_NUM        ;����˗���
#DIM CHK_SLOT        ;����ΏۃX���b�g
#DIM DYNAMIC CNT_DO  ;���s/�񍐂����˗������߂�l
PREV_TARGET = TARGET
TARGET = CHARA
IRAI_NUM = COUNT_IRAI_SLOT()
FOR CHK_SLOT, 1, IRAI_NUM + 1
	SIF !CAN_IRAI_VISIT_HOME_PERSON(CHARA, CHK_SLOT)
		CONTINUE
	PRINTFORML ��%STR_DATA_IRAI(IRAI_SLOT:CHK_SLOT, "�˗���", CHARA)%��
	PRINTFORMW �@��[%IRAI_SLOT_TO_ACTNAME(CHK_SLOT)%]
	CALL IRAI_APPLY(CHK_SLOT)
	SIF RESULT > 0
		CNT_DO ++
NEXT

IRAI_NUM = COUNT_IRAI_SLOT()
FOR CHK_SLOT, IRAI_NUM, 0, -1
	SIF !CAN_IRAI_VISIT_HOME_CLIENT(CHARA, CHK_SLOT)
		CONTINUE
	PRINTFORML ��%STR_DATA_IRAI(IRAI_SLOT:CHK_SLOT, "�˗���", CHARA)%��
	PRINTFORMW �@���˗���
	CALL IRAI_REPORT(CHARA)
	SIF RESULT > 0
		CNT_DO ++
NEXT
TARGET = PREV_TARGET
RETURN CNT_DO


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�1
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "�|������`����")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�̕����|������`��")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "�|��������")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
CASE "�˗��T�u"
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
CASE "�˗�������"
;����͑��̈�ʈ˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗���������"
;������Ȃ��Ɠ���}�b�v�̃L�����̂�
	SIF MAIN_MAP == GET_MAPID(GET_CHARAHOME(ARG))
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
;���̈˗��҂̎���ߕӂɂ���Ƃ�
;�i��{�����Ƃ��Ă܂��˗��҂Ƃ��Ȃ�������n�_�ɂ���͂��Ȃ̂ł���ł悢�j
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:����Q��
	ELSEIF YOGORE:(GET_CHARAHOME(ARG)) < 1000
	ELSEIF GET_MAPID(CFLAG:MASTER:���݈ʒu) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "�˗����s�\����"
;�˗��҂�TARGET������ł���A���̈˗��҂̎���ɂ���Ƃ�
;�i��{�����Ƃ��Ă܂��˗��҂Ƃ��Ȃ�������n�_�ɂ���͂��Ȃ̂ł���ł悢�j
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:����Q��
	ELSEIF YOGORE:(GET_CHARAHOME(ARG)) < 1000
	ELSEIF CFLAG:ARG:���݈ʒu == GET_CHARAHOME(ARG)
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗��l�A��o���\"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���1(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  SWEEP_ID
#DIM  SWEEP_POWER
#DIM  PREV_YOGORE
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
;
;"�˗����s��"�Ɍ����Ă����΁ACHARA��TARGET�Ɠ���ł���A�K������CLIENT_ID�ƈ�v����Ƃ͌���܂���
;�X�̃P�[�X�Ŋm�F����K�v������܂�
;���̈˗��́u��Ɓv�����ł���ACLIENT��TARGET�ɂȂ��Ă��鎞�̂ݎ��s�ł��܂�
;
;
;�قڑ|���R�}���h�̃R�s�[�����K����`���Ă���đ|�����ʂ�����
	PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�Ƌ��͂��ĕ����̑|�����s�Ȃ���
	PRINTFORML
	SWEEP_ID = CFLAG:MASTER:���݈ʒu
	SWEEP_POWER = (2 + ABL:MASTER:���|�Z�\ + 3 * TALENT:MASTER:���|����) * (5 - TALENT:MASTER:61) / 5
	PREV_YOGORE = YOGORE:SWEEP_ID
	YOGORE:SWEEP_ID = YOGORE:SWEEP_ID / (SWEEP_POWER + 1 + ABL:���|�Z�\)
	SIF GROUPMATCH(CFLAG:MASTER:���݈ʒu, 9, 10)
		YOGORE:(54) = 0
		;PRINTL ���łɒ��������Y��ɂ���
		;PRINTFORML �j���ۂ̎������ǂ��ċt���ɐU�邾��������ȒP��
	EX:MASTER:�����̑|���� += PREV_YOGORE - YOGORE:SWEEP_ID
	EXP:���|�o�� ++
	EXP:MASTER:���|�o�� ++

	DOWNBASE:MASTER:�̗� = 50
	DOWNBASE:MASTER:�C�� = 100
	DOWNBASE:�C�� = 100
	SOURCE:���y = 500
	SOURCE:���� = 200
	TIME += 20
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 500
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 10)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼01_掃除を手伝って.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�2
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
@��ʈ˗�2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "���Ԃɐ���������")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�̎���̑��؂ɐ���������")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "�˗��񍐕s�v"
	CALLF MAKE_STR(V_NAME, "�񍐕s�v�i��V�󗝂ɂ͕񍐕K�{�j")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "�����")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GET_CHARAHOME(ARG), "�`�߁i�ꏊ�j"))
CASE "�˗��T�u"
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
CASE "�˗�������"
;����͑��̈�ʈ˗��Ƃ̑��Ίm���Ȃ��15���ł͂���܂���
	CALLF MAKE_INT(V_NAME, 15)
CASE "�˗���������"
;������Ȃ��Ɠ���}�b�v�̃L�����̂�
	SIF MAIN_MAP == GET_MAPID(GET_CHARAHOME(ARG)) && MAP_CAN_MOVE(GET_CHARAHOME(ARG), MASTER) && ABL:ARG:�e�� >= 2
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
;���̈˗��҂̎���ɂ���Ƃ�
	SIF MAIN_MAP == GET_MAPID(GET_CHARAHOME(ARG)) && MAP_CAN_MOVE(GET_CHARAHOME(ARG), MASTER)
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗����s�\����"
		CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���2(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:CLIENT_ID%�̉Ƃ̔��A����A�؂ɐ���������
	PRINTFORML
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 500
	SOURCE:���y = 500
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 15)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -5)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼02_お花に水をあげて.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�3
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "��������ɂ�����")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�ƈꏏ�ɗV��")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, "�Ȃ��悭�Ȃ�")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "�V��")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
CASE "�˗��T�u"
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
CASE "�˗�������"
;����͑��̈�ʈ˗��Ƃ̑��Ίm���Ȃ��15���ł͂���܂���
	CALLF MAKE_INT(V_NAME, 15)
CASE "�˗���������"
;�c�t�L��������
;���~���A�ƂĂ�ł��������Ă��܂����C�ɂ����
	SIF TALENT:ARG:�c�t
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�˗����s�\����"
	CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���3(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
;
;"�˗����s��"�Ɍ����Ă����΁ACHARA��TARGET�Ɠ���ł���A�K������CLIENT_ID�ƈ�v����Ƃ͌���܂���
;�X�̃P�[�X�Ŋm�F����K�v������܂�
;���̈˗��́u��Ɓv�����ł���ACLIENT��TARGET�ɂȂ��Ă��鎞�̂ݎ��s�ł��܂�
;
;
	SOURCE:���y = 1500
	PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ƗV��
	PRINTFORML
	TIME += 20
	DOWNBASE:�̗� = 150
	DOWNBASE:�C�� = 100
	DOWNBASE:MASTER:�̗� = 150
	DOWNBASE:MASTER:�C�� = 100
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	TALENT:TARGET:�@�� = LIMIT(TALENT:�@�� + 1, -1, 1)
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 5)
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -5)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼03_いっしょにあそぼ.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�4
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "�������ɂȂ肽��")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�̗����̗��K���w������")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "������")
CASE "�˗����l�\��"
	CALLF MAKE_STR(V_NAME, "�܂��͗����ł���ꏊ�Ɉړ����悤")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
CASE "�˗��T�u"
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
CASE "�˗�������"
;����͑��̈�ʈ˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗���������"
	SIF ABL:ARG:�����Z�\ < ABL:MASTER:�����Z�\ && ABL:MASTER:�����Z�\ >=2 && ABL:ARG:�e�� >= 3
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	IF FLAG:����
	ELSEIF CFLAG:ARG:����Q��
	ELSEIF GET_MAPID(CFLAG:MASTER:���݈ʒu) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "�˗����s�\����"
	SIF !FLAG:���� && KITCHEN(CFLAG:MASTER:���݈ʒu)
		CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗��l�A��o���\"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���4(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
;
;"�˗����s��"�Ɍ����Ă����΁ACHARA��TARGET�Ɠ���ł���A�K������CLIENT_ID�ƈ�v����Ƃ͌���܂���
;�X�̃P�[�X�Ŋm�F����K�v������܂�
;���̈˗��́u��Ɓv�����ł���ACLIENT��TARGET�ɂȂ��Ă��鎞�̂ݎ��s�ł��܂�
;
;
	SOURCE:���y = 500
	PRINTFORML %CALLNAME:MASTER%��%CALLNAME:TARGET%�ƈꏏ�ɗ���������
	TIME += 20
	DOWNBASE:�̗� = 50
	DOWNBASE:�C�� = 50
	DOWNBASE:MASTER:�̗� = 50
	DOWNBASE:MASTER:�C�� = 50
	CALL ��ʈ˗�4_COOKING(TARGET)
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 20)
	MONEY += 500
	PRINTFORML
	PRINTFORML �ł��������͓�l�ł�������ɒ�����
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
	CALL �H��(TARGET)
	CALL RESET_DISH
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

@��ʈ˗�4_COOKING(CHARA)
#DIM CHARA
DISHQUALITY = CHARA_FOOD_QUALITY(CHARA)
DISHTYPE    = CHARA_RAND_COOKING(CHARA)
CALL COOKING(CHARA)

;�Ă��Ƃ��Ɍ��߂�
;�g���H�ނ̐���
@CHARA_FOOD_QUALITY(CHARA)
#FUNCTION
#DIM CHARA
#DIM CONST DISH_�e�H = 1
#DIM CONST DISH_���H = 2
#DIM CONST DISH_���H = 3
SELECTCASE CSVCALLNAME(NO:CHARA)
CASE "���[�~�A", "���O��", "���@", "���f�B�X��", "�F��"
	RETURNF DISH_�e�H
{
CASE "���", "���~���A", "�t����", "�V�q", "�ߋ�",
	 "�P��", "�H�X�q", "�i��", "���q", "����",
	 "�M", "�˕P", "�L�P", "����"
}
	RETURNF DISH_���H
CASEELSE
	RETURNF DISH_���H
ENDSELECT

;�������j���[���I
[SKIPSTART]
0 �Ȃ�
1 "�y�H",1,
2 "��H", ABL:MASTER:�����Z�\ > 1,
3 "�f�U�[�g", ABL:MASTER:�����Z�\ > 2,

4 "�֒f�̗���", ABL:MASTER:�����Z�\ > 2,
5 "�J�G������", ITEM:�J�G��
[SKIPEND]
@CHARA_RAND_COOKING(CHARA)
#FUNCTION
#DIM CHARA
#DIM CONST MENU_�y�H       = 1
#DIM CONST MENU_��H       = 2
#DIM CONST MENU_�f�U�[�g   = 3
#DIM CONST MENU_�֒f�̗��� = 4
#DIM CONST MENU_�J�G������ = 5
#DIM MENU_HIT, 6
VARSET MENU_HIT, 10
MENU_HIT:0 = 0
MENU_HIT:MENU_�֒f�̗��� = 0
MENU_HIT:MENU_�J�G������ = 0

SELECTCASE ABL:CHARA:�����Z�\
CASE 0, 1
	MENU_HIT:MENU_�y�H     += 5
	MENU_HIT:MENU_��H     += 10
CASE 2, 3
	MENU_HIT:MENU_��H     += 5
	MENU_HIT:MENU_�f�U�[�g += 10
ENDSELECT

SIF ABL:CHARA:�~�] >= 5
	MENU_HIT:MENU_�֒f�̗��� += 5
SIF ABL:CHARA:���t���� >= 3
	MENU_HIT:MENU_�֒f�̗��� += 5
SIF ABL:CHARA:�S�˒��� >= 3
	MENU_HIT:MENU_�֒f�̗��� += 5
SIF ABL:CHARA:��˒��� >= 3
	MENU_HIT:MENU_�֒f�̗��� += 5
RETURNF ARRAY_HIT(MENU_HIT, VARSIZE("MENU_HIT"))

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼04_料理上手になりたい.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�5
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "���P�ɂ�������")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�̒e���̓��P����`��")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "���P���I")
CASE "�˗����l�\��"
	CALLF MAKE_STR(V_NAME, "�܂��͓��P���ł���Ђ炯���ꏊ�Ɉړ����悤")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
CASE "�˗��T�u"
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
CASE "�˗�������"
;����͑��̈�ʈ˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗���������"
	SIF ABL:ARG:�퓬�\�� <= ABL:MASTER:�퓬�\�� && ABL:ARG:�e�� >= 2
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	IF CFLAG:ARG:����Q��
	ELSEIF GET_MAPID(CFLAG:MASTER:���݈ʒu) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "�˗����s�\����"
	SIF �퓬�P����(CFLAG:MASTER:���݈ʒu)
		CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗��l�A��o���\"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���5(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  BAD_WEATHER
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
;
;"�˗����s��"�Ɍ����Ă����΁ACHARA��TARGET�Ɠ���ł���A�K������CLIENT_ID�ƈ�v����Ƃ͌���܂���
;�X�̃P�[�X�Ŋm�F����K�v������܂�
;���̈˗��́u��Ɓv�����ł���ACLIENT��TARGET�ɂȂ��Ă��鎞�̂ݎ��s�ł��܂�
;

;�V�C���Q��
	BAD_WEATHER = 0
	SELECTCASE TIME:5
	CASE 4, 6, 8, 10, 12, 13
		;���V��
		BAD_WEATHER = 1
	CASE 5, 9
		;���o���V�C
		BAD_WEATHER = 2
	;����ȊO
	CASEELSE
		;�ď�͎��˂�
		SIF DAY:2 == 2 && TIME:5 == 1 && INRANGE(TIME, 361, 1019)
			BAD_WEATHER = 3
	ENDSELECT
	SIF !OUTROOF(CFLAG:MASTER:���݈ʒu)
		BAD_WEATHER = 0

	PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ƒe���������̓��P������
	SELECTCASE TIME:5
	CASE 4, 6
		PRINTL �J�̒��e���̌P�����s����
		PRINTW �ƂĂ���ꂽ
	CASE 1
		IF BAD_WEATHER == 3
			PRINTL ����Ȓ��˓����̉��Œe���̌P�����s����
			PRINTW �M���ǂɂȂ肻�����c
		ELSE
			PRINTW �_��Ȃ���̉��Œe���̌P�����s����
		ENDIF
	CASE 5
		PRINTL �������J���~��r�Ԓ��A�������P�������s����
		PRINTW ���ʂقǔ�ꂽ
	CASE 8, 10, 12, 13
		PRINTL ��̒��e���̌P�����s����
		PRINTW �ƂĂ���ꂽ
	CASE 9
		PRINTL �Ґ���̒��A�������P�������s����
		PRINTW ���ʂقǔ�ꂽ
	CASEELSE
;		PRINTL �e���̌P�����s����
	ENDSELECT

	TCVAR:MASTER:�󕠎��� -= 15
	TCVAR:TARGET:�󕠎��� -= 15
	DOWNBASE:MASTER:�̗� = 100 * (1 + BAD_WEATHER)
	DOWNBASE:MASTER:�C�� = 100 * (1 + BAD_WEATHER)
	DOWNBASE:�̗� = 50 * (1 + BAD_WEATHER)
	DOWNBASE:�C�� = 50 * (1 + BAD_WEATHER)
	SOURCE:���y = 400 + 100 * (1 + BAD_WEATHER)
	TIME += 60
	EXP:MASTER:�퓬�o�� ++
	EXP:TARGET:�퓬�o�� += 1 + BAD_WEATHER
	IF ITEM:101
		EXP:MASTER:�퓬�o�� ++
		EXP:TARGET:�퓬�o�� ++
	ENDIF
	IF ITEM:�X�|�[�c�h�����N >= 2
		IF BAD_WEATHER == 3
			DOWNBASE:MASTER:�̗� -= 200
			DOWNBASE:MASTER:�C�� -= 300
			DOWNBASE:�̗� -= 70
			DOWNBASE:�C�� -= 100
		ELSE
			DOWNBASE:MASTER:�̗� -= 50
			DOWNBASE:MASTER:�C�� -= 50
			DOWNBASE:�̗� -= 20
			DOWNBASE:�C�� -= 20
		ENDIF
		SOURCE:���y += 500
		PRINTL �P����ɓ�l�ŃX�|�[�c�h�����N������
		PRINTW ��ꂽ�̂ɐ��������ݓn���Ă����c
		ITEM:�X�|�[�c�h�����N -= 2
		;���̍\�����Ə����1���ۂ���2��
	ENDIF
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 500
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 20)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼05_特訓につきあって.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�6
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "�N�������āI")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�̃M�����ɓ�����")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "�˗����s�R�}���h��"
	IF IS_LIBRARY(CFLAG:MASTER:���݈ʒu)
		CALLF MAKE_STR(V_NAME, "����ׂ���")
	ELSE
		CALLF MAKE_STR(V_NAME, "�����Ă�����")
	ENDIF
CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���̑�"))
CASE "�˗��T�u"
	CALLF MAKE_INT(V_NAME, (ABL:ARG:���{ + RAND(1, 10)) * 10)
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
CASE "�˗�������"
;����͑��̈�ʈ˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗���������"
	SIF ABL:ARG:���{ <= ABL:MASTER:���{
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�˗����s�\����"
	;����ׂ��̂͂��ł�
	IF FLAG:70
	ELSEIF IS_LIBRARY(CFLAG:MASTER:���݈ʒu)
		CALLF MAKE_INT(V_NAME, 1)
	;������̂�CLIENT��TARGET�ɂ���K�v������
	ELSEIF TARGET == ARG && SHIRAHU(ARG)
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗��l�A��o���\"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���6(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  LIBRARY_ID
#DIMS LIBRARY_NAME
#DIM  CHK_SLOT
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
CHK_SLOT  = SEARCH_IRAI_SLOT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
PRINTFORML �@�@����x�F%IRAI_���6_DIFFICULTY(CHK_SLOT)%
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;�˗����s���ɂ�RESULT���Ӗ��������܂�
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	LIBRARY_ID = IS_LIBRARY(CFLAG:MASTER:���݈ʒu)
	IF LIBRARY_ID
		IF INRANGE(LIBRARY_ID, 1, 99)
			LIBRARY_NAME '= STR:LIBRARY_ID
		ELSE
			LIBRARY_NAME '= STR:(8000 + LIBRARY_ID)
		ENDIF
		IF TARGET == CLIENT_ID
			PRINTFORML %CALLNAME:MASTER%��%CALLNAME:TARGET%�̋^��ɓ����邽�߂�%LIBRARY_NAME%��K�ꂽ
			PRINTFORML �����Ȃ���ɗ������������肻����
			CALL ASK_M("��߂Ă���", 1, "����ׂ���", 1, "�񓚂��Ă݂�", 1)
			SELECTCASE RESULT
			CASE 0
				RETURN IRAI_CONST_RESULT("�L�����Z��")
			CASE 1
				PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%��%LIBRARY_NAME%�Œ��ו�������
				EXP:MASTER:�w�K�o�� ++
				EXP:TARGET:�w�K�o�� ++
				IRAI_SUB:CHK_SLOT -= ABL:MASTER:���{ + ABL:TARGET:���{ + 5
				IRAI_SUB:CHK_SLOT = MAX(IRAI_SUB:CHK_SLOT, 1)
			CASE 2
				GOTO ANSWER
			ENDSELECT
		ELSE
			PRINTFORML %CALLNAME:MASTER%��%LIBRARY_NAME%�Œ��ו�������
			EXP:MASTER:�w�K�o�� ++
			IRAI_SUB:CHK_SLOT -= ABL:MASTER:���{ + 3
			IRAI_SUB:CHK_SLOT = MAX(IRAI_SUB:CHK_SLOT, 1)
		ENDIF
		PRINTFORML ���݂̂��Ȃ��̗���x
		PRINTFORMW �@%IRAI_���6_DIFFICULTY(CHK_SLOT)%
		RETURN IRAI_CONST_RESULT("���s���Ė�����")
	ELSE
		$ANSWER
		PRINTFORML %CALLNAME:MASTER%��%CALLNAME:TARGET%�̋^��ɓ�����
		IF IRAI_���6_SUCCESS(CHK_SLOT)
			PRINTFORMW %CALLNAME:TARGET%�̋^��͕X�������I
			SOURCE:���y = 300
			EXP:MASTER:�w�K�o�� += ABL:TARGET:���{ * 5
			EXP:TARGET:�w�K�o�� += ABL:TARGET:���{ * 5
			IF ITEM:103
				EXP:MASTER:�w�K�o�� ++
				EXP:TARGET:�w�K�o�� ++
			ENDIF
			DOWNBASE:MASTER:�̗� = 70
			DOWNBASE:MASTER:�C�� = 100
			DOWNBASE:�̗� = 50
			DOWNBASE:�C�� = 70
			TIME += 30
			RETURN IRAI_CONST_RESULT("���s���Đ���")
		ELSE
			PRINTFORMW %CALLNAME:TARGET%�͔[���ł��Ȃ������悤���c�c
			RETURN IRAI_CONST_RESULT("���s���Ď��s")
		ENDIF
	ENDIF
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	CALL CHANGE_CFLAG(2, TARGET, 50)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	CALL KIGEN_CHANGE(TARGET,100,1)
	MONEY += 500
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

@IRAI_���6_SUCCESS(CHK_SLOT)
#FUNCTION
#DIM CHK_SLOT
SIF RAND:MAX(1, IRAI_SUB:CHK_SLOT) <= (1 + ABL:MASTER:���{) * 20
	RETURNF 1

@IRAI_���6_DIFFICULTY(CHK_SLOT)
#FUNCTIONS
#DIM CHK_SLOT
SIF IRAI_SUB:CHK_SLOT <= (1 + ABL:MASTER:���{) * 20
	RETURNF "�����ɗ��������Ă݂���"
;��Փx�S�̂ō������p�[�Z���g����������
SELECTCASE (IRAI_SUB:CHK_SLOT - ((1 + ABL:MASTER:���{) * 20)) * 100 / IRAI_SUB:CHK_SLOT
CASE 0, 1, 2, 3
	RETURNF "���܂�������ꂻ����"
CASE 4, 5, 6
	RETURNF "�\���ɋ�������"
CASE 7 TO 10
	RETURNF "�������邾�낤"
CASE 11 TO 33
	RETURNF "����Ŕ[�����Ă���Ȃ�����"
CASE 34 TO 50
	RETURNF "�����Ƃǂ��ɂ��Ȃ�A���Ԃ�"
CASE 51 TO 70
	RETURNF "������₾"
CASEELSE
	RETURNF "�܂�Ō��������Ȃ�"
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼06_誰か教えて！.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�7
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "��|�����I���Ȃ�")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, "��|���̂���`��")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\1500")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "�|������")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
CASE "�˗��T�u"
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
CASE "�˗�������"
	CALLF MAKE_INT(V_NAME, 80)
CASE "�˗���������"
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF !(DAY:2 == 4 && INRANGE(DAY:3, 15, 31))
	ELSEIF ABL:ARG:�e�� >= 3
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "�˗�����\����"
;���̈˗��҂̎���ߕӂɂ���Ƃ�
;�i��{�����Ƃ��Ă܂��˗��҂Ƃ��Ȃ�������n�_�ɂ���͂��Ȃ̂ł���ł悢�j
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:����Q��
	ELSEIF YOGORE:(GET_CHARAHOME(ARG)) < 1000
	ELSEIF GET_MAPID(CFLAG:MASTER:���݈ʒu) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "�˗����s�\����"
;�˗��҂�TARGET������ł���A���̈˗��҂̎���ɂ���Ƃ�
;�i��{�����Ƃ��Ă܂��˗��҂Ƃ��Ȃ�������n�_�ɂ���͂��Ȃ̂ł���ł悢�j
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:����Q��
	ELSEIF YOGORE:(GET_CHARAHOME(ARG)) < 1000
	ELSEIF CFLAG:ARG:���݈ʒu == GET_CHARAHOME(ARG)
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF !(DAY:2 == 4 && INRANGE(DAY:3, 15, 31))
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗��l�A��o���\"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���7(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  SWEEP_ID
#DIM  SWEEP_POWER
#DIM  PREV_YOGORE
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�Ƌ��͂��ēO��I�ɕ�����|������
	PRINTFORML
	SWEEP_ID = CFLAG:MASTER:���݈ʒu
	SWEEP_POWER = (2 + ABL:MASTER:���|�Z�\ + 3 * TALENT:MASTER:���|����) * (5 - TALENT:MASTER:61) / 5
	PREV_YOGORE = YOGORE:SWEEP_ID
	;�|�����ʂ���ɍ���
	YOGORE:SWEEP_ID = YOGORE:SWEEP_ID / (SWEEP_POWER + 2 + ABL:���|�Z�\)
	SIF GROUPMATCH(CFLAG:MASTER:���݈ʒu, 9, 10)
		YOGORE:(54) = 0
		;PRINTL ���łɒ��������Y��ɂ���
		;PRINTFORML �j���ۂ̎������ǂ��ċt���ɐU�邾��������ȒP��
	EX:MASTER:�����̑|���� += PREV_YOGORE - YOGORE:SWEEP_ID
	EXP:���|�o�� ++
	EXP:MASTER:���|�o�� ++

	DOWNBASE:MASTER:�̗� = 50
	DOWNBASE:MASTER:�C�� = 100
	DOWNBASE:�C�� = 100
	SOURCE:���y = 500
	SOURCE:���� = 200
	TIME += 40
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 1500
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1500���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -20)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼07_大掃除が終わらない.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�8
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "�莆��͂���")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"�Ƃ���l���Ɏ莆��͂���")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\1000")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "�莆��n��")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(WHO_LETTER_TO(ARG), "�`�߁i�l���j"))
CASE "�˗��T�u"
CASE "�˗�����"
;�������ł͂Ȃ�������Ɋm�肵�܂�
	CALLF MAKE_INT(V_NAME, 3)
CASE "�˗�������"
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗���������"
	SIF CFLAG:ARG:�M���x >= 30 && WHO_LETTER_TO(ARG)
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	SIF CFLAG:ARG:�M���x >= 30 && WHO_LETTER_TO(ARG)
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗����s�\����"
	CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���8(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɗa�����Ă����莆��n����
	PRINTFORML
	SOURCE:���y = 500
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 1000
	SOURCE:���y = 500
	CALL CHANGE_CFLAG(2, TARGET, 50)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1000���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -20)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼08_手紙を届けて.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�9
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "�N���̗��Ƃ���")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"�������T������")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "�˗��񍐕s�v"
	CALLF MAKE_STR(V_NAME, "�񍐕s�v�i��V�󗝂ɂ͕񍐕K�{�j")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "���Ƃ�����Ԃ�")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_PERSON(ARG), "�{���i�l���j"))
CASE "�˗��T�u"
CASE "�˗�����"
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗�������"
	CALLF MAKE_INT(V_NAME, 4)
CASE "�˗���������"
	SIF CFLAG:ARG:�M���x >= 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�˗����s�\����"
	CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���9(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɗa�����Ă������Ƃ�����Ԃ���
	PRINTFORML
	SOURCE:���y = 500
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 10)
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 500
	SOURCE:���y = 500
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 20)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -20)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼09_誰かの落とし物.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�10
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "�ǂ����Ă��݂���Ȃ�")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�̗��Ƃ�����T������")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\1000")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "�T��")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_PLACE(ARG, "LOST_ITEM"), "�{���i�ꏊ�j"))
CASE "�˗��T�u"
CASE "�˗�����"
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗�������"
	CALLF MAKE_INT(V_NAME, 3)
CASE "�˗���������"
	SIF CFLAG:ARG:�M���x >= 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�˗����s�\����"
	CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���10(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	PRINTFORMW �������T���Ă���%CALLNAME:MASTER%�͂��ɒT���Ă������Ƃ����𔭌�����
	PRINTFORML
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 1000
	SOURCE:���y = 1500
	CALL CHANGE_CFLAG(2, TARGET, 50)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1000���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -20)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼10_どうしてもみつからない.ERB


code:
;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_��ʈ˗�11
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�CLIENT_ID�ł�
@��ʈ˗�11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "�˗���"
	CALLF MAKE_STR(V_NAME, "�ǂ����Ă��݂���Ȃ�")
CASE "�˗����e�\��"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%�̗��Ƃ�����T������")
CASE "�˗���V�\��"
	CALLF MAKE_STR(V_NAME, @"\\1200")
CASE "�˗����s�R�}���h��"
	CALLF MAKE_STR(V_NAME, "�T��")

CASE "�˗����e"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_PERSON(ARG), "�{���i�l���j"))
CASE "�˗��T�u"
CASE "�˗�����"
	CALLF MAKE_INT(V_NAME, 10)
CASE "�˗�������"
	CALLF MAKE_INT(V_NAME, 3)
CASE "�˗���������"
	SIF CFLAG:ARG:�M���x >= 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "�˗�����\����"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�˗����s�\����"
	CALLF MAKE_INT(V_NAME, 1)
;����/���s������CARRYOUT�Œ��ڏ���
;SOURCE��ITEM����A����ώG�ɂȂ�̂�
CASE "�˗����ŏ���"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_���11(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "�˗������\��"
;������p�̕\������݂��������p
;����ς݂̈˗��\���Ŏg�p����܂�
;
;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
;�����ȊO�̕\�����ڂ�
;PRINTFORML �@�@�@�@�@�F
;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

CASE "�˗����s��"
;����CASE�Ɍ���ARESULT���Ӗ��������܂�
;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	SOURCE:���y = 100
	PRINTFORMW �������݂𑱂��Ă���%CALLNAME:MASTER%�͂��ɒT���Ă������Ƃ����𔭌�����
	PRINTFORML
	RETURN IRAI_CONST_RESULT("���s���Đ���")
CASE "�˗�������"
;�����񍐎��̕�V�Ȃ�
	MONEY += 1200
	SOURCE:���y = 1500
	CALL CHANGE_CFLAG(2, TARGET, 25)
	CALL CHANGE_CFLAG(4, TARGET, 15)
	PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1200���󂯎����
CASE "�˗����s��"
;���s�񍐎��̏���
	CALL CHANGE_CFLAG(2, TARGET, -20)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/コマンド関連/COMF/依頼/一般依頼11_どうしてもみつからない.ERB


code:
;�I�u�W�F�N�g�{��
;������ARG�œn�����̂�IRAI_SLOT�̒��g�i�˗�ID + �˗��ғo�^�ԍ� * 1000�j�ł�
;�֐�����@�ŗL�˗�X��X�̓L�����ԍ��i�얲�̈˗��j��
;������@EXIST�֐��s�v�ł悵�i�Ƃ������Ƃɂ���j
;�㗬�A�L�����f�[�^���ň˗�ID�͈̔͂��L�q����̂����ۂ̊m�F�����˂�
;�֐���etc���~�X������G���[�f���Ă���邵�킩�邾��
@�ŗL�˗�1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F������
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "������")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�얲�̌�������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, "�`")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "��������")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	;�������ł͂Ȃ�������Ɋm�肵�܂�
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
	;�f�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT

;ID102�F�������̖Y�ꕨ
CASE 102
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�������̖Y�ꕨ")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�������ɖY�ꕨ��͂���")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "�˗��񍐕s�v"
		CALLF MAKE_STR(V_NAME, "�񍐕s�v�i��V�󗝂ɂ͕񍐕K�{�j")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�Y�ꕨ��͂���")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(11, "�`�߁i�l���j"))
	CASE "�˗��T�u"
	CASE "�˗�����"
		CALLF MAKE_INT(V_NAME, 7)
	;�������ł͂Ȃ�������Ɋm�肵�܂�
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		SIF GET_MAPID(CFLAG:11:���݈ʒu) != 0 && CAN_MEET(11)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367/@CAN_IRAI_SLOT_DO���m�F�̂���
	;�f�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT

;ID103�F����p�̎�
CASE 103
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "����p�̎�")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "���̔[��(10�{)")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, "����K�̓A�b�v")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "������n��")

	;�Ώۂ�ITEM_ID���I���\�Ȃ̂łƂ肠������ƕ��ނ�
	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	;�������ł͂Ȃ�������Ɋm�肵�܂�
	CASE "�˗�������"
	;�����𖞂����̂��H���Ǝv���̂ō��߂ɂ��܂��傤
		CALLF MAKE_INT(V_NAME, 100)
	CASE "�˗���������"
		SIF FLAG:����J�Ãt���O == 1
			CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		SIF MAX(ITEM:51, ITEM:52, ITEM:53) >= 10
			CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
		SIF FLAG:����J�Ãt���O == 1 && !DAY % 7
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̎������p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL1(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "������"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;�˗����s���ɂ�RESULT���Ӗ��������܂�
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
	;
	;�E���s��/������/���s�񍐂Œn�̕�������Ƃ��͂�������Ō��WAIT�����ق�������
	;�E�������A@CHANGE_CFLAG���g���Ɗ֐�����PRINTFORMW����WAIT������
		SOURCE:���y = 1000
		SOURCE:� = 300
		SOURCE:�I�o = 20
		DOWNBASE:�C�� += 50
		DOWNBASE:MASTER:�C�� += 50
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�̌��𝆂�
		;����͒ǉ���10��
		TIME += 10
		;�l���̊m���ł����Ƃ���āI����
		IF RAND:100 < 60
			RETURN IRAI_CONST_RESULT("���s���Ė�����")
		ELSE
			RETURN IRAI_CONST_RESULT("���s���Đ���")
		ENDIF
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		ITEM:�` ++
		SOURCE:���y += 1000
		CALL CHANGE_CFLAG(2, 1, 20)
		CALL CHANGE_CFLAG(4, 1, 5)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V�̐`���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		CALL CHANGE_CFLAG(2, 1, -5)
		CALL CHANGE_CFLAG(4, 1, -3)
	ENDSELECT

CASE "�������̖Y�ꕨ"
	SELECTCASE SCENE
	CASE "�˗������\��"
	CASE "�˗����s��"
		SOURCE:���y = 500
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:11%�ɖY�ꕨ��͂���
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, 11, 20)
		CALL CHANGE_CFLAG(4, 11, 10)
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
		MONEY += 500
		SOURCE:TARGET:���y += 1000
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 10)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
	CASE "�˗����s��"
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

CASE "����p�̎�"
	SELECTCASE SCENE
	CASE "�˗������\��"
	CASE "�˗����s��"
		PRINTL �ǂ��n�������H
		CALL ���ꗗ�\��(10)
		IF INRANGE(RESULT, 51, 53)
			PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɂ�����n����
			ITEM:RESULT -= 10
			FLAG:��������� = RESULT
			RETURN IRAI_CONST_RESULT("���s���Đ���")
		ELSE
			RETURN IRAI_CONST_RESULT("�L�����Z��")
		ENDIF
	CASE "�˗�������"
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 50)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 20)
	CASE "�˗����s��"
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, -30)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

ENDSELECT


code:
@�ŗL�˗�10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F�����̂܂���
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�����̂܂���")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "������[������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\5000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "������n��")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "����"), "���B"))
	CASE "�˗��T�u"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����"
	;�������ł͂Ȃ�������Ɋm�肵�܂�
		CALLF MAKE_INT(V_NAME, 5)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL10(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "�����̂܂���"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɂ�����n����
		ITEM:���� --
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		SOURCE:TARGET:���y += 2000
		MONEY += 5000
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 30)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 20)
		;�@�����悭���鏈�������Ă�����
		TALENT:TARGET:�@�� = LIMIT(TALENT:�@�� + 1, -1, 1)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\5000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, -50)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, -20)
		;�@�������������鏈�������Ă�����
		TALENT:(TARGET):�@�� = LIMIT(TALENT:(TARGET):�@�� -1, -1, 1)
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F��A�C�X
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "��A�C�X")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�A�C�X��6�[������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\3000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�A�C�X��n��")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "�A�C�X"), "���B"))
	CASE "�˗��T�u"
		CALLF MAKE_INT(V_NAME, 6)
	CASE "�˗�����"
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		;�`���m�ɉ���Ԃł��邱��
		SIF CAN_MEET(14)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL13(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "��A�C�X"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɃA�C�X��͂���
		;�A�C�X
		ITEM:213 -= 6
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		SOURCE:TARGET:���y += 200
		SOURCE:TARGET:���� += 300
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 5)
		MONEY += 3000
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\3000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F���[�I���[�I�ځ[�I
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "���[�I���[�I�ځ[�I")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�ꏏ�ɗV��")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, "��������")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�V�тɕt������")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		IF SHIRAHU(TARGET) != 1
		ELSE
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL14(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "���[�I���[�I�ځ[�I"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		SOURCE:���y = 1500
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ƃL���b�`�{�[�������鎖�ɂ���
		PRINTFORMW %CALLNAME:TARGET%�I�n�Ί炾����
		PRINTL
		TIME += 20
		DOWNBASE:�̗� = 150
		DOWNBASE:�C�� = 100
		DOWNBASE:MASTER:�̗� = 150
		DOWNBASE:MASTER:�C�� = 100
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		ITEM:�J�G�� ++
		TALENT:TARGET:�@�� = LIMIT(TALENT:�@�� + 1, -1, 1)
		CALL CHANGE_CFLAG(2, 14, 30)
		CALL CHANGE_CFLAG(4, 14, 15)
		PRINTFORML %CALLNAME:MASTER%�͈˗���V���󂯎����
		PRINTFORMW �c�c���̃J�G���A�ǂ����悤���H
	CASE "�˗����s��"
	;���s�񍐎��̏���
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F����ɍ�������
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "����ɍ�������")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "����ɍ��������n��")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "�˗��񍐕s�v"
		CALLF MAKE_STR(V_NAME, "�񍐕s�v�i�񍐂Ȃ��ŕ�V�󗝉\�j")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "���������n��")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(58, "�`�߁i�l���j"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		SIF CAN_MEET(58)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL15(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "����ɍ�������"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		SOURCE:���y = 500
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%��%CALLNAME:15%�̍��������n����
		PRINTFORMW %CALLNAME:TARGET%�͊��Ŏ󂯎����
		PRINTL
		CALL CHANGE_CFLAG(2, TARGET, 30)
		CALL CHANGE_CFLAG(4, TARGET, 15)
		TALENT:�@�� = LIMIT(TALENT:�@�� + 1, -1, 1)
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		MONEY += 1000
		CALL CHANGE_CFLAG(2, TARGET, 20)
		CALL CHANGE_CFLAG(4, TARGET, 10)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1000���󂯎����
	CASE "�˗��񍐕s�v"
	;�B����ɕ񍐂����Ȃ������ꍇ�A�������炷
		PRINTFORML �˗���B������%CALLNAME:MASTER%�̕�����%CALLNAME:CHARA%����̂���\\1000���͂���
		MONEY += 1000
		CALL CHANGE_CFLAG(2, CHARA, 15)
		CALL CHANGE_CFLAG(4, CHARA, 7)
	CASE "�˗����s��"
	;���s�񍐎��̏���
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�23(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F�J���X�}�؂�
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�J���X�}�؂�")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "100�J���X�}�n��")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\20000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�J���X�}��������")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		SIF MONEY:2 >= 100
			CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL23(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "�J���X�}�؂�"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		SOURCE:���y = 3000
		MONEY:2 -= 100
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		MONEY += 20000
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 10)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\20000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�29(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F��������������
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "��������������")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�������O�ȏ�[������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\5000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "������n��")

	;�˗��Ώۂ����s���Ɍ��肷��̂�
	;�Ƃ肠������Ƃɂ���CLIENT�Ƃ̓������肾���������
	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	;�������ł͂Ȃ�������Ɋm�肵�܂�
		CALLF MAKE_INT(V_NAME, 8)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		SIF MAX(ITEM:51, ITEM:52, ITEM:53) >= 3
			CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID102�F�X���A���P�[�g
CASE 102
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�X���A���P�[�g")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�l���L��ł̕�������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\3000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�X���A���P�[�g")

	CASE "�˗����e"
		;�l�������L��(202)���Ώ�
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(202, "�`�߁i�ꏊ�j"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	;�������ł͂Ȃ�������Ɋm�肵�܂�
		CALLF MAKE_INT(V_NAME, 7)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		IF FLAG:70
		ELSE
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL29(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "��������������"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		PRINTL �ǂ��n�������H
		CALL ���ꗗ�\��(3)
		IF INRANGE(RESULT, 51, 53)
			PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɂ�����n����
			ITEM:RESULT -= 3
			;TFLAG�ɓn������ԍ���ۑ��B��V�Ȃǂ𕪊򂳂������ꍇ�ɁB
			TFLAG:194 = RESULT
			RETURN IRAI_CONST_RESULT("���s���Đ���")
		ELSE
			RETURN IRAI_CONST_RESULT("�L�����Z��")
		ENDIF
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		CALL KIGEN_CHANGE(TARGET, 100, 1)
		SOURCE:TARGET:���y += 2000
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 30)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 10)
		MONEY += 5000
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\5000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

CASE "�X���A���P�[�g"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		DOWNBASE:MASTER:�C�� += 50
		PRINTFORMW %CALLNAME:MASTER%�͓��s�����l���������܂��Ă̓A���P�[�g�������s�Ȃ���
		TIME += 120
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		CALL KIGEN_CHANGE(TARGET, 100, 1)
		SOURCE:TARGET:���y = 1000
		SOURCE:TARGET:���� = 500
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 30)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 15)
		MONEY += 3000
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\3000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�30(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F������������
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "������������")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�����ɉf�P�̎莆��͂���")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�莆��n��")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(76, "�`�߁i�l���j"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	;�������ł͂Ȃ�������Ɋm�肵�܂�
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		SIF CAN_MEET(76)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
		;�d���̗j���łȂ�
		IF !GROUPMATCH(GET_DAY(), "��", "��", "��")
		;�d���̎��ԑтłȂ�
		ELSEIF !INRANGE(TIME / 60, 10, 15)
		;�������O�r�̐�ɂ���
		ELSEIF CFLAG:76:���݈ʒu == �O�r�̐�
		;��L�̏����𔲂����ꍇ�A�T�{��F��Ƃ���
		ELSE
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL30(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "������������"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:76%�ɗa�����Ă����莆����n����
		SOURCE:76:���| = 100
		SOURCE:76:���] = 500
		CALL CHANGE_CFLAG(4, 76, 3)
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 15)
		MONEY += 1000
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�49(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F�Q�l����
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�Q�l����")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�{���؂�Ă���")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�{���؂��")
	CASE "�˗����l�\��"
		CALLF MAKE_STR(V_NAME, "�l���̑ݖ{�����g���ق̑�}���ق���{���؂�Ă��邨������")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���̑�"))
	CASE "�˗��T�u"
	CASE "�˗�����"
		CALLF MAKE_INT(V_NAME, 7)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		SIF GROUPMATCH(CFLAG:MASTER:���݈ʒu, GET_MAP_REPLACEMENT(213), GET_MAP_REPLACEMENT(310))
			CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID102�F�}���̕ԋp�i�l���j
CASE 102
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�}���̕ԋp�i�l���j")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�{��Ԃ��Ă���")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�{��Ԃ�")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(213, "�`�߁i�ꏊ�j"))
	CASE "�˗��T�u"
	CASE "�˗�����"
		CALLF MAKE_INT(V_NAME, 3)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID103�F�}���̕ԋp�i�g���فj
CASE 103
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�}���̕ԋp�i�g���فj")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�{��Ԃ��Ă���")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�{��Ԃ�")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(310, "�`�߁i�ꏊ�j"))
	CASE "�˗��T�u"
	CASE "�˗�����"
		CALLF MAKE_INT(V_NAME, 3)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL49(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
;�Ăʂ��I
CASE "�Q�l����", "�}���̕ԋp�i�l���j", "�}���̕ԋp�i�g���فj"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:49%�̂����������Ȃ���
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		MONEY += 500
		CALL CHANGE_CFLAG(2, TARGET, 20)
		CALL CHANGE_CFLAG(4, TARGET, 10)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\500���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�51(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F�ɂƂ�Ƃ��イ��
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�ɂƂ�Ƃ��イ��")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "���イ���[������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�L���E����[��")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "�L���E��"), "���B"))
	CASE "�˗��T�u"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����"
		CALLF MAKE_INT(V_NAME, 7)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID102�F�����ς����[���[
CASE 102
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�����ς����[���[")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�����J���p�̎�����t�i100�J���X�}�j")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, "�e�i�i���[�^�[1�j")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "������t")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		SIF MONEY:2 >= 100
			CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL51(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "�ɂƂ�Ƃ��イ��"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		SOURCE:TARGET:���y += 500
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɃL���E����[������
		PRINTFORML
		ITEM:�L���E�� --
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		MONEY += 1000
		CALL CHANGE_CFLAG(2, TARGET, 30)
		CALL CHANGE_CFLAG(4, TARGET, 20)
		TALENT:�@�� = LIMIT(TALENT:�@�� + 1, -1, 1)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
		TALENT:�@�� = LIMIT(TALENT:�@�� - 1, -1, 1)
	ENDSELECT

CASE "�����ς����[���["
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		SOURCE:���y = 1000
		MONEY:2 -= 100
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɃJ���X�}����t����
		RETURN 0
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		ITEM:���[�^�[ ++
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 10)
		PRINTFORMW �e�i�̃��[�^�[���󂯎����
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗����s��"
	;���s�񍐎��̏���
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@�ŗL�˗�76(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F���~�}�W�炢
;�܁[�A���z���肵�ĂȂ����낤���Ǝ����߂̉򂾂�
;�Z����������Ȃ��Ǝv�����̂ł���
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "���~�}�W�炢")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�O�r�̓n��̕⍲������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\5000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�����̂���`��")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "���"))
	CASE "�˗��T�u"
	CASE "�˗�����"
	;�������ł͂Ȃ�������Ɋm�肵�܂�
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		SIF GET_MONTH() == "�Ă̌�" && INRANGE(DAY:3, 1, 15)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
		;�Ă̌��̑O�������~�F��
		IF !(GET_MONTH() == "�Ă̌�" && INRANGE(DAY:3, 1, 15))
		;�y���͋x��
		ELSEIF GROUPMATCH(GET_DAY(), "�y", "��")
		;�d���̎��ԑтłȂ�
		ELSEIF !INRANGE(TIME / 60, 10, 15)
		ELSEIF CFLAG:76:����Q��
		;�����Ƃ�������ɎO�r�̐�ɂ���
		ELSEIF ALLSAMES(CFLAG:76:���݈ʒu, CFLAG:MASTER:���݈ʒu, �O�r�̐�)
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		SIF ALLSAMES(CFLAG:76:���݈ʒu, CFLAG:MASTER:���݈ʒu, �O�r�̐�)
			CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
		SIF !(GET_MONTH() == "�Ă̌�" && INRANGE(DAY:3, 1, 15))
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL76(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "���~�}�W�炢"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		DOWNBASE:MASTER:�̗� += 100
		DOWNBASE:MASTER:�C�� += 50
		PRINTFORMW %CALLNAME:MASTER%�͖S�҂ł������Ԃ��͌��Ŏ��_�����ɍ������ē�����
		TIME += 120
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		SOURCE:TARGET:���y += 500
		SOURCE:TARGET:���� += 500
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, 10)
		MONEY += 5000
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\5000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		;�V�X�e�����b�Z�[�W���D���x�ω�
		;�Ō�̈��������D���x���ω�
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;�V�X�e�����b�Z�[�W���M���x�ω�
		;�Ō�̈��������M���x���ω�
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

ENDSELECT


code:
@�ŗL�˗�79(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101�F�Î���������
CASE 101
	SELECTCASE O_DATA
	CASE "�˗���"
		CALLF MAKE_STR(V_NAME, "�Î���������")
	CASE "�˗����e�\��"
		CALLF MAKE_STR(V_NAME, "�Î����[������")
	CASE "�˗���V�\��"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "�˗����s�R�}���h��"
		CALLF MAKE_STR(V_NAME, "�Î���n��")

	CASE "�˗����e"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "�Î�"), "���B"))
	CASE "�˗��T�u"
		CALLF MAKE_INT(V_NAME, 2)
	CASE "�˗�����"
		CALLF MAKE_INT(V_NAME, 3)
	CASE "�˗�������"
	;����͑��̌ŗL�˗��Ƃ̑��Ίm���Ȃ��10���ł͂���܂���
		CALLF MAKE_INT(V_NAME, 10)
	CASE "�˗���������"
		SIF DAY:2 != 2
			CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗�����\����"
	;����\��@COM_ABLE366���m�F�̂���
	;�������Q�Ƃ���͈̂˗��l��TARGET�ɂ��Ă鎞�Ȃ̂őf�ʂ��ł悵
		CALLF MAKE_INT(V_NAME, 1)
	CASE "�˗����s�\����"
	;���s�\��@COM_ABLE367���m�F�̂���
		CALLF MAKE_INT(V_NAME, 1)
	;����/���s������CARRYOUT�Œ��ڏ���
	;SOURCE��ITEM����ȂǁA���e�����G�Ȃ̂�
	CASE "�˗����ŏ���"
	;30���ŏ���
		SIF RAND:100 < 30 || DAY:2 == 2
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;�ŗL�˗��̐ݒ�p
;���̊֐��͎��s/����/���s����
;��V�ƃy�i���e�B�ƒn�̕��݂̂������܂�
;�e�L�����̃��b�Z�[�W�͕ʏ��ɂ�
@IRAI_�ŗL79(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "�˗���", CLIENT_ID)
;�X�̈˗����ŕ���
CASE "�Î���������"
	SELECTCASE SCENE
	CASE "�˗������\��"
	;������p�̕\������݂��������p
	;����ς݂̈˗��\���Ŏg�p����܂�
	;
	;PRINT�n������SOURCE�Ƃ��͓��ꂿ��_���AWAIT��������
	;�����ȊO�̕\�����ڂ�
	;PRINTFORML �@�@�@�@�@�F
	;�ƂȂ��Ă���̂ŃX�y�[�X�𑵂����ق������h�����ǂ��ł�

	CASE "�˗����s��"
	;����CASE�Ɍ���ARESULT���Ӗ��������܂�
	;�˗����s����RESULT�ɂ�IRAI_CONST_RESULT()���g�p���Ă�������
	;�\�Ȉ�����"�L�����Z��", "���s���Đ���", "���s���Ď��s", "���s���Ė�����"�ł�
	;�Ǝ��������d���݂�������"���s���Ė�����"�Ő扄�΂�����Ȃ肵�Ă�������
		SOURCE:TARGET:���y += 500
		SOURCE:MASTER:�I�o += 100
		PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:TARGET%�ɊÎ���n���ƁA�ޏ��̕\����������a�炢��
		PRINTFORML �Ӂ[�Ӂ[���Ȃ���Î�������%CALLNAME:TARGET%������Ώ����Ȃ����ƒ������Ă����
		PRINTFORMW ���̎����ɋC�t����%CALLNAME:TARGET%�Ƃꂭ�������ɂ͂ɂ���
		PRINTFORML
		ITEM:�Î� -= 2
		TIME += 20
		RETURN IRAI_CONST_RESULT("���s���Đ���")
	CASE "�˗�������"
	;�����񍐎��̕�V�Ȃ�
		MONEY += 1000
		CALL CHANGE_CFLAG(2, TARGET, 30)
		CALL CHANGE_CFLAG(4, TARGET, 20)
		TALENT:�@�� = LIMIT(TALENT:�@�� + 1, -1, 1)
		PRINTFORMW %CALLNAME:MASTER%�͈˗���V��\\1000���󂯎����
	CASE "�˗����s��"
	;���s�񍐎��̏���
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT