code:
;-------------------------------------------------
;�S��
;SM�n�R�}���h�A���x��1
;-------------------------------------------------
@COM107
IF CFLAG:������S�� == 1 && !TEQUIP:�S��
	PRINTFORML �ȑO��������o�����ꂽ%CALLNAME:TARGET%�͕��������������c
	PRINTFORML [0] ������߂�
	PRINTFORML [1] �������܂��񂩂�
	$LOOP
	INPUT
	IF RESULT == 0
		PRINTFORML %CALLNAME:TARGET%���{��̂������Ƃ��Ȃ̂ŁA�S����������߂�
		RETURN -1
	ELSEIF RESULT == 1
		IF ABL:�}�]���C >= 3 || (CFLAG:4 + ABL:PLAYER:�b�p�Z�\ * 100) > 1500
			PRINTFORML �q�ݓ|���ĂȂ�Ƃ�%CALLNAME:TARGET%�����������
			CFLAG:������S�� = 2
		ELSE
			PRINTFORML %CALLNAME:PLAYER%�������������ƁA%CALLNAME:TARGET%�͋����Ă���Ȃ������c
			SOURCE:���� += 10000
			BASE:���[�h /= 2
			TFLAG:193 = 1
			RETURN -1
		ENDIF
	ELSE
		GOTO LOOP
	ENDIF
ELSEIF CFLAG:������S�� == 3 && !TEQUIP:�S��
	PRINTFORML �}�X�������܂��S���������ƌ����o����%CALLNAME:PLAYER%�ɁA%CALLNAME:TARGET%�͗��₩�Ȏ�����������
	CALL ASK_YN("�����܂���",@"����ł��S�����ꂽ%CALLNAME:TARGET%���D���Ȃ�ł�")
	IF RESULT == 0
		PRINTFORML �댯���@����%CALLNAME:PLAYER%�͂������܈�����������
		RETURN -1
	ELSEIF RESULT == 1
		IF ABL:�}�]���C >= 3 || (CFLAG:4 + ABL:PLAYER:�b�p�Z�\ * 100) > 3000
			PRINTFORML %CALLNAME:TARGET%�͂Ȃ񂾂��񂾌������A�Ō�ɂ͍S�������Ă��ꂽ
			PRINTW ����낢�I
		ELSE
			PRINTFORML %CALLNAME:TARGET%�͉������킸��%CALLNAME:PLAYER%�ɔw�������ĕ��𒅂Ă��܂���
			CUP:�~�� = 0
			SOURCE:���� += 10000
			BASE:���[�h = 0
			FOR LOCAL,0,CHARANUM
				SIF CFLAG:���ӂ� == 2
					CALL SET_DERAY(5,LOCAL)
				CALL ENDUFUFU(LOCAL)
			NEXT
			TFLAG:106 = 0
			;PLAYER�Ƃ̐ڐG�ʒu�����Z�b�g
			CALL TOUCH_SET(0,0,0,1)
			;�͂����t���O���I�t
			TEQUIP:2 = 0
			TEQUIP:�㔼�g�͂������ = 0
			;�L�����S���̕��ăZ�b�e�B���O
			FOR LOCAL,0,CHARANUM
				CALL CLOTHES_SETTING_TRAIN(LOCAL)
				;�㒅�E�ߍς݃t���O���I�t
				TEQUIP:LOCAL:5 = 0
			NEXT
			TFLAG:193 = 1
			RETURN 1
		ENDIF
	ENDIF
ENDIF
;-------------------------------------------------
;���E�̏���
IF TEQUIP:�S��
	TEQUIP:�S�� = 0
	TCVAR:����� = 0
ELSE
	TEQUIP:�S�� = 1
ENDIF

;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER
;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
DOWNBASE:�̗� += 10
DOWNBASE:�C�� += 80

SOURCE:��� = 60
SOURCE:���| = 180
SOURCE:���] = 100
SOURCE:���� = 350
;-------------------------------------------------
;����\�[�X����
;-------------------------------------------------
;�ٔ��o���������Ə����
IF EXP:�ٔ��o�� < EXPLV:3
	TIMES DOWNBASE:�̗� , 1.00
	TIMES DOWNBASE:�C�� , 1.00
ELSEIF EXP:�ٔ��o�� < EXPLV:4
	TIMES DOWNBASE:�̗� , 0.90
	TIMES DOWNBASE:�C�� , 0.90
ELSE
	TIMES DOWNBASE:�̗� , 0.70
	TIMES DOWNBASE:�C�� , 0.70
ENDIF
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:�ٔ��o�� += 1
;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
;IF HETEROSEX(TARGET,PLAYER)
;	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 1
;	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
;ENDIF
RETURN 1
;-------------------------------------------------
;�����p���̏���
;-------------------------------------------------
@EQUIP_COM107(ARG)
PRINTL ���S������
;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
DOWNBASE:ARG:�̗� += 10

SOURCE:ARG:��� += 30
SOURCE:ARG:���| += 180
SOURCE:ARG:���] += 50
SOURCE:ARG:���� += 200
;-------------------------------------------------
;����\�[�X����
;-------------------------------------------------
;�ٔ��o���������Ə����
LOCAL = 60
IF EXP:ARG:�ٔ��o�� < EXPLV:3
	TIMES LOCAL , 1.00
ELSEIF EXP:ARG:�ٔ��o�� < EXPLV:4
	TIMES LOCAL , 0.90
ELSE
	TIMES LOCAL , 0.70
ENDIF
DOWNBASE:ARG:�C�� += LOCAL

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:ARG:�ٔ��o�� ++
EXP:PLAYER:�n�s���y�o�� += 1
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE107
;�S���v���C���s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(107)
	RETURN RESULT
;��ł��΂��Ă�ƃ_��
SIF TEQUIP:��
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;��~���͕s��
SIF FLAG:70
	RETURN 0
;�����͂��ł��\
SIF TEQUIP:�S��
	RETURN 1
;�A�C�e���������Ă��邩�A�A�C�e���Ȃ��ݒ�łȂ��ƃ_��
SIF ITEM:27 == 0 && NOITEM == 0
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�����Ƃ�����
;����ɂ��R�}���h�A�y�у��Y�v���C�A���x��4
;-------------------------------------------------
@COM122
PRINTL �����Ƃ�����
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
A = 0
S = 0

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

;ABL:�~�]
IF ABL:�~�]
	SIF S
		PRINT  +
	A += ABL:�~�] * 2
	PRINT �~�]
	PRINTV 'LV,ABL:�~�],'(,ABL:�~�] * 2,')
	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

IF MARK:���y����
	SIF S
		PRINT  +
	A += MARK:���y���� * 2
	PRINT ���y����
	PRINTV 'LV,MARK:���y����,'(,MARK:���y���� * 2,')
	S = 1
ENDIF
;PALAM:�~��
IF GETPALAMLV(PALAM:�~��,5)
	SIF S
		PRINT  +
	A += GETPALAMLV(PALAM:�~��,5) * 2
	PRINT �~��
	PRINTV 'LV,GETPALAMLV(PALAM:�~��,5),'(,GETPALAMLV(PALAM:�~��,5) * 2,')
	S = 1
ENDIF
;�p���炢
IF TALENT:㵒p�S > 0
	PRINT  -
	A -= 1
	PRINT �p���炢
	PRINTV '(,1,')
	S = 1
ENDIF
;���g�I
IF TALENT:���g�I
	SIF S
		PRINT  +
	A += 6
	PRINT ���g�I
	PRINTV '(,6,')
	S = 1
ENDIF
;�����ɑf��
IF TALENT:�������� > 0
	SIF S
		PRINT  +
	A += 2
	PRINT �����ɑf��
	PRINTV '(,2,')
	S = 1
ENDIF
;�����̔ے�i�����A���w�Ŗ����j
IF TALENT:�������� < 0 && !TALENT:����
	PRINT  -
	A -= 2
	PRINT �����̔ے�
	PRINTV '(,2,')
	S = 1
ENDIF
;����
IF TALENT:���� && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ����
	PRINTV '(,5,')
	S = 5
ENDIF
;���w
IF TALENT:���� > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ���w
	PRINTV '(,5,')
	S = 5
ENDIF

;���肪����
IF TALENT:PLAYER:����
	PRINT  -
	A -= 15
	PRINT ���肪����
	PRINTV '(,15,')
	S = 1
ENDIF

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

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

WAIT

;���s�ł��Ȃ�
SIF A < V
	RETURN 0

;-------------------------------------------------
;���s����
;-------------------------------------------------
STR:0 = �����Ƃ�����
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET
;TCVAR:0 �ː��Ώۃt���O�i�r�b�g0=TARGET 1=PLAYER 2=MASTER 3=ASSI�j
;TCVAR:1 �\���ː��Ώۃt���O�i�r�b�g���g�������Ȃ��l�p�ACFLAG:100�ɖ|�󂳂�܂��j	�i1=TARGET 2=PLAYER 3=MASTER 4=ASSI 5=TARGET+ASSI 6=MASTER+ASSI�j
;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

SETBIT TCVAR:TARGET:0, 3
TCVAR:TARGET:2 = 1
;���x
TCVAR:TARGET:4 = 2000

TEQUIP:ASSI:50 = TARGET
;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
DOWNBASE:�̗� += 50
DOWNBASE:�C�� += 150

SOURCE:���b = 400
SOURCE:���s�� = 500
SOURCE:�B�� = 400
SOURCE:���] = 700
SOURCE:��E = 500
SOURCE:���� = 500

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

;���肪�����̏ꍇ�A������E���{�����A�]����2�ɂȂ�B��������x����
IF TALENT:PLAYER:���� == 1
	TIMES SOURCE:���] , 5.00
	TIMES SOURCE:��E , 3.00
	TALENT:PLAYER:���� = 0
	IF !GETBIT(CFLAG:3,4)
		;�ُ�o���ǉ��i��񂫂�j
		EXP:�ُ�o�� += 1
		SETBIT CFLAG:3,4
	ENDIF
	IF ABL:�]�� < 2
		PRINTFORML ������%ABLNAME:0%��2�ɂȂ���
		ABL:�]�� = 2
	ENDIF
ENDIF
EXP:ASSI:�u�o�� += 1
;-------------------------------------------------
;����̏���
;-------------------------------------------------
;�ː��Ɋ֌W�Ȃ��s���鏈���͂�������
IF TALENT:2 & 2
	;�z��̂o�̒����҂̂u�̉��ꂪ�ړ�
	STAIN:2 |= STAIN:PLAYER:3
	STAIN:PLAYER:3 |= STAIN:2
ENDIF

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
SIF HETEROSEX(TARGET,ASSI)
	EXP:(50 + HETEROSEX(TARGET,ASSI)) += 10

RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE122
;�����Ƃ�������s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(122)
	RETURN RESULT
;���肶��Ȃ��ƃ_��
SIF PLAYER != ASSI
	RETURN 0
;���肪�I�g�R���ƃ_��
SIF !(TALENT:ASSI:2 & 1)
	RETURN 0
;�̊i��������ꍇ�͎�l���֒f�̒m����������Ȃ��ƃ_��
SIF ABS(TALENT:�̌^ - TALENT:ASSI:�̌^) > 2 && TALENT:MASTER:�֒f�̒m�� == 0
	RETURN 0
;�I�g�R�A���l���d�A�ӂ��Ȃ�A�������̓y�j�X�o���h���Ȃ��ƃ_��
SIF !(TALENT:2 & 2) && ITEM:PBAND == 0
	RETURN 0
;�I�i�z�[���g�p���̓_��
SIF TEQUIP:12
	RETURN 0
;�����g��������
SIF TEQUIP:0 & 4
	RETURN 0
;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
RETURN 1

repo_name: akadiya/eratw

license: unknown


code:
;-------------------------------------------------
;���R�L����
;����ɂ��R�}���h�A�y�у��Y�v���C�A���x��1
;-------------------------------------------------
@COM123
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER
;��d���y�t���O
TCVAR:PLAYER:108 = 1

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 7
;���x
TCVAR:TARGET:4 = 1000

TCVAR:PLAYER:�n�s�t���O = 1

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
DOWNBASE:�̗� += 30
DOWNBASE:�C�� += 150

SOURCE:���b = 250
SOURCE:�B�� = 200
SOURCE:�I�o = 300
SOURCE:���] = 300
SOURCE:��E = 350
SOURCE:���� = 350

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

;��ɂ𔺂�Ȃ��}�]���C�y�у}�]�̏����͐�ɂ��Ă���
;�}�]���C������
SELECTCASE ABL:�}�]���C
	CASE 0
		TIMES SOURCE:�B�� , 0.80
		TIMES SOURCE:���] , 0.80
		SOURCE:�t�� += 0
		SOURCE:�~�� += 0
	CASE 1
		TIMES SOURCE:�B�� , 1.00
		TIMES SOURCE:���] , 1.00
		SOURCE:�t�� += 20
		SOURCE:�~�� += 30
	CASE 2
		TIMES SOURCE:�B�� , 1.20
		TIMES SOURCE:���] , 1.20
		SOURCE:�t�� += 40
		SOURCE:�~�� += 70
	CASE 3
		TIMES SOURCE:�B�� , 1.40
		TIMES SOURCE:���] , 1.40
		SOURCE:�t�� += 70
		SOURCE:�~�� += 120
	CASE 4
		TIMES SOURCE:�B�� , 1.50
		TIMES SOURCE:���] , 1.50
		SOURCE:�t�� += 110
		SOURCE:�~�� += 180
	CASE 5
		TIMES SOURCE:�B�� , 1.70
		TIMES SOURCE:���] , 1.70
		SOURCE:�t�� += 150
		SOURCE:�~�� += 250
	CASE 6
		TIMES SOURCE:�B�� , 1.90
		TIMES SOURCE:���] , 1.90
		SOURCE:�t�� += 200
		SOURCE:�~�� += 300
	CASE 7
		TIMES SOURCE:�B�� , 2.10
		TIMES SOURCE:���] , 2.10
		SOURCE:�t�� += 250
		SOURCE:�~�� += 350
	CASE 8
		TIMES SOURCE:�B�� , 2.30
		TIMES SOURCE:���] , 2.30
		SOURCE:�t�� += 300
		SOURCE:�~�� += 400
	CASE 9
		TIMES SOURCE:�B�� , 2.50
		TIMES SOURCE:���] , 2.50
		SOURCE:�t�� += 350
		SOURCE:�~�� += 450
	CASEELSE
		TIMES SOURCE:�B�� , 3.00
		TIMES SOURCE:���] , 3.00
		SOURCE:�t�� += 500
		SOURCE:�~�� += 500
ENDSELECT

;�}�]������
IF TALENT:�}�]
	TIMES SOURCE:�B�� , 2.50
	TIMES SOURCE:���] , 2.50
	TIMES SOURCE:�t�� , 1.20
	TIMES SOURCE:�~�� , 1.20
ENDIF

;�|���I
SIF TALENT:�|���I
	TIMES SOURCE:�B�� , 1.80

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF HETEROSEX(TARGET,PLAYER)
	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
ENDIF

RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE123
;���R�L���s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(123)
	RETURN RESULT
;�I�g�R�����l���d���ӂ��Ȃ肶��Ȃ��ƃ_��
SIF !(TALENT:2 & 2)
	RETURN 0
;�����g��������
SIF TEQUIP:0 > 1
	RETURN 0
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�������
;
;-------------------------------------------------
@COM124
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER
;��d���y�t���O
TCVAR:PLAYER:108 = 1

CSTR:TARGET:10 += @"{PLAYER}/"
TCVAR:TARGET:2 = 3
;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=����j
TCVAR:TARGET:4 = 500

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;���Z�␳
IF ABL:PLAYER:�w < 4
	SOURCE:���b += 80
ELSE
	SOURCE:���b += ABL:PLAYER:�w * 20
ENDIF

;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 40
	SOURCE:���b = 80
ELSE
	DOWNBASE:PLAYER:�̗� += 10
	DOWNBASE:PLAYER:�C�� += 50
	DOWNBASE:�C�� += 50
	SOURCE:���b = 80

;�Ƃ肠��������̐��l�̂܂܂Ŏ��s
	SOURCE:� = 50
	SOURCE:���s�� = 250
	SOURCE:�B�� = 50
	SOURCE:���] = 350
	SOURCE:��E = 100
	SOURCE:���� = 100

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

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	SIF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 200
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
;�ː��Ɋ֌W�Ȃ��s���鏈���͂�������
;�����҂̎w�̓z��̂o�̉��ꂪ�ړ�
STAIN:PLAYER:1 |= STAIN:2
STAIN:2 |= STAIN:PLAYER:1

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;����o��
EXP:PLAYER:����o�� ++

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

@CAN_COM124(ARG)
SKIPDISP ARG
PRINTL �������
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
IF FLAG:70 == 1 || CFLAG:�C�^�Y��

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
	;MARK:���y����
	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
	;�����̔ے�i�����n�f���Ŗ����j
	IF TALENT:�������� < 0 && !TALENT:����
		PRINT  -
		A -= 1
		PRINT �����̔ے�
		PRINTV '(,1,')
		S = 1
	ENDIF
	;�j�����i����A�e���Ŗ����j
	IF OTOKOGIRAI(TARGET)
		PRINT  -
		A -= 5
		PRINT �j����
		PRINTV '(,5,')
		S = 5
	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

	;�����҂��ӂ��Ȃ�
	;�����ɂ��񂱐G���Ċ��������̂��낤���H
	;�����Ƀ}�C�i�X�ɔ��]�����Ă݂�
	IF (TALENT:PLAYER:2 & 3) == 3
		SIF S
			PRINT  -
		A -= 8
		PRINT �ӂ��Ȃ�
		PRINTV '(,8,')
		S = 1
	ENDIF

	;���̕t�߂͖�����
	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
	;�舵���ł͉��ꂪ����قǉe�����Ȃ�
	Y /= 3
	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��\��(14�ȏ�Ŏ��s)
	PRINT  =
	PRINTV A

	V = 14
	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_ABLE124
;�������
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(124)
	RETURN RESULT
;�����҂��I�g�R���ƃ_��
;SIF !(TALENT:PLAYER:2 & 1)
;	RETURN 0
;�I�g�R�A���l���d�A�ӂ��Ȃ�łȂ��ƃ_��
SIF !(TALENT:2 & 2)
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;����������
;�y�у��Y�v���C�A���x��1
;-------------------------------------------------
@COM125
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET
;��d���y�t���O
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=����j
TCVAR:PLAYER:2 = 4
;���x
TCVAR:PLAYER:4 = 1500

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------

;�R�����g�A�E�g��ԂŒ�o
;SOURCE:PLAYER:���b = 80
;SOURCE:PLAYER:���a = 80

;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 50
	SOURCE:PLAYER:���b = 40
	SIF GETBIT(TALENT:PLAYER:����,0)
		SOURCE:PLAYER:���a = 40
ELSE
	DOWNBASE:�̗� += 10
	DOWNBASE:�C�� += 100
	SOURCE:PLAYER:���b = 40
	SIF GETBIT(TALENT:PLAYER:����,0)
		SOURCE:PLAYER:���a = 40

;�R�����g�A�E�g��ԂŒ�o
	;SOURCE:���s�� = 250
	;SOURCE:���] = 350
	;SOURCE:��E = 100
	SOURCE:���� = 100
	SOURCE:� = 50

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

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	SIF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 400
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
;�����҂̎w�̓z��̎w�̉��ꂪ�ړ�
STAIN:PLAYER:1 |= STAIN:1
STAIN:1 |= STAIN:PLAYER:1
;�����҂̂a�̓z��̎w�̉��ꂪ�ړ�
STAIN:PLAYER:5 |= STAIN:1
STAIN:1 |= STAIN:PLAYER:5
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;����o��;�R�����g�A�E�g��ԂŒ�o
SIF !FLAG:70
	EXP:����o�� ++

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

@CAN_COM125(ARG)
SKIPDISP ARG
PRINTL ����������
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
IF !FLAG:70
	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

	IF MARK:���y����
		SIF S
			PRINT  +
		A += MARK:���y���� * 2
		PRINT ���y����
		PRINTV 'LV,MARK:���y����,'(,MARK:���y���� * 2,')
		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 += 3
		PRINT ���L�݊�
		PRINTV '(,3,')
		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�����Ŗ����j
	IF TALENT:�������� < 0 && !TALENT:����
		PRINT  -
		A -= 1
		PRINT �����̔ے�
		PRINTV '(,1,')
		S = 1
	ENDIF
	;����
	IF TALENT:���� && ASSIPLAY == 0
		SIF S
			PRINT  +
		A += 5
		PRINT ����
		PRINTV '(,5,')
		S = 5
	ENDIF
	Y = 0
	;���t�̉���
	SIF STAIN:PLAYER:3 & 1
		Y += 1
	;���t�̉���
	SIF STAIN:PLAYER:3 & 4
		Y += 3
	;�A�i���̉���
	SIF STAIN:PLAYER:3 & 8
		Y += 7
	SIF STAIN:PLAYER:3 & 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��\��(23�ȏ�Ŏ��s)
	PRINT  =
	PRINTV A

	V = 23
	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_ABLE125
;����������
SIF !TFLAG:100
	RETURN 0
;SIF FLAG:70
;	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(126)
	RETURN RESULT
;�I�g�R���ƃ_��
SIF !(TALENT:2 & 1) || !(TALENT:PLAYER:2 & 1)
	RETURN 0
;���Y���C�R�ȏ����
SIF ABL:���Y���C < 3
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;��g�p���͕s��
SIF TEQUIP:��
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;����ʂ����
;�Z�b�N�X�n�R�}���h�A���x��1
;-------------------------------------------------
@COM130
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET
;��d���y�t���O
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 = 13
;���x
TCVAR:PLAYER:4 = 1000 + (200 * MIN(ABL:PLAYER:�u���o,5))

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 1
;���x
TCVAR:TARGET:4 = 2000
DOWNBASE:PLAYER:�̗� += 100

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 100
	SOURCE:PLAYER:���u = 400
	SOURCE:���b = 400
ELSE
	;����̗́A�C��
	DOWNBASE:�̗� += 80
	DOWNBASE:�C�� += 120
	SOURCE:PLAYER:���u = 300

	SOURCE:���b = 400
	SOURCE:���s�� = 500
	SOURCE:���] = 1000
	SOURCE:��E = 500
	SOURCE:���� = 500

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

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	SIF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 700
	[SKIPSTART]
	;�����҂������i���̂݁j(
	IF TALENT:PLAYER:���� && TALENT:���� == -1 && !GETBIT(CFLAG:3,10)
		TIMES SOURCE:��E , 20.00
		TIMES SOURCE:���] , 3.00
		PRINTFORML ��%CALLNAME:PLAYER%�����������܂�����
		;�ُ�o���ǉ�
		IF TALENT:PLAYER:���� == 1
			EXP:�ُ�o�� += 1
			SETBIT CFLAG:3,10
		ENDIF
		TALENT:PLAYER:���� = 0
	ENDIF
	[SKIPEND]
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
IF TALENT:2 & 2
	;�z��̂o�̒����҂��S���̉��ꂪ�ړ�
	STAIN:2 |= STAIN:PLAYER:3
	STAIN:2 |= STAIN:PLAYER:6
	STAIN:PLAYER:3 |= STAIN:2
	STAIN:PLAYER:6 |= STAIN:2

ENDIF

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:PLAYER:�u�����o�� ++
EXP:�}���o�� ++

;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF HETEROSEX(TARGET,PLAYER)
	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
ENDIF
IF (!BEDROOM(CFLAG:PLAYER:���݈ʒu) && !(BATHROOM() && ITEM:20))
	STR:0 = �Ζʗ��ʂ����
ELSE
	STR:0 = ����ʂ����
ENDIF

RETURN 1

@CAN_COMF130(ARG)
SKIPDISP ARG
IF (!BEDROOM(CFLAG:PLAYER:���݈ʒu) && !(BATHROOM() && ITEM:20))
	PRINTL �w�ʗ��ʂ����
ELSE
	PRINTL ����ʂ����
ENDIF
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
A = 0
S = 0

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

;ABL:�~�]
IF ABL:�~�]
	SIF S
		PRINT  +
	A += ABL:�~�] * 2
	PRINT �~�]
	PRINTV 'LV,ABL:�~�],'(,ABL:�~�] * 2,')
	S = 1
ENDIF

IF MARK:���y����
	SIF S
		PRINT  +
	A += MARK:���y���� * 2
	PRINT ���y����
	PRINTV 'LV,MARK:���y����,'(,MARK:���y���� * 2,')
	S = 1
ENDIF

;�����ɑf��
IF TALENT:�������� > 0
	SIF S
		PRINT  +
	A += 2
	PRINT �����ɑf��
	PRINTV '(,2,')
	S = 1
ENDIF
;�����̔ے�i�����A���w�Ŗ����j
IF TALENT:�������� < 0 && !TALENT:����
	PRINT  -
	A -= 2
	PRINT �����̔ے�
	PRINTV '(,2,')
	S = 1
ENDIF
;����
IF TALENT:���� && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ����
	PRINTV '(,5,')
	S = 5
ENDIF
;���w
IF TALENT:���� > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ���w
	PRINTV '(,5,')
	S = 5
ENDIF

;�����҂�����
IF TALENT:PLAYER:���� && TALENT:PLAYER:���� == -1
	PRINT  -
	A -= 15
	PRINTFORM %NAME:PLAYER%������
	PRINTV '(,15,')
	S = 1
ENDIF

;�����҂��呀�ϔO
IF TALENT:PLAYER:�呀 > 0
	PRINT  -
	A -= 10
	PRINTFORM %NAME:PLAYER%���呀�ϔO
	PRINTV '(,10,')
	S = 1
ENDIF

;�����҂��呀���ڒ�
IF TALENT:PLAYER:�呀 < 0
	PRINT  +
	A += 5
	PRINTFORM %NAME:PLAYER%���呀���ڒ�
	PRINTV '(,5,')
	S = 1
ENDIF

;�����҂�ABL:�Z�I
IF ABL:PLAYER:�Z�I
	SIF S
		PRINT  +
	A += ABL:PLAYER:�Z�I * 4
	PRINTFORM %NAME:PLAYER%�̋Z�I
	PRINTV 'LV,ABL:PLAYER:�Z�I,'(,ABL:PLAYER:�Z�I * 4,')
	S = 1
ENDIF

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

V = 15
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
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE130
;����ʂ������s����
SIF !TFLAG:100
	RETURN 0
SIF GLOBAL_COMABLE(130)
	RETURN RESULT
;������x�u�N���ĂȂ��ƃ_��
SIF BASE:�u�N < 1000
	RETURN 0
;�����҂��I�g�R���ƃ_��
SIF !(TALENT:PLAYER:2 & 1)
	RETURN 0
;�̊i��������ꍇ�͌o�����Ȃ��ƃ_��
SIF �}���s��(TARGET) == 1 && EXP:�u�o�� < 50 && !TALENT:PLAYER:�֒f�̒m��
	RETURN 0
;����ɑ̊i��������Ƌ֒f�̒m�����K�v
SIF �}���s��(TARGET) == 2 && (!TALENT:PLAYER:�֒f�̒m�� || EXP:�u�o�� < 50)
	RETURN 0
SIF �}���s��(TARGET) == 3
	RETURN 0

;�I�g�R�A���l���d�A�ӂ��Ȃ�łȂ��ƃ_��
SIF !(TALENT:2 & 2)
	RETURN 0
;�����g����(TARGET);�Y�{���͕s�ɂȂ��Ă邯�ǁA�Y�{���Ȃ炨���񂿂�o���Ă����Ȃ�ˁH
;SIF TEQUIP:0 & 4
	;RETURN 0
;�����g����(PLAYER);���������͂������ɃY�{���͂��Ă�Ȃ疳�������
SIF TEQUIP:PLAYER:0 & 4
	RETURN 0

;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;��w�ʂ����
;�Z�b�N�X�n�R�}���h�A���x��1
;-------------------------------------------------
@COM131
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET
;��d���y�t���O
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 = 13
;���x
TCVAR:PLAYER:4 = 1000 + (200 * MIN(ABL:PLAYER:�u���o,5))

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 1
;���x
TCVAR:TARGET:4 = 2000

DOWNBASE:PLAYER:�̗� += 100

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 100
	SOURCE:PLAYER:���u = 450
	SOURCE:���b = 400
ELSE
	;����̗́A�C��
	DOWNBASE:�̗� += 40
	DOWNBASE:�C�� += 120
	SOURCE:PLAYER:���u = 450

	SOURCE:���b = 400
	SOURCE:���s�� = 500
	SOURCE:���] = 1000
	SOURCE:��E = 500
	SOURCE:���� = 500

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

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

	[SKIPSTART]
	;�����҂������i���̂݁j
	IF TALENT:PLAYER:���� && TALENT:���� == -1 && !GETBIT(CFLAG:3,10)
		TIMES SOURCE:��E , 20.00
		TIMES SOURCE:���] , 3.00
		PRINTFORML ��%CALLNAME:PLAYER%�����������܂�����
		;�ُ�o���ǉ�
		IF TALENT:PLAYER:���� == 1
			EXP:�ُ�o�� += 1
			SETBIT CFLAG:3,10
		ENDIF
		TALENT:PLAYER:���� = 0
	ENDIF
	[SKIPEND]
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
IF TALENT:2 & 2
	;�z��̂o�̒����҂��S���̉��ꂪ�ړ�
	STAIN:2 |= STAIN:PLAYER:3
	STAIN:2 |= STAIN:PLAYER:6
	STAIN:PLAYER:3 |= STAIN:2
	STAIN:PLAYER:6 |= STAIN:2

ENDIF

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:PLAYER:�u�����o�� ++
EXP:�}���o�� ++

;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF HETEROSEX(TARGET,PLAYER)
	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
ENDIF
IF (!INROOM(CFLAG:PLAYER:���݈ʒu) && !(BATHROOM() && ITEM:20))
	STR:0 = �w�ʗ��ʂ����
ELSE
	STR:0 = ��w�ʂ����
ENDIF

RETURN 1

@CAN_COMF131(ARG)
SKIPDISP ARG
IF (!INROOM(CFLAG:PLAYER:���݈ʒu) && !(BATHROOM() && ITEM:20))
	PRINTL �w�ʗ��ʂ����
ELSE
	PRINTL ��w�ʂ����
ENDIF
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
A = 0
S = 0

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

;ABL:�~�]
IF ABL:�~�]
	SIF S
		PRINT  +
	A += ABL:�~�] * 2
	PRINT �~�]
	PRINTV 'LV,ABL:�~�],'(,ABL:�~�] * 2,')
	S = 1
ENDIF

IF MARK:���y����
	SIF S
		PRINT  +
	A += MARK:���y���� * 2
	PRINT ���y����
	PRINTV 'LV,MARK:���y����,'(,MARK:���y���� * 2,')
	S = 1
ENDIF

;�����ɑf��
IF TALENT:�������� > 0
	SIF S
		PRINT  +
	A += 2
	PRINT �����ɑf��
	PRINTV '(,2,')
	S = 1
ENDIF
;�����̔ے�i�����A���w�Ŗ����j
IF TALENT:�������� < 0 && !TALENT:����
	PRINT  -
	A -= 2
	PRINT �����̔ے�
	PRINTV '(,2,')
	S = 1
ENDIF
;����
IF TALENT:���� && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ����
	PRINTV '(,5,')
	S = 5
ENDIF
;���w
IF TALENT:���� > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ���w
	PRINTV '(,5,')
	S = 5
ENDIF

;�����҂�����
IF TALENT:PLAYER:���� && TALENT:PLAYER:���� == -1
	PRINT  -
	A -= 15
	PRINTFORM %NAME:PLAYER%������
	PRINTV '(,15,')
	S = 1
ENDIF

;�����҂��呀�ϔO
IF TALENT:PLAYER:�呀 > 0
	PRINT  -
	A -= 10
	PRINTFORM %NAME:PLAYER%���呀�ϔO
	PRINTV '(,10,')
	S = 1
ENDIF

;�����҂��呀���ڒ�
IF TALENT:PLAYER:�呀 < 0
	PRINT  +
	A += 5
	PRINTFORM %NAME:PLAYER%���呀���ڒ�
	PRINTV '(,5,')
	S = 1
ENDIF

;�����҂�ABL:�Z�I
IF ABL:PLAYER:�Z�I
	SIF S
		PRINT  +
	A += ABL:PLAYER:�Z�I * 4
	PRINTFORM %NAME:PLAYER%�̋Z�I
	PRINTV 'LV,ABL:PLAYER:�Z�I,'(,ABL:PLAYER:�Z�I * 4,')
	S = 1
ENDIF

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

V = 15
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
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE131
;��w�ʂ������s����
SIF !TFLAG:100
	RETURN 0
SIF GLOBAL_COMABLE(131)
	RETURN RESULT
;������x�u�N���ĂȂ��ƃ_��
SIF BASE:�u�N < 1000
	RETURN 0
;�����҂��I�g�R���ƃ_��
SIF !(TALENT:PLAYER:2 & 1)
	RETURN 0
;�̊i��������ꍇ�͌o�����Ȃ��ƃ_��
SIF �}���s��(TARGET) == 1 && EXP:�u�o�� < 50 && !TALENT:PLAYER:�֒f�̒m��
	RETURN 0
;����ɑ̊i��������Ƌ֒f�̒m�����K�v
SIF �}���s��(TARGET) == 2 && (!TALENT:PLAYER:�֒f�̒m�� || EXP:�u�o�� < 50)
	RETURN 0
SIF �}���s��(TARGET) == 3
	RETURN 0

;�I�g�R�A���l���d�A�ӂ��Ȃ�łȂ��ƃ_��
SIF !(TALENT:2 & 2)
	RETURN 0
;�����g����(TARGET);�Y�{���͕s�ɂȂ��Ă邯�ǁA�Y�{���Ȃ炨���񂿂�o���Ă����Ȃ�ˁH
;SIF TEQUIP:0 & 4
	;RETURN 0
;�����g����(PLAYER);���������͂������ɃY�{���͂��Ă�Ȃ疳�������
SIF TEQUIP:PLAYER:0 & 4
	RETURN 0

;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�Ζʍ��ʂ����
;�Z�b�N�X�n�R�}���h�A���x��1
;-------------------------------------------------
@COM132
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET
;��d���y�t���O
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 = 13
;���x
TCVAR:PLAYER:4 = 900 + (1800 * MIN(ABL:PLAYER:�u���o,5))

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 1
;���x
TCVAR:TARGET:4 = 1800

DOWNBASE:PLAYER:�̗� += 80

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 100
	SOURCE:PLAYER:���u = 350
	SOURCE:���b = 400
ELSE
	;����̗́A�C��
	DOWNBASE:�̗� += 40
	DOWNBASE:�C�� += 120
	SOURCE:PLAYER:���u = 350
	SOURCE:PLAYER:���b = 250

	SOURCE:���b = 400
	SOURCE:���s�� = 500
	SOURCE:���] = 1000
	SOURCE:��E = 500
	SOURCE:���� = 500

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

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	SIF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 700
	[SKIPSTART]
	;�����҂������i���̂݁j
	IF TALENT:PLAYER:���� && TALENT:���� == -1 && !GETBIT(CFLAG:3,10)
		TIMES SOURCE:��E , 20.00
		TIMES SOURCE:���] , 3.00
		PRINTFORML ��%CALLNAME:PLAYER%�����������܂�����
		;�ُ�o���ǉ�
		IF TALENT:PLAYER:���� == 1
			EXP:�ُ�o�� += 1
			SETBIT CFLAG:3,10
		ENDIF
		TALENT:PLAYER:���� = 0
	ENDIF
	[SKIPEND]
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
IF TALENT:2 & 2
	;�z��̂o�̒����҂��S���̉��ꂪ�ړ�
	STAIN:2 |= STAIN:PLAYER:3
	STAIN:2 |= STAIN:PLAYER:6
	STAIN:PLAYER:3 |= STAIN:2
	STAIN:PLAYER:6 |= STAIN:2

ENDIF

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:PLAYER:�u�����o�� ++
EXP:�}���o�� ++

;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF HETEROSEX(TARGET,PLAYER)
	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
ENDIF

RETURN 1

@CAN_COMF132(ARG)
SKIPDISP ARG
PRINTL �Ζʍ��ʂ����
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
A = 0
S = 0

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

;ABL:�~�]
IF ABL:�~�]
	SIF S
		PRINT  +
	A += ABL:�~�] * 2
	PRINT �~�]
	PRINTV 'LV,ABL:�~�],'(,ABL:�~�] * 2,')
	S = 1
ENDIF

IF MARK:���y����
	SIF S
		PRINT  +
	A += MARK:���y���� * 2
	PRINT ���y����
	PRINTV 'LV,MARK:���y����,'(,MARK:���y���� * 2,')
	S = 1
ENDIF

;�����ɑf��
IF TALENT:�������� > 0
	SIF S
		PRINT  +
	A += 2
	PRINT �����ɑf��
	PRINTV '(,2,')
	S = 1
ENDIF
;�����̔ے�i�����A���w�Ŗ����j
IF TALENT:�������� < 0 && !TALENT:����
	PRINT  -
	A -= 2
	PRINT �����̔ے�
	PRINTV '(,2,')
	S = 1
ENDIF
;����
IF TALENT:���� && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ����
	PRINTV '(,5,')
	S = 5
ENDIF
;���w
IF TALENT:���� > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ���w
	PRINTV '(,5,')
	S = 5
ENDIF

;�����҂�����
IF TALENT:PLAYER:���� && TALENT:PLAYER:���� == -1
	PRINT  -
	A -= 15
	PRINTFORM %NAME:PLAYER%������
	PRINTV '(,15,')
	S = 1
ENDIF

;�����҂��呀�ϔO
IF TALENT:PLAYER:�呀 > 0
	PRINT  -
	A -= 10
	PRINTFORM %NAME:PLAYER%���呀�ϔO
	PRINTV '(,10,')
	S = 1
ENDIF

;�����҂��呀���ڒ�
IF TALENT:PLAYER:�呀 < 0
	PRINT  +
	A += 5
	PRINTFORM %NAME:PLAYER%���呀���ڒ�
	PRINTV '(,5,')
	S = 1
ENDIF

;�����҂�ABL:�Z�I
IF ABL:PLAYER:�Z�I
	SIF S
		PRINT  +
	A += ABL:PLAYER:�Z�I * 4
	PRINTFORM %NAME:PLAYER%�̋Z�I
	PRINTV 'LV,ABL:PLAYER:�Z�I,'(,ABL:PLAYER:�Z�I * 4,')
	S = 1
ENDIF

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

V = 15
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
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE132
;�Ζʍ��ʂ������s����
SIF !TFLAG:100
	RETURN 0
SIF GLOBAL_COMABLE(132)
	RETURN RESULT
;������x�u�N���ĂȂ��ƃ_��
SIF BASE:�u�N < 1000
	RETURN 0
;�����҂��I�g�R���ƃ_��
SIF !(TALENT:PLAYER:2 & 1)
	RETURN 0
;�̊i��������ꍇ�͌o�����Ȃ��ƃ_��
SIF �}���s��(TARGET) == 1 && EXP:�u�o�� < 50 && !TALENT:PLAYER:�֒f�̒m��
	RETURN 0
;����ɑ̊i��������Ƌ֒f�̒m�����K�v
SIF �}���s��(TARGET) == 2 && (!TALENT:PLAYER:�֒f�̒m�� || EXP:�u�o�� < 50)
	RETURN 0
SIF �}���s��(TARGET) == 3
	RETURN 0

;�I�g�R�A���l���d�A�ӂ��Ȃ�łȂ��ƃ_��
SIF !(TALENT:2 & 2)
	RETURN 0
;�����g����(TARGET);�Y�{���͕s�ɂȂ��Ă邯�ǁA�Y�{���Ȃ炨���񂿂�o���Ă����Ȃ�ˁH
;SIF TEQUIP:0 & 4
	;RETURN 0
;�����g����(PLAYER);���������͂������ɃY�{���͂��Ă�Ȃ疳�������
SIF TEQUIP:PLAYER:0 & 4
	RETURN 0

;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�w�ʍ��ʂ����
;�Z�b�N�X�n�R�}���h�A���x��1
;-------------------------------------------------
@COM133
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET
;��d���y�t���O
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 = 13
;���x
TCVAR:PLAYER:4 = 900 + (1800 * MIN(ABL:PLAYER:�u���o,5))

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 1
;���x
TCVAR:TARGET:4 = 1800

DOWNBASE:PLAYER:�̗� += 80

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 100
	SOURCE:PLAYER:���u = 350
	SOURCE:PLAYER:���a = 250
	SOURCE:���b = 400
ELSE
	;����̗́A�C��
	DOWNBASE:�̗� += 40
	DOWNBASE:�C�� += 220
	SOURCE:PLAYER:���u = 350
	SOURCE:PLAYER:���a = 250

	SOURCE:���b = 400
	SOURCE:���s�� = 500
	SOURCE:���] = 1000
	SOURCE:��E = 500
	SOURCE:���� = 500

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

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	SIF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 700
	[SKIPSTART]
	;�����҂������i���̂݁j
	IF TALENT:PLAYER:���� && TALENT:���� == -1 && !GETBIT(CFLAG:3,10)
		TIMES SOURCE:��E , 20.00
		TIMES SOURCE:���] , 3.00
		PRINTFORML ��%CALLNAME:PLAYER%�����������܂�����
		;�ُ�o���ǉ�
		IF TALENT:PLAYER:���� == 1
			EXP:�ُ�o�� += 1
			SETBIT CFLAG:3,10
		ENDIF
		TALENT:PLAYER:���� = 0
	ENDIF
	[SKIPEND]
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
IF TALENT:2 & 2
	;�z��̂o�̒����҂��S���̉��ꂪ�ړ�
	STAIN:2 |= STAIN:PLAYER:3
	STAIN:2 |= STAIN:PLAYER:6
	STAIN:PLAYER:3 |= STAIN:2
	STAIN:PLAYER:6 |= STAIN:2

ENDIF

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:PLAYER:�u�����o�� ++
EXP:�}���o�� ++

;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF HETEROSEX(TARGET,PLAYER)
	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
ENDIF

RETURN 1

@CAN_COMF133(ARG)
SKIPDISP ARG
PRINTL �w�ʍ��ʂ����
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
A = 0
S = 0

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

;ABL:�~�]
IF ABL:�~�]
	SIF S
		PRINT  +
	A += ABL:�~�] * 2
	PRINT �~�]
	PRINTV 'LV,ABL:�~�],'(,ABL:�~�] * 2,')
	S = 1
ENDIF

IF MARK:���y����
	SIF S
		PRINT  +
	A += MARK:���y���� * 2
	PRINT ���y����
	PRINTV 'LV,MARK:���y����,'(,MARK:���y���� * 2,')
	S = 1
ENDIF

;�����ɑf��
IF TALENT:�������� > 0
	SIF S
		PRINT  +
	A += 2
	PRINT �����ɑf��
	PRINTV '(,2,')
	S = 1
ENDIF
;�����̔ے�i�����A���w�Ŗ����j
IF TALENT:�������� < 0 && !TALENT:����
	PRINT  -
	A -= 2
	PRINT �����̔ے�
	PRINTV '(,2,')
	S = 1
ENDIF
;����
IF TALENT:���� && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ����
	PRINTV '(,5,')
	S = 5
ENDIF
;���w
IF TALENT:���� > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT ���w
	PRINTV '(,5,')
	S = 5
ENDIF

;�����҂�����
IF TALENT:PLAYER:���� && TALENT:PLAYER:���� == -1
	PRINT  -
	A -= 15
	PRINTFORM %NAME:PLAYER%������
	PRINTV '(,15,')
	S = 1
ENDIF

;�����҂��呀�ϔO
IF TALENT:PLAYER:�呀 > 0
	PRINT  -
	A -= 10
	PRINTFORM %NAME:PLAYER%���呀�ϔO
	PRINTV '(,10,')
	S = 1
ENDIF

;�����҂��呀���ڒ�
IF TALENT:PLAYER:�呀 < 0
	PRINT  +
	A += 5
	PRINTFORM %NAME:PLAYER%���呀���ڒ�
	PRINTV '(,5,')
	S = 1
ENDIF

;�����҂�ABL:�Z�I
IF ABL:PLAYER:�Z�I
	SIF S
		PRINT  +
	A += ABL:PLAYER:�Z�I * 4
	PRINTFORM %NAME:PLAYER%�̋Z�I
	PRINTV 'LV,ABL:PLAYER:�Z�I,'(,ABL:PLAYER:�Z�I * 4,')
	S = 1
ENDIF

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

V = 15
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
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE133
;�w�ʍ��ʂ������s����
SIF !TFLAG:100
	RETURN 0
SIF GLOBAL_COMABLE(133)
	RETURN RESULT
;������x�u�N���ĂȂ��ƃ_��
SIF BASE:�u�N < 1000
	RETURN 0
;�����҂��I�g�R���ƃ_��
SIF !(TALENT:PLAYER:2 & 1)
	RETURN 0
;�̊i��������ꍇ�͌o�����Ȃ��ƃ_��
SIF �}���s��(TARGET) == 1 && EXP:�u�o�� < 50 && !TALENT:PLAYER:�֒f�̒m��
	RETURN 0
;����ɑ̊i��������Ƌ֒f�̒m�����K�v
SIF �}���s��(TARGET) == 2 && (!TALENT:PLAYER:�֒f�̒m�� || EXP:�u�o�� < 50)
	RETURN 0
SIF �}���s��(TARGET) == 3
	RETURN 0

;�I�g�R�A���l���d�A�ӂ��Ȃ�łȂ��ƃ_��
SIF !(TALENT:2 & 2)
	RETURN 0
;�����g����(TARGET);�Y�{���͕s�ɂȂ��Ă邯�ǁA�Y�{���Ȃ炨���񂿂�o���Ă����Ȃ�ˁH
;SIF TEQUIP:0 & 4
	;RETURN 0
;�����g����(PLAYER);���������͂������ɃY�{���͂��Ă�Ȃ疳�������
SIF TEQUIP:PLAYER:0 & 4
	RETURN 0

;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�C���}�`�I
;�n�[�h�Ȓ����R�}���h�A���x��2
;-------------------------------------------------
@COM140

;-------------------------------------------------
;���s����
;-------------------------------------------------
STR:0 = �C���}�`�I
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = TARGET

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 = 2000

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 100
	SOURCE:PLAYER:���b = 110

	;PLAYER��TALENT:�T�h������
	IF TALENT:PLAYER:�T�h
		TIMES SOURCE:PLAYER:���b , 1.25
		;PLAYER���T�h�����̏ꍇ�́ATARGET�ɚn�s���y�o����ǉ�
		EXP:PLAYER:�n�s���y�o�� += 1
	ENDIF

	;TARGET��TALENT:�L����݂�
	SIF TALENT:�L��
		TIMES SOURCE:PLAYER:���b , 0.50

	SOURCE:��� = 100

ELSE

	DOWNBASE:�̗� += 150
	DOWNBASE:�C�� += 200
	SOURCE:PLAYER:���b = 110

	SOURCE:�B�� = 500
	SOURCE:��� = 200
	SOURCE:���] = 1500
	SOURCE:��E = 700
	SOURCE:���� = 700

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

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	SIF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 700
	;���Z�␳
	IF ABL:�� >= 4
		SOURCE:PLAYER:���b += 100
	ELSE
		SOURCE:PLAYER:���b += ABL:�� * 25
	ENDIF

	;PLAYER��TALENT:�T�h������
	IF TALENT:PLAYER:�T�h
		TIMES SOURCE:PLAYER:���b , 1.25
		;PLAYER���T�h�����̏ꍇ�́ATARGET�ɚn�s���y�o����ǉ�
		EXP:PLAYER:�n�s���y�o�� += 1
	ENDIF

	;TARGET��TALENT:��g�����݂�
	SIF TALENT:��g��
		TIMES SOURCE:PLAYER:���b , 1.25

	;TARGET��TALENT:�L����݂�
	SIF TALENT:�L��
		TIMES SOURCE:PLAYER:���b , 0.50
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
;�z��̌��̒����҂̂o�̉��ꂪ�ړ�
STAIN:0 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:0

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------

;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF FLAG:70 == 1 || CFLAG:�C�^�Y��
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 7
	ENDIF
ELSE
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 7
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 7
	ENDIF
	;�t�F���o��
	EXP:�����o�� ++
	;����o��(�}�]���C5�ȏ����j
	SIF TALENT:���� && ASSIPLAY == 0 && ABL:�}�]���C >= 5
		EXP:����o�� += 1
ENDIF
RETURN 1

@CAN_COM140(ARG)
SKIPDISP ARG
PRINTL �C���}�`�I
;-------------------------------------------------
;���s���菈��
;-------------------------------------------------
IF FLAG:70 == 1 || CFLAG:�C�^�Y��

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
	;����
	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��\��(36�ȏ�Ŏ��s)
	PRINT  =
	PRINTV A

	V = 36
	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_ABLE140
;�C���}�`�I���s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(140)
	RETURN RESULT
;�����҂��I�g�R���ӂ��Ȃ肶��Ȃ��ƃ_��
SIF !(TALENT:PLAYER:2 & 2)
	RETURN 0
;�{�[���M���O�g�p���͕s��
SIF TEQUIP:�{�[���M���O
	RETURN 0
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
;�]���A�~�]�̍��v��6�ȏ�Ȃ��ƃ_��
SIF ABL:�]�� + ABL:�~�] < 6
	RETURN 0
;�L��̓z��̏ꍇ�͋Z�ILv2�ȏ�K�v
SIF TALENT:�L�� && ABL:�Z�I < 2
	RETURN 0
;�̊i��������ꍇ�͎�l���֒f�̒m����������Ȃ��ƃ_��
SIF ABS(TALENT:�̌^ - TALENT:PLAYER:�̌^) > 2 && (TALENT:PLAYER:�֒f�̒m�� == 0)
	RETURN 0
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�t�B�X�g�t�@�b�N
;�n�[�h�Ȓ����R�}���h�A���x��4
;-------------------------------------------------
@COM141
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 13
;���x
TCVAR:TARGET:4 = 1600

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 300
	SOURCE:���u = 200
	SOURCE:��� = 750

	;�t�B�X�g�Ȃǂ�V�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�u�o�����݂�
	IF EXP:�u�o�� < EXPLV:1
		TIMES SOURCE:��� , 2.50
	ELSEIF EXP:�u�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.00
	ELSEIF EXP:�u�o�� < EXPLV:3
		TIMES SOURCE:��� , 1.80
	ELSEIF EXP:�u�o�� < EXPLV:4
		TIMES SOURCE:��� , 1.60
	ELSEIF EXP:�u�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.40
	ELSEIF EXP:�u�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.20
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF

ELSE

	DOWNBASE:�̗� += 300
	DOWNBASE:�C�� += 150

	SOURCE:���u = 200
	SOURCE:��� = 1500
	SOURCE:�I�o = 100
	SOURCE:���] = 1200
	SOURCE:��E = 1200
	SOURCE:���� = 1200

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�t�B�X�g�Ȃǂ�V�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�u�o�����݂�
	IF EXP:�u�o�� < EXPLV:1
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 4.00
	ELSEIF EXP:�u�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 3.50
	ELSEIF EXP:�u�o�� < EXPLV:3
		TIMES SOURCE:��� , 1.80
		TIMES SOURCE:���� , 3.00
	ELSEIF EXP:�u�o�� < EXPLV:4
		TIMES SOURCE:��� , 1.60
		TIMES SOURCE:���� , 2.50
	ELSEIF EXP:�u�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.40
		TIMES SOURCE:���� , 2.00
	ELSEIF EXP:�u�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.20
		TIMES SOURCE:���� , 2.00
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
		TIMES SOURCE:���� , 2.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 1.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 1.20
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF

ENDIF
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�u�o��
EXP:�u�o�� += 24
;�u�g���o��
IF !EXP:�u�g���o�� && !EXP:�`�g���o�� && !GETBIT(CFLAG:4 ,5)
	EXP:�ُ�o�� ++
	SETBIT CFLAG:4,5
ENDIF

EXP:�u�g���o�� += 5

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

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE141
;�t�B�X�g�t�@�b�N
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(141)
	RETURN RESULT
;�o�C�u�g�p���͕s��
SIF TEQUIP:13
	RETURN 0
;�I�g�R���ƃ_��
SIF !(TALENT:2 & 1)
	RETURN 0
;ASSI�̏ꍇ�A�]��4�ȏォ�T�h����Ȃ��Ƃł��Ȃ��B
IF ASSIPLAY
	SIF ABL:ASSI:�]�� < 4 && TALENT:ASSI:�T�h == 0
	RETURN 0
ENDIF
IF FLAG:70 == 1
ELSE
;���̂u�o�����K�v
SIF EXP:0 < 150
	RETURN 0
;�����̌^�Ȃ�]����4�ȏォ�}�]���C��4�ȏザ��Ȃ��Ǝ��s�ł��Ȃ�
IF TALENT:�̌^ < 0
	SIF ABL:�]�� <= 3 || ABL:�}�]���C <= 3
		RETURN 0
ENDIF
ENDIF
;�����Ώۂ����l�̌^�̏ꍇ�͎�l���֒f�̒m����������Ȃ��ƃ_��
SIF ABS(TALENT:�̌^ - TALENT:PLAYER:�̌^) > 2 && TALENT:MASTER:�֒f�̒m�� == 0
	RETURN 0

;�����g����
SIF TEQUIP:0 > 1
	RETURN 0
;�V�����[���̓_��
SIF TEQUIP:32
	RETURN 0
;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
;�x�b�h���[���łȂ��ƃ_��
SIF !BEDROOM(CFLAG:PLAYER:���݈ʒu)
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�A�i���t�B�X�g
;�n�R�}���h�A���x��
;-------------------------------------------------
@COM142
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 12
;���x
TCVAR:TARGET:4 = 1600

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 300
	SOURCE:���` = 200
	SOURCE:��� = 750

	;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	IF EXP:�`�o�� < EXPLV:1
		TIMES SOURCE:��� , 3.00
	ELSEIF EXP:�`�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.50
	ELSEIF EXP:�`�o�� < EXPLV:3
		TIMES SOURCE:��� , 2.40
	ELSEIF EXP:�`�o�� < EXPLV:4
		TIMES SOURCE:��� , 2.00
	ELSEIF EXP:�`�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.80
	ELSEIF EXP:�`�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.60
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF

ELSE

	DOWNBASE:�̗� += 300
	DOWNBASE:�C�� += 150

	SOURCE:���` = 200
	SOURCE:��� = 1500
	SOURCE:�I�o = 100
	SOURCE:���] = 1200
	SOURCE:��E = 1200
	SOURCE:���� = 1200

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	IF EXP:�`�o�� < EXPLV:1
		TIMES SOURCE:��� , 3.00
		TIMES SOURCE:���� , 4.00
	ELSEIF EXP:�`�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 3.50
	ELSEIF EXP:�`�o�� < EXPLV:3
		TIMES SOURCE:��� , 2.40
		TIMES SOURCE:���� , 3.00
	ELSEIF EXP:�`�o�� < EXPLV:4
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 2.50
	ELSEIF EXP:�`�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.80
		TIMES SOURCE:���� , 2.00
	ELSEIF EXP:�`�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.60
		TIMES SOURCE:���� , 1.50
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
		TIMES SOURCE:���� , 2.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 1.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 1.20
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF

ENDIF
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�`�o��
EXP:�`�o�� += 24

;�`�g���o��
IF !EXP:�u�g���o�� && !EXP:�`�g���o�� && !CFLAG:3 & �ُ�_�g��
	EXP:�ُ�o�� += 1
	CFLAG:3 |= �ُ�_�g��
ENDIF

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

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE142
;�A�i���t�B�X�g
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(142)
	RETURN RESULT
;�A�i���o�C�u�g�p���͕s��
SIF TEQUIP:14
	RETURN 0
;�����{�A�i���v���O�g�p���͕s��
SIF TEQUIP:21
	RETURN 0
;ASSI�̏ꍇ�A�]��3�ȏォ�T�h����Ȃ��Ƃł��Ȃ��B
IF ASSIPLAY
	SIF ABL:ASSI:�]�� < 4 && TALENT:ASSI:�T�h == 0
	RETURN 0
ENDIF
IF FLAG:70 == 1
ELSE
;���̂`�o�����K�v
SIF EXP:1 < 150
	RETURN 0
;�����̌^�Ȃ�]����4�ȏォ�}�]���C��4�ȏザ��Ȃ��Ǝ��s�ł��Ȃ�
IF TALENT:�̌^ < 0
	SIF ABL:�]�� <= 3 || ABL:�}�]���C <= 3
		RETURN 0
ENDIF
ENDIF
;�����Ώۂ����l�̌^�̏ꍇ�͎�l���֒f�̒m����������Ȃ��ƃ_��
SIF ABS(TALENT:�̌^ - TALENT:PLAYER:�̌^) > 2 && TALENT:MASTER:�֒f�̒m�� == 0
	RETURN 0

;�����g����
SIF TEQUIP:0 > 1
	RETURN 0
;�A�i���r�[�Y�g�p���͕s��
SIF TEQUIP:15
	RETURN 0
;�o���[���g�p���͕s��
SIF TEQUIP:22
	RETURN 0
;�d�Ɏg�p���͕s��
SIF TEQUIP:23
	RETURN 0
;�V�����[���̓_��
SIF TEQUIP:32
	RETURN 0
;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
;�x�b�h���[���łȂ��ƃ_��
SIF !BEDROOM(CFLAG:PLAYER:���݈ʒu)
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�����t�B�X�g
;�n�[�h�Ȓ����R�}���h�A���x��4
;-------------------------------------------------
@COM143
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER

CSTR:TARGET:10 += @"{PLAYER}/"
;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
IF ABL:�u���o >= ABL:�`���o
	TCVAR:TARGET:2 = 13
ELSE
	TCVAR:TARGET:2 = 12
ENDIF
;���x
TCVAR:TARGET:4 = 1800

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 500
	SOURCE:���u = 200
	SOURCE:���` = 200
	SOURCE:��� = 900

	;�t�B�X�g�Ȃǂ�V�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�u�o�����݂�
	IF EXP:�u�o�� < EXPLV:1
		TIMES SOURCE:��� , 2.50
	ELSEIF EXP:�u�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.00
	ELSEIF EXP:�u�o�� < EXPLV:3
		TIMES SOURCE:��� , 1.80
	ELSEIF EXP:�u�o�� < EXPLV:4
		TIMES SOURCE:��� , 1.60
	ELSEIF EXP:�u�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.40
	ELSEIF EXP:�u�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.20
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF

	;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	IF EXP:�`�o�� < EXPLV:1
		TIMES SOURCE:��� , 3.00
	ELSEIF EXP:�`�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.50
	ELSEIF EXP:�`�o�� < EXPLV:3
		TIMES SOURCE:��� , 2.40
	ELSEIF EXP:�`�o�� < EXPLV:4
		TIMES SOURCE:��� , 2.00
	ELSEIF EXP:�`�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.80
	ELSEIF EXP:�`�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.60
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF

ELSE

	DOWNBASE:�̗� += 500
	DOWNBASE:�C�� += 300

	SOURCE:���u = 200
	SOURCE:���` = 200
	SOURCE:��� = 1800
	SOURCE:�I�o = 100
	SOURCE:���] = 2000
	SOURCE:��E = 2000
	SOURCE:���� = 2000

	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�t�B�X�g�Ȃǂ�V�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�u�o�����݂�
	IF EXP:�u�o�� < EXPLV:1
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 4.00
	ELSEIF EXP:�u�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 3.50
	ELSEIF EXP:�u�o�� < EXPLV:3
		TIMES SOURCE:��� , 1.80
		TIMES SOURCE:���� , 3.00
	ELSEIF EXP:�u�o�� < EXPLV:4
		TIMES SOURCE:��� , 1.60
		TIMES SOURCE:���� , 2.50
	ELSEIF EXP:�u�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.40
		TIMES SOURCE:���� , 2.00
	ELSEIF EXP:�u�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.20
		TIMES SOURCE:���� , 2.00
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
		TIMES SOURCE:���� , 2.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 1.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 1.20
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF

	;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	IF EXP:�`�o�� < EXPLV:1
		TIMES SOURCE:��� , 3.00
		TIMES SOURCE:���� , 4.00
	ELSEIF EXP:�`�o�� < EXPLV:2
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 3.50
	ELSEIF EXP:�`�o�� < EXPLV:3
		TIMES SOURCE:��� , 2.40
		TIMES SOURCE:���� , 3.00
	ELSEIF EXP:�`�o�� < EXPLV:4
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 2.50
	ELSEIF EXP:�`�o�� < EXPLV:5
		TIMES SOURCE:��� , 1.80
		TIMES SOURCE:���� , 2.00
	ELSEIF EXP:�`�o�� >= EXPLV:5
		TIMES SOURCE:��� , 1.60
		TIMES SOURCE:���� , 1.50
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 3.00
		TIMES SOURCE:���� , 2.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 2.50
		TIMES SOURCE:���� , 1.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 2.00
		TIMES SOURCE:���� , 1.20
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 1.50
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 1.00
	ENDIF
ENDIF

;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�u�o��
EXP:�u�o�� += 24

;�`�o��
EXP:�`�o�� += 24

;�u,�`�g���o��
IF !EXP:�`�g���o�� && !EXP:�u�g���o�� && !GETBIT(CFLAG:3,5)
	EXP:�ُ�o�� += 1
	SETBIT CFLAG:3,5
ENDIF

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

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE143
;�����t�B�X�g
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(143)
	RETURN RESULT
;�o�C�u�g�p���͕s��
SIF TEQUIP:13
	RETURN 0
;�A�i���o�C�u�g�p���͕s��
SIF TEQUIP:14
	RETURN 0
;�����{�A�i���v���O�g�p���͕s��
SIF TEQUIP:21
	RETURN 0
;�A�i���r�[�Y�g�p���͕s��
SIF TEQUIP:15
	RETURN 0
;�o���[���g�p���͕s��
SIF TEQUIP:22
	RETURN 0
;�d�Ɏg�p���͕s��
SIF TEQUIP:23
	RETURN 0
;�I�g�R���ƃ_��
SIF !(TALENT:2 & 1)
	RETURN 0
;ASSI�̏ꍇ�A�]��4�ȏォ�T�h����Ȃ��Ƃł��Ȃ��B
IF ASSIPLAY
	SIF ABL:ASSI:�]�� < 4 && TALENT:ASSI:�T�h == 0
		RETURN 0
ENDIF
IF FLAG:70 == 1
ELSE
	;���̂u�E�`�o�����K�v
	IF EXP:0 < 300 || EXP:1 < 300
		RETURN 0
	ENDIF
	;�����̌^�Ȃ�]����4�ȏォ�}�]���C��4�ȏォ�g���o��10�ȏザ��Ȃ��Ǝ��s�ł��Ȃ�
	IF TALENT:�̌^ < 0
		SIF ABL:�]�� <= 3 || ABL:�}�]���C <= 3 || EXP:�u�g���o�� < 10 || EXP:�`�g���o�� < 10
			RETURN 0
	ENDIF
ENDIF
;�����Ώۂ����l�̌^�̏ꍇ�͎�l���֒f�̒m����������Ȃ��ƃ_��
SIF ABS(TALENT:�̌^ - TALENT:PLAYER:�̌^) > 2 && TALENT:MASTER:�֒f�̒m�� == 0
	RETURN 0

;�����g����
SIF TEQUIP:0 > 1
	RETURN 0
;�V�����[���̓_��
SIF TEQUIP:32
	RETURN 0
;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�V�ȃv���C���̓_��
SIF TEQUIP:33
	RETURN 0
;�x�b�h���[���łȂ��ƃ_��
SIF !BEDROOM(CFLAG:PLAYER:���݈ʒu)
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;���A
;�n�[�h�Ȓ����R�}���h�A���x��2
;-------------------------------------------------
@COM144
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 200

ELSE

	DOWNBASE:�̗� += 10
	DOWNBASE:�C�� += 200

	SOURCE:���| = 200
	SOURCE:�I�o = 800
	SOURCE:���] = 500
	SOURCE:��E = 700
	SOURCE:���� = 700

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

	;�ꏊ�ɂ���Ĉ�E�̃\�[�X���㉺
	;��O
	IF TEQUIP:��O�v���C
		TIMES SOURCE:��E , 2.50
	;���̑O�i㵒p�v���C�j
	ELSEIF TEQUIP:㵒p�v���C
		TIMES SOURCE:��E , 1.50
	;���C��
	ELSEIF TEQUIP:�����C��v���C
		TIMES SOURCE:��E , 0.50
	ENDIF
ENDIF
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;���A�o��
EXP:���A�o�� += 2
;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF FLAG:70 == 1
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 2
	ENDIF
ELSE
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 2
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 2
	ENDIF

	;��O���A�ňُ�o��
	IF TEQUIP:��O�v���C && !GETBIT(CFLAG:3,6)
		EXP:�ُ�o�� += 1
		SETBIT CFLAG:3,6
	ENDIF
ENDIF
TCVAR:���A�� = 0

RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE144
;���A���s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(144)
	RETURN RESULT
;���A�܎g�p���������炵�Ȃ���łȂ��ƃ_��
SIF TEQUIP:27 == 0 && TALENT:�����炵�� == 0
	RETURN 0
;���Ԓ�~���͋���
IF FLAG: 70 != 1
	;�]���R�ȏ�łȂ��ƃ_���i�����C��Ȃ�n�j�j
	IF !BATHROOM()
		SIF ABL:�]�� <= 2
			RETURN 0
	ENDIF
ENDIF

;�����g����
SIF TEQUIP:0 > 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�g���o���[��
;�n�[�h�Ȓ����R�}���h�A���x��4
;-------------------------------------------------
@COM147
;���E�̏���
TEQUIP:�g���o���[�� = !TEQUIP:�g���o���[��

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 12
;���x
TCVAR:TARGET:4 = 1200

;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER
;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 150
	SOURCE:���` = 200
	SOURCE:��� = 400

	;A�ւ̋�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	IF EXP:�`�o�� < EXPLV:1
		TIMES SOURCE:��� , 3.00
	ELSEIF EXP:�`�o�� < EXPLV:2
		TIMES SOURCE:��� , 1.20
	ELSEIF EXP:�`�o�� < EXPLV:3
		TIMES SOURCE:��� , 0.80
	ELSEIF EXP:�`�o�� < EXPLV:4
		TIMES SOURCE:��� , 0.60
	ELSEIF EXP:�`�o�� < EXPLV:5
		TIMES SOURCE:��� , 0.40
	ELSEIF EXP:�`�o�� >= EXPLV:5
		TIMES SOURCE:��� , 0.20
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 1.20
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 1.00
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 0.60
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 0.30
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 0.20
	ENDIF

ELSE

	DOWNBASE:�̗� += 150
	DOWNBASE:�C�� += 200

	SOURCE:���` = 200
	SOURCE:��� = 800
	SOURCE:�I�o = 300
	SOURCE:���] = 400
	SOURCE:��E = 700
	SOURCE:���� = 700

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

	;A�ւ̋�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	IF EXP:�`�o�� < EXPLV:1
		TIMES SOURCE:��� , 3.00
		TIMES SOURCE:���� , 3.00
	ELSEIF EXP:�`�o�� < EXPLV:2
		TIMES SOURCE:��� , 1.20
		TIMES SOURCE:���� , 2.00
	ELSEIF EXP:�`�o�� < EXPLV:3
		TIMES SOURCE:��� , 0.80
		TIMES SOURCE:���� , 1.50
	ELSEIF EXP:�`�o�� < EXPLV:4
		TIMES SOURCE:��� , 0.60
		TIMES SOURCE:���� , 1.20
	ELSEIF EXP:�`�o�� < EXPLV:5
		TIMES SOURCE:��� , 0.40
	ELSEIF EXP:�`�o�� >= EXPLV:5
		TIMES SOURCE:��� , 0.20
	ENDIF

	;PALAM:�������݂�
	IF PALAM:���� < PALAMLV:1
		TIMES SOURCE:��� , 1.20
		TIMES SOURCE:���� , 2.00
	ELSEIF PALAM:���� < PALAMLV:2
		TIMES SOURCE:��� , 1.00
		TIMES SOURCE:���� , 1.50
	ELSEIF PALAM:���� < PALAMLV:3
		TIMES SOURCE:��� , 0.60
	ELSEIF PALAM:���� < PALAMLV:4
		TIMES SOURCE:��� , 0.30
	ELSEIF PALAM:���� >= PALAMLV:4
		TIMES SOURCE:��� , 0.20
	ENDIF
ENDIF
;-------------------------------------------------
;����̏���
;-------------------------------------------------
STAIN:7 |= STAIN:4
STAIN:4 |= STAIN:7
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:�`�o�� += 4

IF !EXP:�u�g���o�� && !EXP:�`�g���o�� && !GETBIT(CFLAG:3,5)
	EXP:�ُ�o�� += 1
	SETBIT CFLAG:3,5
ENDIF

EXP:�`�g���o�� += 1
;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF FLAG:70 == 1
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ELSE
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ENDIF
RETURN 1
;-------------------------------------------------
;�����p���̏���
;-------------------------------------------------
@EQUIP_COM147(ARG)
;�g���o���[��

PRINTL ���g���o���[���}������

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 12
;���x
TCVAR:TARGET:4 = 600

IF FLAG:70 == 1
	BASE:MASTER:TSP -= 70
	SOURCE:ARG:���` += 100

	;A�ւ̋�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	LOCAL = 400
	IF EXP:ARG:�`�o�� < EXPLV:1
		TIMES LOCAL , 3.00
	ELSEIF EXP:ARG:�`�o�� < EXPLV:2
		TIMES LOCAL , 1.20
	ELSEIF EXP:ARG:�`�o�� < EXPLV:3
		TIMES LOCAL , 0.80
	ELSEIF EXP:ARG:�`�o�� < EXPLV:4
		TIMES LOCAL , 0.60
	ELSEIF EXP:ARG:�`�o�� < EXPLV:5
		TIMES LOCAL , 0.40
	ELSEIF EXP:ARG:�`�o�� >= EXPLV:5
		TIMES LOCAL , 0.20
	ENDIF

	;PALAM:�������݂�
	IF PALAM:ARG:���� < PALAMLV:1
		TIMES LOCAL , 1.20
	ELSEIF PALAM:ARG:���� < PALAMLV:2
		TIMES LOCAL , 1.00
	ELSEIF PALAM:ARG:���� < PALAMLV:3
		TIMES LOCAL , 0.60
	ELSEIF PALAM:ARG:���� < PALAMLV:4
		TIMES LOCAL , 0.30
	ELSEIF PALAM:ARG:���� >= PALAMLV:4
		TIMES LOCAL , 0.20
	ENDIF
	SOURCE:ARG:��� += LOCAL

ELSE

	DOWNBASE:ARG:�̗� += 75
	DOWNBASE:ARG:�C�� += 100

	SOURCE:ARG:���` += 100
	SOURCE:ARG:�I�o += 150
	SOURCE:ARG:���] += 200
	SOURCE:ARG:��E += 350

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

	;A�ւ̋�ɂ͐�ɏ������Ă���
	;EXP:�`�o�����݂�
	LOCAL = 400
	LOCAL:1 = 350
	IF EXP:ARG:�`�o�� < EXPLV:1
		TIMES LOCAL , 3.00
		TIMES LOCAL:1 , 3.00
	ELSEIF EXP:ARG:�`�o�� < EXPLV:2
		TIMES LOCAL , 1.20
		TIMES LOCAL:1 , 2.00
	ELSEIF EXP:ARG:�`�o�� < EXPLV:3
		TIMES LOCAL , 0.80
		TIMES LOCAL:1 , 1.50
	ELSEIF EXP:ARG:�`�o�� < EXPLV:4
		TIMES LOCAL , 0.60
		TIMES LOCAL:1 , 1.20
	ELSEIF EXP:ARG:�`�o�� < EXPLV:5
		TIMES LOCAL , 0.40
	ELSEIF EXP:ARG:�`�o�� >= EXPLV:5
		TIMES LOCAL , 0.20
	ENDIF

	;PALAM:�������݂�
	IF PALAM:ARG:���� < PALAMLV:1
		TIMES LOCAL , 1.20
		TIMES LOCAL:1 , 2.00
	ELSEIF PALAM:ARG:���� < PALAMLV:2
		TIMES LOCAL , 1.00
		TIMES LOCAL:1 , 1.50
	ELSEIF PALAM:ARG:���� < PALAMLV:3
		TIMES LOCAL , 0.60
	ELSEIF PALAM:ARG:���� < PALAMLV:4
		TIMES LOCAL , 0.30
	ELSEIF PALAM:ARG:���� >= PALAMLV:4
		TIMES LOCAL , 0.20
	ENDIF
	SOURCE:ARG:��� += LOCAL
	SOURCE:ARG:���� += LOCAL:1
ENDIF
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:ARG:�`�o�� += 1
EXP:ARG:�`�g���o�� += 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE147
;�g���o���[�����s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(147)
	RETURN RESULT
;�����g����
SIF TEQUIP:0 > 1
	RETURN 0
;�����͂��ł��\
SIF TEQUIP:22
	RETURN 1
;�A�C�e���������Ă��邩�A�A�C�e���Ȃ��ݒ�łȂ��ƃ_��
SIF ITEM:8 == 0 && NOITEM == 0
	RETURN 0
;�A�i���o�C�u�g�p���͕s��
SIF TEQUIP:14
	RETURN 0
;�A�i���r�[�Y�g�p���͕s��
SIF TEQUIP:15
	RETURN 0
;���ʂ̟����g�p���͕s��
SIF TEQUIP:21
	RETURN 0
;�d�Ɏg�p���͕s��
SIF TEQUIP:23
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�A�i���d��
;�n�[�h�Ȓ����R�}���h�A���x��4
;-------------------------------------------------
@COM148
;���E�̏���
TEQUIP:�A�i���d�� = !TEQUIP:�A�i���d��
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 12
;���x
TCVAR:TARGET:4 = 1000

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
BASE:MASTER:TSP -= 300
SOURCE:���` = 500
SOURCE:��� = 750

;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
;EXP:�`�o�����݂�
IF EXP:�`�o�� < EXPLV:1
	TIMES SOURCE:��� , 3.00
ELSEIF EXP:�`�o�� < EXPLV:2
	TIMES SOURCE:��� , 2.50
ELSEIF EXP:�`�o�� < EXPLV:3
	TIMES SOURCE:��� , 2.40
ELSEIF EXP:�`�o�� < EXPLV:4
	TIMES SOURCE:��� , 2.00
ELSEIF EXP:�`�o�� < EXPLV:5
	TIMES SOURCE:��� , 1.80
ELSEIF EXP:�`�o�� >= EXPLV:5
	TIMES SOURCE:��� , 1.60
ENDIF

;PALAM:�������݂�
IF PALAM:���� < PALAMLV:1
	TIMES SOURCE:��� , 3.00
ELSEIF PALAM:���� < PALAMLV:2
	TIMES SOURCE:��� , 2.50
ELSEIF PALAM:���� < PALAMLV:3
	TIMES SOURCE:��� , 2.00
ELSEIF PALAM:���� < PALAMLV:4
	TIMES SOURCE:��� , 1.50
ELSEIF PALAM:���� >= PALAMLV:4
	TIMES SOURCE:��� , 1.00
ENDIF

ELSE

DOWNBASE:�̗� += 300
DOWNBASE:�C�� += 450

SOURCE:���` = 500
SOURCE:��� = 1500
SOURCE:�I�o = 300
SOURCE:���] = 800
SOURCE:��E = 1200
SOURCE:���� = 1200

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

;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
;EXP:�`�o�����݂�
IF EXP:�`�o�� < EXPLV:1
	TIMES SOURCE:��� , 3.00
	TIMES SOURCE:���� , 4.00
ELSEIF EXP:�`�o�� < EXPLV:2
	TIMES SOURCE:��� , 2.50
	TIMES SOURCE:���� , 3.50
ELSEIF EXP:�`�o�� < EXPLV:3
	TIMES SOURCE:��� , 2.40
	TIMES SOURCE:���� , 3.00
ELSEIF EXP:�`�o�� < EXPLV:4
	TIMES SOURCE:��� , 2.00
	TIMES SOURCE:���� , 2.50
ELSEIF EXP:�`�o�� < EXPLV:5
	TIMES SOURCE:��� , 1.80
	TIMES SOURCE:���� , 2.00
ELSEIF EXP:�`�o�� >= EXPLV:5
	TIMES SOURCE:��� , 1.60
	TIMES SOURCE:���� , 1.50
ENDIF

;PALAM:�������݂�
IF PALAM:���� < PALAMLV:1
	TIMES SOURCE:��� , 3.00
	TIMES SOURCE:���� , 2.00
ELSEIF PALAM:���� < PALAMLV:2
	TIMES SOURCE:��� , 2.50
	TIMES SOURCE:���� , 1.50
ELSEIF PALAM:���� < PALAMLV:3
	TIMES SOURCE:��� , 2.00
	TIMES SOURCE:���� , 1.20
ELSEIF PALAM:���� < PALAMLV:4
	TIMES SOURCE:��� , 1.50
ELSEIF PALAM:���� >= PALAMLV:4
	TIMES SOURCE:��� , 1.00
ENDIF
ENDIF
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�`�o��
EXP:�`�o�� += 4

SIF !GETBIT (CFLAG:3,8)
	EXP:�ُ�o�� += 1

;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
IF FLAG:70 == 1
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ELSE
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ENDIF
RETURN 1
;-------------------------------------------------
;�����p���̏���
;-------------------------------------------------
@EQUIP_COM148(ARG)
;�A�i���d��

PRINTL ���A�i���d�ɑ}������

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 12
;���x
TCVAR:TARGET:4 = 500

IF FLAG:70 == 1
BASE:MASTER:TSP -= 200
SOURCE:ARG:���` += 250

;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
;EXP:�`�o�����݂�
LOCAL = 750
LOCAL:1 = 600
IF EXP:ARG:�`�o�� < EXPLV:1
	TIMES LOCAL , 3.00
ELSEIF EXP:ARG:�`�o�� < EXPLV:2
	TIMES LOCAL , 2.50
ELSEIF EXP:ARG:�`�o�� < EXPLV:3
	TIMES LOCAL , 2.40
ELSEIF EXP:ARG:�`�o�� < EXPLV:4
	TIMES LOCAL , 2.00
ELSEIF EXP:ARG:�`�o�� < EXPLV:5
	TIMES LOCAL , 1.80
ELSEIF EXP:ARG:�`�o�� >= EXPLV:5
	TIMES LOCAL , 1.60
ENDIF

;PALAM:�������݂�
IF PALAM:ARG:���� < PALAMLV:1
	TIMES LOCAL , 3.00
ELSEIF PALAM:ARG:���� < PALAMLV:2
	TIMES LOCAL , 2.50
ELSEIF PALAM:ARG:���� < PALAMLV:3
	TIMES LOCAL , 2.00
ELSEIF PALAM:ARG:���� < PALAMLV:4
	TIMES LOCAL , 1.50
ELSEIF PALAM:ARG:���� >= PALAMLV:4
	TIMES LOCAL , 1.00
ENDIF
SOURCE:ARG:��� += LOCAL

ELSE

DOWNBASE:ARG:�̗� += 200
DOWNBASE:ARG:�C�� += 250

SOURCE:ARG:���` += 250
SOURCE:ARG:���] += 400
SOURCE:ARG:��E += 600

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

;�t�B�X�g�Ȃǂ�A�ւ̑傫�ȋ�ɂ͐�ɏ������Ă���
;EXP:�`�o�����݂�
LOCAL = 750
LOCAL:1 = 600
IF EXP:ARG:�`�o�� < EXPLV:1
	TIMES LOCAL , 3.00
	TIMES LOCAL:1 , 4.00
ELSEIF EXP:ARG:�`�o�� < EXPLV:2
	TIMES LOCAL , 2.50
	TIMES LOCAL:1 , 3.50
ELSEIF EXP:ARG:�`�o�� < EXPLV:3
	TIMES LOCAL , 2.40
	TIMES LOCAL:1 , 3.00
ELSEIF EXP:ARG:�`�o�� < EXPLV:4
	TIMES LOCAL , 2.00
	TIMES LOCAL:1 , 2.50
ELSEIF EXP:ARG:�`�o�� < EXPLV:5
	TIMES LOCAL , 1.80
	TIMES LOCAL:1 , 2.00
ELSEIF EXP:ARG:�`�o�� >= EXPLV:5
	TIMES LOCAL , 1.60
	TIMES LOCAL:1 , 1.50
ENDIF

;PALAM:�������݂�
IF PALAM:ARG:���� < PALAMLV:1
	TIMES LOCAL , 3.00
	TIMES LOCAL:1 , 2.00
ELSEIF PALAM:ARG:���� < PALAMLV:2
	TIMES LOCAL , 2.50
	TIMES LOCAL:1 , 1.50
ELSEIF PALAM:ARG:���� < PALAMLV:3
	TIMES LOCAL , 2.00
	TIMES LOCAL:1 , 1.20
ELSEIF PALAM:ARG:���� < PALAMLV:4
	TIMES LOCAL , 1.50
ELSEIF PALAM:ARG:���� >= PALAMLV:4
	TIMES LOCAL , 1.00
ENDIF
SOURCE:ARG:��� += LOCAL
SOURCE:ARG:���� += LOCAL:1
ENDIF
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
;�`�o��
EXP:ARG:�`�o�� += 1

RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE148
;�A�i���d�Ɏ��s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(148)
	RETURN RESULT
;�����g����
SIF TEQUIP:0 > 1
	RETURN 0
;�����͂��ł��\
SIF TEQUIP:23
	RETURN 1
;�A�C�e���������Ă��邩�A�A�C�e���Ȃ��ݒ�łȂ��ƃ_��
SIF ITEM:24 == 0 && NOITEM == 0
	RETURN 0
;�A�i���o�C�u�g�p���͕s��
SIF TEQUIP:14
	RETURN 0
;�A�i���r�[�Y�g�p���͕s��
SIF TEQUIP:15
	RETURN 0
;���ʂ̟����g�p���͕s��
SIF TEQUIP:21
	RETURN 0
;�o���[���g�p���͕s��
SIF TEQUIP:22
	RETURN 0
;�����C��v���C���̓_��
SIF TEQUIP:31
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;���[�V����
;����R�}���h
;-------------------------------------------------
@COM180
#DIM �`���R
�`���R = 0
ITEM:40 -= 1
;������[
IF !ITEM:40 && MONEY >= 200 && FLAG:1001
	MONEY -= 200
	ITEM:40 ++
ENDIF
IF ITEM:121 || ITEM:122 || ITEM:123
	PRINTL �`���R���[�g�v���C������H
	PRINTL [0]�͂� [1]������
	INPUT
	IF !RESULT
		PRINTL �ǂ̃`���R���g���H
		PRINTFORM [0]����ς��߂�@
		SIF ITEM:121
			PRINTFORM [1]%ITEMNAME:(121)%�@
		SIF ITEM:122
			PRINTFORM [2]%ITEMNAME:(122)%�@
		SIF ITEM:123
			PRINTFORM [3]%ITEMNAME:(123)%�@
		INPUT
		IF RESULT == 1 && ITEM:121
			�`���R = 1
			ITEM:121 -= 1
		ELSEIF RESULT == 2 && ITEM:122
			�`���R = 2
			ITEM:122 -= 1
		ELSEIF RESULT == 3 && ITEM:123
			�`���R = 3
			ITEM:123 -= 1
		ELSE
		ENDIF
	ELSE
	ENDIF
ENDIF
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER
;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
DOWNBASE:�̗� += 0
DOWNBASE:�C�� += 0

SOURCE:�t�� = 5000
SIF TALENT:TARGET:�̌^ == -5
	SOURCE:�t�� += 20000
IF �`���R
	STAIN:1 += 128
	STAIN:5 += 128
	STAIN:PLAYER:1 +=128
ENDIF

IF FLAG:70 == 1

ELSE

	SOURCE:�I�o = 100

	SELECTCASE �`���R
	CASE 1
		SOURCE:�s�� = 100
		SOURCE:��E = 100
	CASE 2
		SOURCE:�s�� = 80
		SOURCE:��E = 80
	CASE 3
		SOURCE:� = 30
		SOURCE:�s�� = 60
		SOURCE:��E = 60
		EXP:����o�� ++
	ENDSELECT

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

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE180
;���[�V�������s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(180)
	RETURN RESULT
;�A�C�e���������Ă��邩�A�A�C�e���Ȃ��ݒ�łȂ��ƃ_��
SIF ITEM:40 == 0 && NOITEM == 0
	RETURN 0

;�V�����[���̓_��
SIF TEQUIP:32
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�t�F������
;�����n�R�}���h�A���x��1
;-------------------------------------------------
@COM2
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER
;��d���y
TCVAR:PLAYER:108 = 1

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 4
;���x
TCVAR:TARGET:4 = 1500

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 50
	SOURCE:PLAYER:���l += 50
	SOURCE:���b = 110
	;���Z�␳
	SOURCE:���b += MIN(ABL:PLAYER:�� * 25,100)

	;�����҂�TALENT:��g�����݂�
	SIF TALENT:PLAYER:��g��
		TIMES SOURCE:���b , 1.50

	;�����҂�TALENT:�L����݂�
	SIF TALENT:PLAYER:�L��
		TIMES SOURCE:���b , 0.75
	;�z��̂o�̒����҂̌��̉��ꂪ�ړ�
	STAIN:2 |= STAIN:PLAYER:0
	STAIN:PLAYER:0 |= STAIN:2
	;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 3
	ENDIF
	;�����҂��L�㎝���̏ꍇ�́A�����҂ɚn�s���y�o����ǉ�
	SIF TALENT:PLAYER:�L��
		EXP:PLAYER:�n�s���y�o�� += 1
	EXP:PLAYER:�����o�� ++
ELSE

	DOWNBASE:�̗� += 5
	DOWNBASE:�C�� += 50
	SOURCE:PLAYER:���l += 50

	SOURCE:���b = 110
	SOURCE:�I�o = 20
	SOURCE:��E = 20
	SOURCE:���� = 20

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

	;���Z�␳
	IF ABL:PLAYER:�� >= 4
		SOURCE:���b += 100
	ELSE
		SOURCE:���b += ABL:PLAYER:�� * 25
	ENDIF

	;�����҂�TALENT:��g�����݂�
	SIF TALENT:PLAYER:��g��
		TIMES SOURCE:���b , 1.50

	;�����҂�TALENT:�L����݂�
	SIF TALENT:PLAYER:�L��
		TIMES SOURCE:���b , 0.75
	;-------------------------------------------------
	;����̏���
	;-------------------------------------------------
	;�z��̂o�̒����҂̌��̉��ꂪ�ړ�
	STAIN:2 |= STAIN:PLAYER:0
	STAIN:PLAYER:0 |= STAIN:2

	;-------------------------------------------------
	;�o���̏���
	;-------------------------------------------------
	;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 3
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 3
	ENDIF
	;�����҂��L�㎝���̏ꍇ�́A�����҂ɚn�s���y�o����ǉ�
	SIF TALENT:PLAYER:�L��
		EXP:PLAYER:�n�s���y�o�� += 1
	EXP:PLAYER:�����o�� ++
ENDIF
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE2
;�t�F��������s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(2)
	RETURN RESULT
;���킪����Ă����PLAYER�̏ꍇ�t�F������͂ł��Ȃ��i�����҂����ꖳ�������t�A�o�A����A�`���R�̂悲��Ȃ�n�j�j
SIF STAIN:2 >= 4 && (STAIN:2 != 18 && STAIN:2 != 19 && STAIN:2 != 128 && STAIN:2 != 129 && STAIN:2 != 130 && STAIN:2 != 131 && STAIN:2 != 144 && STAIN:2 != 145 && STAIN:2 != 146 && STAIN:2 != 147) && ASSIPLAY == 0 && TALENT:PLAYER:���L�ϐ� < 2
	RETURN 0
;���킪����Ă���A���L�q���ŏ]��3�ȉ���ASSI�̏ꍇ�t�F���͂ł��Ȃ��i�����҂����ꖳ�������t�A�o�A����A�`���R�̂悲��Ȃ�n�j�j
IF STAIN:2 >= 4 && (STAIN:2 != 18 && STAIN:2 != 19 && STAIN:2 != 128 && STAIN:2 != 129 && STAIN:2 != 130 && STAIN:2 != 131 && STAIN:2 != 144 && STAIN:2 != 145 && STAIN:2 != 146 && STAIN:2 != 147) && ASSIPLAY
	SIF ABL:ASSI:�]�� <= 3 && TALENT:ASSI:���L�ϐ� < 0
		RETURN 0
ENDIF
;�L��̒����҂̏ꍇ�͋Z�ILv2�ȏ�K�v
SIF TALENT:PLAYER:�L�� && ABL:PLAYER:�Z�I < 2
	RETURN 0
;�I�g�R���ӂ��Ȃ肶��Ȃ��ƃ_��
SIF !(TALENT:2 & 2)
	RETURN 0

;�����g����;�Y�{���͕s�ɂȂ��Ă邯�ǁA�Y�{���Ȃ炨���񂿂�o���Ă����Ȃ�ˁH
;SIF TEQUIP:0 & 4
	;RETURN 0
;�I�i�z�[���g�p���̓_��
SIF TEQUIP:12
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�U���󂯂�
;�R�~���j�P�[�V�����n�R�}���h�A���x��1
;-------------------------------------------------
@COM22
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = -1
;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
DOWNBASE:�C�� += 30

;SOURCE:PLAYER:���b = 50
SOURCE:PLAYER:�I�o = 200
;TARGET�ɘI�o�K�v�H
SOURCE:�I�o = 100
;-------------------------------------------------
;����\�[�X����
;-------------------------------------------------
;��ɂ𔺂�Ȃ��}�]���C�y�у}�]�̔��������͐�ɂ��Ă���
;�}�]���C������
SELECTCASE ABL:PLAYER:�}�]���C
	CASE 0
		TIMES SOURCE:PLAYER:�I�o , 0.80
		SOURCE:PLAYER:�t�� += 0
		SOURCE:PLAYER:�~�� += 0
	CASE 1
		TIMES SOURCE:PLAYER:�I�o , 1.00
		SOURCE:PLAYER:�t�� += 20
		SOURCE:PLAYER:�~�� += 30
	CASE 2
		TIMES SOURCE:PLAYER:�I�o , 1.20
		SOURCE:PLAYER:�t�� += 40
		SOURCE:PLAYER:�~�� += 70
	CASE 3
		TIMES SOURCE:PLAYER:�I�o , 1.40
		SOURCE:PLAYER:�t�� += 70
		SOURCE:PLAYER:�~�� += 120
	CASE 4
		TIMES SOURCE:PLAYER:�I�o , 1.50
		SOURCE:PLAYER:�t�� += 110
		SOURCE:PLAYER:�~�� += 180
	CASE 5
		TIMES SOURCE:PLAYER:�I�o , 1.70
		SOURCE:PLAYER:�t�� += 150
		SOURCE:PLAYER:�~�� += 250
	CASE 6
		TIMES SOURCE:PLAYER:�I�o , 1.90
		SOURCE:PLAYER:�t�� += 200
		SOURCE:PLAYER:�~�� += 300
	CASE 7
		TIMES SOURCE:PLAYER:�I�o , 2.10
		SOURCE:PLAYER:�t�� += 250
		SOURCE:PLAYER:�~�� += 350
	CASE 8
		TIMES SOURCE:PLAYER:�I�o , 2.30
		SOURCE:PLAYER:�t�� += 300
		SOURCE:PLAYER:�~�� += 400
	CASE 9
		TIMES SOURCE:PLAYER:�I�o , 2.50
		SOURCE:PLAYER:�t�� += 350
		SOURCE:PLAYER:�~�� += 450
	CASEELSE
		TIMES SOURCE:PLAYER:�I�o , 3.00
		SOURCE:PLAYER:�t�� += 500
		SOURCE:PLAYER:�~�� += 500
ENDSELECT

;�}�]������
IF TALENT:PLAYER:�}�]
	TIMES SOURCE:PLAYER:�I�o , 2.50
	TIMES SOURCE:PLAYER:�t�� , 1.20
	TIMES SOURCE:PLAYER:�~�� , 1.20
ENDIF
RETURN 1

@COM_ABLE22
;�U���󂯂���s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(22)
	RETURN RESULT
SIF !TARGET
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;���Ԓ�~���͕s��
SIF FLAG:70
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�s���[�g�[�N
;-------------------------------------------------
@COM23
#DIM �񕜑O�̗�
#DIM �񕜑O�C��
#DIM �񕜌�̗�
#DIM �񕜌�C��
#DIM �񕜑O����
#DIM �񕜌㐸��
#DIM �񕜑O�̗͂Q
#DIM �񕜑O�C�͂Q
#DIM �񕜌�̗͂Q
#DIM �񕜌�C�͂Q

;��b�ݐϒl��臒l�𒴂���Ǝ��s
IF TCVAR:302
	PRINTFORML %CALLNAME:TARGET%�ɘb�������悤�Ƃ��������t��������Ȃ�
	PRINTW ������ɋC�܂�����C�����ꂽ�c
	TIME += 10
	DOWNBASE:�C�� += 100
	DOWNBASE:PLAYER:�C�� += 100
	RETURN 1
ENDIF

;======��b��������======
;�Œ�Ŋl������\�[�X
SOURCE:���y = 200

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

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

SOURCE:�� = 100 + 100 * ABL:�]��
SOURCE:���� = 100 + 100 * ABL:�T�h���C

;����������łȂ��Ɛ�������������
LOCAL = RAND:(200 - TALENT:���� * 100 - TALENT:�v�� * 50)

IF LOCAL <= 20
	;�听��
	TFLAG:98 = 2
	EXP:PLAYER:��b�o�� ++
	TFLAG:193 = 1
ELSEIF LOCAL >= 95
	;�^�������Ǝ��s
	TFLAG:�D���x�}�C�i�X = 2
	TFLAG:193 = -1
ENDIF

IF TFLAG:193 == -1
	TIMES SOURCE:���y , 0.10
	TIMES SOURCE:���� , 0.50
	TIMES SOURCE:�� , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:���y , 1.00
	TIMES SOURCE:���� , 1.00
	TIMES SOURCE:�� , 1.00
ELSE
	TIMES SOURCE:���y , 2.00
	TIMES SOURCE:���� , 2.00
	TIMES SOURCE:�� , 2.00
ENDIF
SELECTCASE ABL:PLAYER:�b�p�Z�\
	CASE 0
		TIMES SOURCE:���y , 0.20
		TIMES SOURCE:���� , 0.20
		TIMES SOURCE:�� , 0.20
	CASE 1
		TIMES SOURCE:���y , 0.40
		TIMES SOURCE:���� , 0.40
		TIMES SOURCE:�� , 0.40
	CASE 2
		TIMES SOURCE:���y , 0.70
		TIMES SOURCE:���� , 0.70
		TIMES SOURCE:�� , 0.70
	CASE 3
		TIMES SOURCE:���y , 1.00
		TIMES SOURCE:���� , 1.00
		TIMES SOURCE:�� , 1.00
	CASE 4
		TIMES SOURCE:���y , 1.20
		TIMES SOURCE:���� , 1.20
		TIMES SOURCE:�� , 1.20
	CASEELSE
		TIMES SOURCE:���y , 1.50
		TIMES SOURCE:���� , 1.50
		TIMES SOURCE:�� , 1.50
ENDSELECT
;==================================
;��b�ݐϒl
TCVAR:301 += 800 / (10 + ABL:PLAYER:�b�p�Z�\)
�񕜑O�̗� = BASE:PLAYER:�̗�
�񕜑O�C�� = BASE:PLAYER:�C��
�񕜑O���� = BASE:PLAYER:����
�񕜑O���� = BASE:PLAYER:����
�񕜑O�̗͂Q = BASE:�̗�
�񕜑O�C�͂Q = BASE:�C��

CALL RECOVER_PERMIL(PLAYER,20,"�̗�",1)
CALL RECOVER_PERMIL(PLAYER,50,"�C��",1)
CALL RECOVER_PERMIL(PLAYER,50,"����",1)

CALL RECOVER_PERMIL(TARGET,20,"�̗�",1)
CALL RECOVER_PERMIL(TARGET,50,"�C��",1)

IF TFLAG:193 == -1
	CALL RECOVER_PERMIL(PLAYER,-80,"�C��",1)
	CALL RECOVER_PERMIL(TARGET,-80,"�C��",1)
ENDIF

TIME += 30
�񕜌�̗� = BASE:PLAYER:�̗�
�񕜌�C�� = BASE:PLAYER:�C��
�񕜌㐸�� = BASE:PLAYER:����
�񕜌�̗͂Q = BASE:�̗�
�񕜌�C�͂Q = BASE:�C��

DRAWLINE
PRINTFORML �̗�+{ABS(�񕜌�̗� - �񕜑O�̗�)}�i%CALLNAME:PLAYER%�j
PRINTFORML �C��+{ABS(�񕜌�C�� - �񕜑O�C��)}�i%CALLNAME:PLAYER%�j
PRINTFORML ����+{ABS(�񕜌㐸�� - �񕜑O����)}�i%CALLNAME:PLAYER%�j
PRINTFORML �̗�+{ABS(�񕜌�̗͂Q - �񕜑O�̗͂Q)}�i%CALLNAME:TARGET%�j
PRINTFORML �C��+{ABS(�񕜌�C�͂Q - �񕜑O�C�͂Q)}�i%CALLNAME:TARGET%�j
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE23
;�s���[�g�[�N
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(150)
	RETURN RESULT
;���肪���ĂȂ��Ƒʖ�
SIF BASE:�̗� > 1000
	RETURN 0

;���Ԓ�~�����ʖ�
SIF FLAG:70
	RETURN 0
;�Ȃ񂩑������Ă�ƃ_��
FOR LOCAL,11,25
	SIF TEQUIP:LOCAL
		RETURN 0
NEXT
;�}�����͑ʖ�
SIF TEQUIP:50 != -1
	RETURN 0
SIF TEQUIP:51 != -1
	RETURN 0
;�V�����[���̓_��
SIF TEQUIP:32
	RETURN 0
;����z�����̓_��
SIF TEQUIP:41
	RETURN 0
;�����ݒ��̓_��
SIF TEQUIP:42
	RETURN 0
;�p���L�X
SIF TEQUIP:�p���L�X
	RETURN 0
;��������
SIF CFLAG:�C�^�Y�� > 1
	RETURN 0
;�x�b�h���[���łȂ��ƃ_��
SIF !BEDROOM(CFLAG:PLAYER:���݈ʒu)
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;�w�}����
;�����n�R�}���h�A���x��1
;-------------------------------------------------
@COM3
;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER
;��d���y
TCVAR:PLAYER:108 = 1

;�j�Z�}��
TFLAG:2 = 1

;-------------------------------------------------
;�\�[�X�ǉ�����
;-------------------------------------------------
;����̗́A�C��
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 40
	IF !TALENT:���� || TALENT:���� == -1
		SOURCE:���u = 120
		SOURCE:��� = 10
	ELSE
		SOURCE:���u = 60
		SOURCE:��� = 5
	ENDIF
	SIF TALENT:PLAYER:��p�Ȏw
		SOURCE:���u += 20
	SOURCE:���u += ABL:PLAYER:�w * 5
	;V�ւ̋��
	CALL PAIN_CHECK_V(TARGET)
	;�z����S���̒����҂̎w�̉��ꂪ�ړ�
	STAIN:6 |= STAIN:PLAYER:1
	STAIN:PLAYER:1 |= STAIN:6
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
	EXP:�u�o�� ++
	EXP:PLAYER:����o�� ++
ELSE

	DOWNBASE:�̗� += 30
	DOWNBASE:�C�� += 80

	IF !TALENT:���� || TALENT:���� == -1
		SOURCE:���u = 120
		SOURCE:��� = 15
		SOURCE:�I�o = 10
		SOURCE:��E = 20
		SOURCE:���� = 20
	;V�o����0�̎���V�o���𔺂�Ȃ����ɔh��
	;V�̎�͓���Ȃ����A��V�������Ɗ��炵�Ă��邽�ߏ����r�����ɉe��
	ELSE
		SOURCE:���u = 60
		SOURCE:��� = 10
		SOURCE:�I�o = 30
		SOURCE:��E = 30
		SOURCE:���� = 30
	ENDIF

	SIF TALENT:PLAYER:��p�Ȏw
		SOURCE:���u += 20
	SOURCE:���u += ABL:PLAYER:�w * 5
	;-------------------------------------------------
	;����\�[�X����
	;-------------------------------------------------
	;�}���A��R�����ɂ́A�}�T�\�[�X�ǉ�
	IF TALENT:���Ȉ� < 0 || TALENT:��R
		SOURCE:�T�� += 20
		;����
		SIF TALENT:����
			SOURCE:�T�� += 10
	ENDIF
	;V�ւ̋��
	CALL PAIN_CHECK_V(TARGET)

	;-------------------------------------------------
	;����̏���
	;-------------------------------------------------
	;�z����S���̒����҂̎w�̉��ꂪ�ړ�
		STAIN:6 |= STAIN:PLAYER:1
		STAIN:PLAYER:1 |= STAIN:6
	;-------------------------------------------------
	;�o���̏���
	;-------------------------------------------------
	;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
	EXP:�u�o�� ++
	EXP:PLAYER:����o�� ++
ENDIF
RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE3
;�w�}������s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(3)
	RETURN RESULT
;�I�g�R���ƃ_��
SIF !(TALENT:2 & 1)
	RETURN 0
;���Ԓ�~���͋���
IF FLAG:70 != 1
	;�����s���ŁA�]��3�ȉ��E���Y���C3�ȉ���ASSI�̏ꍇ�A�i�������͂ł��Ȃ��i�T�h�Ȃ�n�j�j
	IF PALAM:���� < PALAMLV:2 && ASSIPLAY
		SIF (ABL:ASSI:�]�� <= 3 || ABL:ASSI:���Y���C <= 3) && !TALENT:ASSI:�T�h
			RETURN 0
	ENDIF
ENDIF

;�����g����
SIF TEQUIP:0 & 4
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;����哱�����
;�Z�b�N�X�n�R�}���h�A���x��1
;-------------------------------------------------
@COM320
;-------------------------------------------------
;����h������
;-------------------------------------------------

;�x�b�h���Ȃ��Ɨ��ʂ�
SIF !BEDROOM(CFLAG:PLAYER:���݈ʒu) && !(BATHROOM() && ITEM:20)
	TFLAG:193 = 1

;-------------------------------------------------
;COM��FLAG�̐ݒ�
;-------------------------------------------------
;�s�׎�
TCVAR:116 = PLAYER

;��d���y�t���O
TCVAR:PLAYER:108 = 1

CALL TOUCH_SET(SET_FROM_V,1,TARGET)
TCVAR:PLAYER:2 = 1
TEQUIP:TARGET:�̈� = 1
TFLAG:MASTER�̂o�}���� = 1
TEQUIP:50 = PLAYER

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 = 1
;���x
TCVAR:PLAYER:4 = 800

CSTR:TARGET:10 += @"{PLAYER}/"
;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:TARGET:2 = 13
;���x
TCVAR:TARGET:4 = 1500

;����ʕ␳
;PLAYER��TARGET���S�ɑ}�����Ă���
SIF (BEDROOM(CFLAG:PLAYER:���݈ʒu) || (BATHROOM() && ITEM:20)) && TEQUIP:50 == PLAYER
	TCVAR:PLAYER:4 += EXP:����o�� * 5
SIF TCVAR:PLAYER:4 >= 3000
	TCVAR:PLAYER:4 = 3000

DOWNBASE:PLAYER:�̗� += 80
SOURCE:PLAYER:���b = 400

DOWNBASE:�̗� += 40
DOWNBASE:�C�� += 50

SOURCE:���u = 400
SOURCE:� = 300
SOURCE:��� = 500
SOURCE:�I�o = 50
SIF TFLAG:193
	SOURCE:�I�o = 300
;����ʕ␳
SIF BEDROOM(CFLAG:PLAYER:���݈ʒu) && !ASSIPLAY
	SOURCE:���u += EXP:����o��
SIF SOURCE:���u >= 1000
	SOURCE:���u = 1000

;��̂ق��Ōv�Z��������f�[�^
SOURCE:�s�� = Y*10 + 60
CALL ����\�[�X����
;V�ւ̋�ɂ͐�ɏ������Ă���
CALL PAIN_CHECK_V(TARGET)
;-------------------------------------------------
;����̏���
;-------------------------------------------------
;�ː��Ɋ֌W�Ȃ��s���鏈���͂�������
CALL STAIN_�S���o�}��
;-------------------------------------------------
;�o���̏���
;-------------------------------------------------
EXP:PLAYER:�}���o�� ++
EXP:�u�o�� ++
;�������@���Y�Ȃ�߂�l1�Q�C�Ȃ�߂�l2

IF HETEROSEX(TARGET,PLAYER)
	EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
ENDIF
EXP:�u�����o�� ++
IF !ASSIPLAY
	EXP:����o�� += TALENT:���� * 3
	;����
	SIF TALENT:���� == 1 && TALENT:����
		EXP:����o�� += 10
ENDIF

RETURN 1

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE320
SIF !TFLAG:100
	RETURN 0
SIF TCVAR:20 != 41
	RETURN 0
;�����҂��I�g�R�A�ӂ��Ȃ�̏ꍇ�͂�����x�u�N���ĂȂ��ƃ_��
SIF (TALENT:PLAYER:2 & 2) && BASE:PLAYER:�u�N < 1000
	RETURN 0
;�o�C�u�}�����̓_��
SIF TEQUIP:13
	RETURN 0
;�I�g�R���ƃ_��
SIF !(TALENT:2 & 1)
	RETURN 0
;�̊i��������ꍇ�͌o�����Ȃ��ƃ_��
SIF �}���s��(TARGET) == 1 && EXP:�u�o�� < 50 && !TALENT:PLAYER:�֒f�̒m��
	RETURN 0
;����ɑ̊i��������Ƌ֒f�̒m�����K�v
SIF �}���s��(TARGET) == 2 && (!TALENT:PLAYER:�֒f�̒m�� || EXP:�u�o�� < 50)
	RETURN 0
SIF �}���s��(TARGET) == 3
	RETURN 0
;�����҂��I�g�R�A���l���d�A�ӂ��Ȃ�A�������̓y�j�X�o���h���Ȃ��ƃ_��
SIF !(TALENT:PLAYER:2 & 2) && ITEM:PBAND == 0
	RETURN 0
;�����ŁA�]��4�ȉ��E���Y���C4�ȉ���ASSI�̏ꍇ�͂ł��Ȃ��i�T�h�Ȃ�n�j�j
IF TALENT:���� && ASSIPLAY
	SIF (ABL:ASSI:�]�� <= 4 || ABL:ASSI:���Y���C <= 4) && TALENT:ASSI:�T�h == 0
		RETURN 0
ENDIF
;���Ԓ�~���̓X�L�b�v
IF FLAG:70 != 1
	;�����������s���͂���
	SIF PALAM:���� < PALAMLV:2 && TALENT:���� && TALENT:���� != -1
		RETURN 0
ENDIF

;�����g����
SIF TEQUIP:0 & 4
	RETURN 0
;�����C��v���C���̓v���C�}�b�g�������ƃ_��
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;�w�ʍ��ʂ���̓_��
SIF TEQUIP:�̈� == 5
	RETURN 0
RETURN 1