code:
;-------------------------------------------------
;방을방문한다
;외출 커맨드
;-------------------------------------------------
@COM697
#DIM 집주인
#DIM 질투
#DIM 바람기
#DIM 방의더러움
FOR LOCAL, 1, CHARANUM
	IF CFLAG:LOCAL:자택위치 == CFLAG:MASTER:현재위치
		SIF CFLAG:LOCAL:출금
			CONTINUE
		SIF LOCAL == TARGET
			CONTINUE
		SIF CFLAG:LOCAL:약점잡힘
			SETCOLOR C_AQUA
		SIF CFLAG:LOCAL:현재위치 != SUKIMA() || !VISIT(LOCAL) || CFLAG:LOCAL:거점내방 || BASE:LOCAL:체력 < 1000
			SETCOLOR C_GRAY
		PRINTFORML [{LOCAL}] %OMANEKI_PLACE(LOCAL)%
		RESETCOLOR
	ENDIF
NEXT
DRAWLINE
PRINTL [999] 그만둔다
INPUT
SIF RESULT == 999
	RETURN -1
SIF CFLAG:RESULT:자택위치 != CFLAG:MASTER:현재위치
	RETURN -1

집주인 = RESULT

;다른 아이와 데이트중
IF FLAG:데이트상대
	PRINTFORMW %OMANEKI_PLACE(집주인)%에 들어가려 했으나, %CALLNAME:(FLAG:데이트상대)%에게 마음껏 노려보였다
	RETURN -1
ENDIF

;볼 수 있지 않은가 체크
바람기 = 0
질투 = 0
FOR LOCAL, 1, CHARANUM
	IF LOCAL != 집주인 && CFLAG:LOCAL:현재위치 == CFLAG:MASTER:현재위치
		SIF LOCAL == 60
			질투 = 60
		SIF TALENT:LOCAL:연모 && CFLAG:LOCAL:신뢰도 < 1000
			바람기 = LOCAL
	ENDIF
NEXT
;파르시가 출현해 4명이나 살고 있는 지령전은 꽤 난이도가 높다
;연동 캐릭터도 달려 들어 오므로 양다리 하고 있다고(면) 큰 일
IF 질투 || 바람기
	PRINTFORM %OMANEKI_PLACE(집주인)%에 들어가려 했으나,
	IF 질투
		PRINTFORMW 오니같은 형상의 %CALLNAME:질투%에게 방해받았다
	ELSE
		PRINTFORMW 의아한 얼굴을 한 %CALLNAME:바람기%에게 불러세워졌다
	ENDIF
	RETURN -1
ENDIF

IF TCVAR:집주인:댁방문
	PRINTFORML 오늘은 이제 그만 두자
	RETURN -1
ENDIF

SELECTCASE RAND:10
	CASE IS <= 1
		TFLAG:193 = 1
	CASE 2 TO 4
	;매우 바쁜
		TFLAG:193 = 2
	CASE 5,6,7
	;잠시
		TFLAG:193 = 3
	CASE 8,9
	;올려 줄 수 있다
		TFLAG:193 = 4
ENDSELECT
SIF !TALENT:집주인:연모 && !TALENT:집주인:사모 && TFLAG:193 > 2
	TFLAG:193 --

SIF CFLAG:집주인:현재위치 != SUKIMA() || !VISIT(집주인) || CFLAG:집주인:거점내방 || BASE:집주인:체력 < 1000
	TFLAG:193 = 1

PRINTFORMW %마스터는% %조사처리(OMANEKI_PLACE(집주인),"를")% 방문했다
TCVAR:집주인:댁방문 = 1
[IF_DEBUG]
IF FLAG:테스트용딸딸이들킴발생
	CALL ONABARE(집주인)
	GOTO OWARI
ENDIF
[ENDIF]

CALL IRAI_VISIT_HOME(집주인)
SIF RESULT
	GOTO OWARI

IF DAY:2 == 3 && (DAY:3 == 13 || DAY:3 == 15) && TFLAG:193 > 1
	CFLAG:집주인:마지막에만난날 = DAY
	PRINTFORML %조사처리(CALLNAME:집주인,"가")% 나왔다
	PRINTFORMW 「복조리 받아라, 밭에 풍년 받아라!」%마스터는% 풍년을 빌었다
	IF ABL:집주인:교양 >= 5 || 집주인 == 77 || 집주인 == 78
		PRINTFORML %조사처리(CALLNAME:집주인,"는")% 과자를 주었다!
		;현상 실장되고 있는 과자를 랜덤에
		SELECTCASE RAND:5
			CASE 0
				ITEM:120 ++
			CASE 1
				ITEM:212 ++
			CASE 2
				ITEM:213 ++
			CASE 3
				ITEM:216 ++
			CASEELSE
				ITEM:376 ++
		ENDSELECT
	ELSE
		PRINTFORML %조사처리(CALLNAME:집주인,"는")% 의아한 얼굴을 하고 있다…아무래도 「복조리」를 모르는 것 같다
		PRINTFORML %조사처리(CALLNAME:집주인,"는")% 말없이 문을 닫아버렸다
		PRINTFORML %마스터는% 슬퍼졌다
	ENDIF
	TIME += 10
	RETURN 1
ENDIF

IF TFLAG:193 > 1 && CFLAG:집주인:욕구불만도 > 300
	IF RAND:(CFLAG:집주인:욕구불만도 + TFLAG:행운보정 * 50) >= RAND:700
		CALL ONABARE(집주인)
		GOTO OWARI
	ELSEIF ITEM:토부「개운대문」
		PRINTL 이런, 개운대문의 모습이…?
		CALL ASK_YN("꺼낸다","방치한다")
		IF !RESULT
			ITEM:토부「개운대문」 --
			CALL COLORMESSAGE(@"토부「개운대문」이 발동!", C_YELLOW, 2)
			CALL ONABARE(집주인)
			GOTO OWARI
		ENDIF
	ENDIF
ENDIF
SELECTCASE TFLAG:193
	CASE 1
		IF CFLAG:MASTER:현재위치 == CFLAG:집주인:현재위치
			PRINTFORMW 눈 앞에 있는 %조사처리(CALLNAME:집주인,"가")%,  멋대로 들어가지말라고 했다
		ELSE
			PRINTFORMW 대답이 없다… 부재중이거나 자고 있을 것이다
		ENDIF
	CASE 2
		CFLAG:집주인:마지막에만난날 = DAY
		PRINTFORMW %조사처리(CALLNAME:집주인,"가")% 나왔다
		IF !TALENT:집주인:연모 && !TALENT:집주인:사모
			PRINTFORM %조사처리(CALLNAME:집주인,"는")% 귀찮은 듯,
		ELSE
			PRINTFORM %조사처리(CALLNAME:집주인,"는")% 미안한 듯,
		ENDIF
		PRINTFORMW 오늘은 시간이 없으니까 또 다음에라고 말했다
		PRINTFORM 내일 만날 수 있는지 물어보니까,
		IF !RAND:2 && !GETBIT (TFLAG:일일일회, 5)
			PRINTFORMW 내일은 %GET_MAPNAME(MAIN_MAP)%에 갈 생각이라는 것이다
			CFLAG:집주인:다음날내방 = 1
			SETBIT TFLAG:일일일회, 5
		ELSE
			PRINTFORMW 좀 모르겠다, 라는 말을 들었다
		ENDIF
		CALL COM697_1(집주인)
		TIME += 5
	CASE 3
		CFLAG:집주인:마지막에만난날 = DAY
		PRINTFORML %조사처리(CALLNAME:집주인,"가")% 나왔다
		PRINTFORML %조사처리(CALLNAME:집주인,"를")% 보고 싶어져서 왔다고 하자, 조금이라면 라며 들여보내 주었다
		PRINTFORMW …
		PRINTFORMW ……
		PRINTFORMW ………
		PRINTFORMW %조사처리(CALLNAME:집주인,"와")% 잠시 담소했다
		PRINTFORMW 헤어질 때, 내일 만날 수 있는지 물어보았다
		IF !RAND:2 && !GETBIT (TFLAG:일일일회, 5)
			PRINTFORMW 내일은 %GET_MAPNAME(MAIN_MAP)%에 갈 생각이라는 것이다
			CFLAG:집주인:다음날내방 = 1
			SETBIT TFLAG:일일일회, 5
		ELSE
			PRINTFORMW 좀 모르겠다, 라는 말을 들었다
		ENDIF
		CALL COM697_1(집주인)
		TIME += 27
	CASE 4
		CFLAG:집주인:마지막에만난날 = DAY
		PRINTFORMW %조사처리(CALLNAME:집주인,"가")% 나왔다
		PRINTFORMW %조사처리(CALLNAME:집주인,"는")% 기쁜 듯하다…
		CALL ASK_YN("데이트를 신청하다","방문한다")
		IF !RESULT || !TALENT:집주인:연모
			IF !RESULT
				PRINTFORMW %CALLNAME:집주인%에게 데이트를 신청했다
			ELSE
				PRINTFORML 방문할 수 있기를 바랐지만, 거부당하고 말았다
				PRINTFORMW 대신 데이트라면 라고 제안되어지자, %마스터는% 두말없이 고개를 끄덕였다
			ENDIF
			CFLAG:MASTER:동행 = 60
			CFLAG:집주인:동행 = 60
			CFLAG:집주인:현재위치 = CFLAG:MASTER:현재위치
			CFLAG:집주인:데이트중 = CFLAG:MASTER:현재위치 / 100
			CFLAG:집주인:거점내방 = 1
			FLAG:데이트상대 = 집주인
			TFLAG:데이트전호감도 = CFLAG:집주인:2
		ELSE
			CFLAG:집주인:데이트중 = CFLAG:MASTER:현재위치 / 100
			CALL OMANEKI_ENTER(집주인)
		ENDIF
ENDSELECT

$OWARI
TIME += 3
RETURN 1

@COM697_1(ARG)
#DIM 환락UP
#DIM 수동UP
#DIM 정복UP

;회화의 콘파치
TFLAG:98 = 5
;고정으로 획득하는 소스
환락UP = 200
수동UP = 0
정복UP = 0
;ABL:친밀을 본다
IF ABL:ARG:친밀 <= 1
	환락UP += (ABL:ARG:순종 * 40)
ELSEIF ABL:ARG:친밀 <= 3
	환락UP += 200 + (ABL:ARG:순종 * 40)
ELSEIF ABL:ARG:친밀 <= 5
	환락UP += 500 + (ABL:ARG:순종 * 40)
ELSEIF ABL:ARG:친밀 <= 8
	환락UP += 750 + (ABL:ARG:순종 * 60)
ELSEIF ABL:ARG:친밀 <= 10
	환락UP += 1000 + (ABL:ARG:순종 * 60)
ELSE
	환락UP += 1600 + (ABL:ARG:순종 * 30)
ENDIF

;호감 도를 본다
IF CFLAG:ARG:2 <= 1000
	환락UP += CFLAG:ARG:2
ELSEIF CFLAG:2 <= 5000
	환락UP += 500 + (CFLAG:ARG:2 - 500) / 3
ELSE
	환락UP += 2000 + (CFLAG:ARG:2 - 5000) / 5
ENDIF
SIF 환락UP < 0
	환락UP = 0

수동UP = 100 + 100 * ABL:ARG:순종
정복UP = 100 + 100 * ABL:ARG:새드끼

SELECTCASE ABL:MASTER:화술기능
	CASE 0
		TIMES 환락UP , 0.20
		TIMES 정복UP , 0.20
		TIMES 수동UP , 0.20
	CASE 1
		TIMES 환락UP , 0.40
		TIMES 정복UP , 0.40
		TIMES 수동UP , 0.40
	CASE 2
		TIMES 환락UP , 0.70
		TIMES 정복UP , 0.70
		TIMES 수동UP , 0.70
	CASE 3
		TIMES 환락UP , 1.00
		TIMES 정복UP , 1.00
		TIMES 수동UP , 1.00
	CASE 4
		TIMES 환락UP , 1.20
		TIMES 정복UP , 1.20
		TIMES 수동UP , 1.20
	CASEELSE
		TIMES 환락UP , 1.50
		TIMES 정복UP , 1.50
		TIMES 수동UP , 1.50
ENDSELECT

IF TFLAG:193 == 3
	TIMES 환락UP , 3.50
	TIMES 정복UP , 3.50
	TIMES 수동UP , 3.50
	TFLAG:호감도보너스 = 200
ENDIF
SOURCE:ARG:환락 = 환락UP
SOURCE:ARG:정복 = 정복UP
SOURCE:ARG:수동 = 수동UP

CALL FAVOR_CALC(ARG)
CALL TRUST_CALC(ARG)
TFLAG:호감도보너스 = 0

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;방을방문한다
@COM_ABLE697
;일괄관리
SIF GLOBAL_COMABLE(697)
	RETURN RESULT
SIF AT_HOME(MASTER)
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
LOCAL:1 = 0
FOR LOCAL, 1, CHARANUM
	SIF CFLAG:LOCAL:출금
		CONTINUE
	SIF CFLAG:LOCAL:자택위치 == CFLAG:MASTER:현재위치 && !CFLAG:LOCAL:신사거주 && LOCAL != TARGET; && (TALENT:LOCAL:사모 || TALENT:LOCAL:연모)
		LOCAL:1 ++
NEXT

SIF !LOCAL:1
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/외출계/COMF697 방을방문한다_t.ERB


code:
;-------------------------------------------------
;방에들어간다
;외출 커맨드
;-------------------------------------------------
@COM698
#DIM 방의더러움
#DIM 바람기
#DIM 질투

;다른 아이와 데이트중
IF FLAG:데이트상대 != TARGET && FLAG:데이트상대 != 0
	PRINTFORM %OMANEKI_PLACE()%에 들어가려 했으나, %CALLNAME:(FLAG:데이트상대)%에게 마음껏 노려보였다
	RETURN -1
ENDIF

;볼 수 있지 않은가 체크
바람기 = 0
질투 = 0
FOR LOCAL, 1, CHARANUM
	IF LOCAL != TARGET && CFLAG:LOCAL:현재위치 == CFLAG:MASTER:현재위치
		SIF LOCAL == 60
			질투 = 60
		SIF TALENT:LOCAL:연모 && CFLAG:LOCAL:신뢰도 < 1000
			바람기 = LOCAL
	ENDIF
NEXT
;파르시가 출현해 4명이나 살고 있는 지령전은 꽤 난이도가 높다
;연동 캐릭터도 달려 들어 오므로 양다리 하고 있다고(면) 큰 일
IF 질투 || 바람기
	PRINTFORM %OMANEKI_PLACE(집주인)%에 들어가려 했으나,
	IF 질투
		PRINTFORMW 오니같은 형상의 %CALLNAME:질투%에게 방해받았다
	ELSE
		PRINTFORMW 의아한 얼굴을 한 %CALLNAME:바람기%에게 불러세워졌다
	ENDIF
	RETURN -1
ENDIF

CALL OMANEKI_ENTER(TARGET)

RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;방에들어간다
@COM_ABLE698

;일괄관리
SIF GLOBAL_COMABLE(698)
	RETURN RESULT
;업무중
SIF CFLAG:행동 == 5
	RETURN 0
;자택에 없다
SIF CFLAG:MASTER:현재위치 != CFLAG:자택위치
	RETURN 0
;우선 연모만 조건
SIF !TALENT:연모
	RETURN 0
;외출하고 있지 않다
SIF !CHK_DATENOW(CFLAG:MASTER:데이트중)
	RETURN 0
;다른 아이와 데이트중, 재미있기 때문에 커맨드는 실행할 수 있도록(듯이)
;SIF FLAG:데이트상대 != TARGET && FLAG:데이트상대 != 0
;	RETURN 0
;화내고 있으면(자) 안 돼(버그 회피 용무라도 있다)
SIF BASE:분노 > 50
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

;-------------------------------------------------
;외박 처리
;-------------------------------------------------
@OMANEKI_ENTER(ARG)
#DIM 방의더러움

;초대 플래그에 ARG를 대입
CFLAG:ARG:초대 = ARG
CFLAG:MASTER:초대 = ARG

;초기위치를 OMANEKIBEYA()=98로 한다
CFLAG:ARG:초기위치 = OMANEKIBEYA()
;이동시킨다
CFLAG:ARG:현재위치 = OMANEKIBEYA()
CFLAG:MASTER:현재위치 = OMANEKIBEYA()

;방이 더러워지는 상태
;한 번 들어가 있으면(자) 참조한다
IF TCVAR:ARG:초대방의더러움 > 0
	YOGORE:(OMANEKIBEYA()) = TCVAR:ARG:초대방의더러움
ELSE
	;최초로 들어갈 때는 악취내성 의존(민감 이하=최고, 보통=중, 둔감=저, 무시=쓰레기산)
	방의더러움 = MAX(1999 + (TALENT:ARG:61 * 2000), 0)
	YOGORE:(OMANEKIBEYA()) = 방의더러움
	TCVAR:ARG:초대방의더러움 = 방의더러움
ENDIF

repo_name: purugi/eraTWKR

path: ERB/커맨드관련/COMF/외출계/COMF698 방에들어간다_t.ERB

license: mit


code:
;-------------------------------------------------
;밖으로나온다
;외출 커맨드
;-------------------------------------------------
@COM699

;PRINTFORMW %STR:(((CFLAG:TARGET:자택위치) / 10) + 6000)%에 나온다

;자택위치의 3자리수째를 참조
CFLAG:MASTER:데이트중 = (CFLAG:(CFLAG:MASTER:초대):자택위치) / 100
;자택위치에 이동
CFLAG:MASTER:현재위치 = CFLAG:(CFLAG:MASTER:초대):자택위치
IF !CFLAG:TARGET:수면
	CFLAG:TARGET:현재위치 = CFLAG:(CFLAG:TARGET:초대):자택위치
ELSE
	CFLAG:TARGET:현재위치 = SUKIMA()
ENDIF
;만남 플래그를 자택위치로 설정(연동하고 있다고(면) 다른 캐릭터가 달려 들어 오는 것은 사양)
CFLAG:(CFLAG:MASTER:초대):만난위치 = CFLAG:(CFLAG:MASTER:초대):자택위치
;방의 더러움을 보존해 둔다
IF YOGORE:(OMANEKIBEYA()) > 0
	TCVAR:(CFLAG:MASTER:초대):초대방의더러움 = YOGORE:(OMANEKIBEYA())
ELSE
	;0 이하로 했을 경우는 식별하기 위해서 1남긴다
	TCVAR:(CFLAG:MASTER:초대):초대방의더러움 = 1
ENDIF
;초대 플래그에 0을 대입
CFLAG:TARGET:초대 = 0
CFLAG:MASTER:초대 = 0

IF CFLAG:TARGET:신사거주
	CFLAG:TARGET:초기위치 = CFLAG:TARGET:신사거주
ELSE
	CFLAG:TARGET:초기위치 = SUKIMA()
ENDIF
;TIME += 3
RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;밖으로나온다
@COM_ABLE699
;일괄관리
SIF GLOBAL_COMABLE(699)
	RETURN RESULT
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;막차…없어져 버렸다……
SIF NEMUKE() >= 720
	RETURN 0
;초대방전용
SIF CFLAG:MASTER:현재위치 != OMANEKIBEYA()
	RETURN 0
;동침중은 안 되요
SIF CFLAG:MASTER:동침중
	RETURN 0
;장난중도 안 돼
SIF CFLAG:MASTER:장난
	RETURN 0
;우후후 안도 안 돼
SIF CFLAG:MASTER:우후후
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/외출계/COMF699 밖으로나온다_t.ERB


code:
@ONABARE(ARG)
#DIM 이루어무너뜨려필요치
#DIM 부디그대로호감도상승치
#DIM TARGET보존

CFLAG:ARG:마지막에만난날 = DAY
;EVENT 말을 직접 부르므로 TARGET를 포착
TARGET보존 = TARGET
TARGET = ARG

IF !TALENT:ARG:처녀 && ABL:ARG:A감각 >= ABL:ARG:V감각
	LOCAL:2 = 1
ELSE
	LOCAL:2 = 0
ENDIF

PRINTFORMW \@CFLAG:MASTER:311 == CFLAG:ARG:311? 방 밖에서 모습을 엿봤다# 열쇠가 열려 있어서 마음대로 들어갔다\@
PRINTFORMW 안쪽에서 흐려서 분명하지 않은 목소리가 들린다……

;말체크
TRYCCALLFORM M_KOJO_EVENT_K{ARG}_ONABARE_1(LOCAL:2)

CATCH
	PRINTFORMW 눈치채지 못하도록 방안을 들여다보니, %조사처리(CALLNAME:ARG,"가")% 자위에 빠져 있었다
	PRINTFORM 옷이 벌어지고 아랫배를 드러낸 %조사처리(CALLNAME:ARG,"는")%,
	IF TALENT:ARG:연모
		PRINTFORM %CALLNAME:MASTER%의 이름을 부르
	;심약계, 진면목계
	ELSEIF CFLAG:ARG:성격경향 == 1 || CFLAG:ARG:성격경향 == 4
		PRINTFORM 목소리를 눌러 참으
	;강경세계
	ELSEIF CFLAG:ARG:성격경향 == 2 || CFLAG:ARG:성격경향 == 3 || CFLAG:ARG:성격경향 == 5
		PRINTFORM 달콤한 소리를 지르
	ENDIF
	PRINTFORMW 며, 천천히 손가락을 움직이고 있다

	;큰 가슴
	IF TALENT:ARG:가슴사이즈 > 0
		PRINTFORM 출렁하고 흔들리는 풍만한 유방
	;있고
	ELSEIF TALENT:ARG:가슴사이즈 < 0
		PRINTFORM 부들부들 떨리는 얇은 가슴팍
	;보통
	ELSE
		PRINTFORM 파르르 흔들리는 젖가슴
	ENDIF
	PRINTFORMW 을 어루만지며, 다리를 벌려 비소 쪽으로 손가락을 가져가는 %CALLNAME:ARG%
	PRINTFORMW 그대로, 스윽하며 \@ !LOCAL:2 ? 비소 # 아누스 \@에 가운데 손가락을 찔러넣는 모습에 군침을 삼킨다
	PRINTFORMW 동시에, 쾅하고, 문에 이마가 부딪쳐 버렸다
	PRINTFORML 내방객을 알아챈 %조사처리(CALLNAME:ARG,"는")% 경직되어, 몸을 숨기는 것 조차 잊어버리고 %CALLNAME:MASTER% 쪽을 바라보고 있다……
ENDCATCH

CALL KOJO_MESSAGE_SEND("EVENT", 26, ARG, 0,0)
PRINTFORMW
$LOOP

PRINTFORML 어떻게 하지?
CALL ASK_M("실례했습니다", 1,"봐줄테니까 부디 그대로", 1,"혼자보다는 둘이서 하는 편이 기분이 좋다", BASE:MASTER:정력 > MAXBASE:MASTER:정력 / 5)
IF RESULT == 0
	IF CFLAG:MASTER:311 == CFLAG:ARG:311
		PRINTFORML %마스터는% 허둥지둥 잠자리에 들었다
	ELSE
		PRINTFORML %마스터는% 눈앞의 광경을 망막에 새긴 다음, 동요하는 %조사처리(CALLNAME:ARG,"는")% 정신을 차리기 전에 한마디 사과하고 가버렸다
	ENDIF
	SIF !CFLAG:ARG:약점잡힘
		PRINTFORML %CALLNAME:ARG%의【약점】을 잡았다
	CALL KOJO_MESSAGE_SEND("EVENT", 26, ARG, 1,0)
	CFLAG:ARG:딸딸이들킴 = 1
	CFLAG:ARG:약점잡힘 = 1
	TIME += 5
ELSEIF RESULT == 1
	이루어무너뜨려필요치 = 껴안고필요치(ARG) - 50 + TALENT:ARG:수치심 * 50 - ABL:ARG:노출벽 * 30 - CFLAG:ARG:욕구불만도 / 20
	SIF  TALENT:ARG:자존심 > 0
		이루어무너뜨려필요치 += 100
	SIF CFLAG:ARG:기정사실 & 합의_우후후
		이루어무너뜨려필요치 -= 50
	SIF TALENT:ARG:담력 < 0
		이루어무너뜨려필요치 -= 200
	CALL SHOW_LOVEPOWER(CFLAG:ARG:합의판정, 50)
	CALL SHOW_REASONWALL(이루어무너뜨려필요치 , 50)
	;실패
	IF CFLAG:ARG:합의판정 <= 이루어무너뜨려필요치
		GOTO GOOUT
	;성공
	ELSE
		CALL KOJO_MESSAGE_SEND("EVENT", 26, ARG, 2,0)
		;말체크
		TRYCCALLFORM M_KOJO_EVENT_K{NO:ARG}_ONABARE_2(LOCAL:2)
		CATCH
			PRINTFORM 잠시
			IF TALENT:ARG:연모
				PRINTFORM 기쁨과 당황스러움을 나타내
			;심약계, 진면목계
			ELSEIF CFLAG:ARG:성격경향 == 1 || CFLAG:ARG:성격경향 == 4
				PRINTFORM 머뭇머뭇 쑥스러운 듯하
			;강경세계, 솔직함계, 그 외
			ELSEIF CFLAG:ARG:성격경향 == 2 || CFLAG:ARG:성격경향 == 3 || CFLAG:ARG:성격경향 == 5
				PRINTFORM 어이없다는 듯 난처한 듯한 표정을 짓
			ENDIF
			PRINTFORML 고 있던 %조사처리(CALLNAME:ARG,"는")%, 작게 한숨을 쉬었다
			IF TALENT:ARG:연인
				PRINTFORML 양어께의 피부에 옷을 벗어던지고, %마스터를% 정면으로 마주하며 크게 다리를 벌렸다
			;심약계, 진면목계
			ELSEIF CFLAG:ARG:성격경향 == 1 || CFLAG:ARG:성격경향 == 4
				PRINTFORML 부끄러운 듯이 옷만 조금 풀어헤쳤을 뿐, 다리는 여전히 닫혀 있다
			;강경세계, 솔직함계, 그 외
			ELSEIF CFLAG:ARG:성격경향 == 2 || CFLAG:ARG:성격경향 == 3 || CFLAG:ARG:성격경향 == 5
				PRINTFORML 옷을 벗으면서, 그래도 중요한 부분은 손으로 가리고 있다
			ENDIF
			PRINTFORML 그런, %CALLNAME:ARG%에게, 계속을 재촉하는 %CALLNAME:MASTER%
			PRINTFORMW 작게 한숨을 내쉰 %조사처리(CALLNAME:ARG,"가")% 천천히, 손을 움직이기 시작했다

			PRINTFORML 찌꺽찌꺽하며 소리를 내며 \@ !LOCAL:2 ? 질구 # 항문 \@에 파묻히는 가운데 손가락
			;큰 가슴
			IF TALENT:가슴사이즈 > 0
				PRINTFORML 폭신부들 손가락이 파묻혀 모양을 바꾸는 젖가슴
			;있고
			ELSEIF TALENT:가슴사이즈 < 0
				PRINTFORML 빙글빙글 손가락 끝에 문지러 세워지는 젖꼭지
			;보통
			ELSE
				PRINTFORML 폭신폭신 손으로 흔들리고 있는 젖가슴
			ENDIF
			PRINTFORMW 그 선정적인 광경을 더욱 음란하게 하는 달콤한 목소리가, 울리기 시작했다
			IF TALENT:ARG:연인
				PRINTFORML 넉살좋게, %CALLNAME:MASTER%의 이름을 부르면서, 격렬하게 손가락을 움직이기 시작했다
				PRINTFORML 끈적 끈적하게, 위와 아래 입에서 침을 흘리고, 황홀한 표정을 지어오는 %CALLNAME:ARG%
				PRINTFORMW 꿀꺽하고 침을 삼키는 %CALLNAME:MASTER%
				PRINTFORML 서서히 가슴을 주무르는 손과, \@ !LOCAL:2 ? 질구 # 항문 \@에 물려진 손가락의 움직임이 빨라져 간다
				PRINTFORMW 그리고, %CALLNAME:MASTER%의 이름을 부르면서, 온몸을 떨며 절정했다
			;심약계, 진면목계
			ELSEIF CFLAG:ARG:성격경향 == 1 || CFLAG:ARG:성격경향 == 4
				PRINTFORML 부끄러운 듯, 가슴과 \@ !LOCAL:2 ? 비소 # 아누스 \@를 만지작거리는 %CALLNAME:ARG%
				PRINTFORML 하지만, 희미하게 혈색이 좋아지는 피부에, 눈에 보여져 날카로워지는 젖꼭지에, 열락이 엿보인다
				PRINTFORMW 점점 목소리가 커지고, 조금씩 다리가 벌어진다
				PRINTFORML %CALLNAME:MASTER%의 시선을 눈치채지 못한 듯, 조심스럽지만 감출 수 없을 정도로 다리가 벌어졌다
				PRINTFORML 주르륵, 애액이 늘어지고, 동시에, 움찔하고 허벅지가 경련한다
				PRINTFORMW 너무나 갑작스럽게 애액을 뿜으면서, %조사처리(CALLNAME:ARG,"는")% 끝에 다다랐다
			;강경세계, 솔직함계, 그 외
			ELSEIF CFLAG:ARG:성격경향 == 2 || CFLAG:ARG:성격경향 == 3 || CFLAG:ARG:성격경향 == 5
				PRINTFORML 손을 댈까하고 접근하는 %CALLNAME:MASTER%에게, 보여주기만 한다는 다짐을 해 두는 %CALLNAME:ARG%
				PRINTFORML 가슴을 만지작거리며, 찌꺽 찌꺽 음란한 소리를 내며, \@ !LOCAL:2 ? 비소 # 아누스 \@를 만지작거리고 있다
				PRINTFORMW 이쪽의, 불만스러운 모습을 눈치챘는지, 한숨을 내쉰 %조사처리(CALLNAME:ARG,"가")% 크게 다리를 벌렸다
				PRINTFORML 줄줄 흐르는 애액과, 팽팽하게 날카로워진 클리토리스는 선정적이고
				PRINTFORML 이쪽의 시선을 느끼고 있는지, %CALLNAME:ARG%의 손가락 움직임이 빨라져 간다
				PRINTFORMW 갑자기, \@ !LOCAL:2 ? 질 속 # 항문 속 \@ 깊이 손가락을 찌르고, %조사처리(CALLNAME:ARG,"가")% 달했다
			ENDIF
		ENDCATCH
	ENDIF
	PRINTFORML 실룩실룩, 팔딱팔딱, 허벅지를 경련시켜, 온몸을 진동시키는 %CALLNAME:ARG%
	IF CFLAG:MASTER:311 == CFLAG:ARG:311
		PRINTFORML %마스터는% 탈진한 그녀에게 이불을 덮고 잠자리에 들었다
	ELSE
		PRINTFORML 축 늘어진 그 모습에, 과연 손대기 꺼려진 %마스터는% 그대로 돌아가기로 했다
		IF !CFLAG:ARG:노팬티 && EQUIP:ARG:하반신속옷2 && CFLAG:MASTER:데이트중 != MAIN_MAP
			PRINTFORML 모처럼의 기회이니, 선물을 받아 가시겠습니까?
			CALL ASK_YN
			IF !RESULT
				PRINTFORML 돌아갈 때, %마스터는% %CALLNAME:ARG%의 %조사처리(PANTSNAME(EQUIP:ARG:하반신속옷2, ARG),"를")% 주워 품에 넣었다
				CALL PANTS_GET(ARG)
			ENDIF
		ENDIF
	ENDIF
	CFLAG:ARG:딸딸이들킴 = 3
	부디그대로호감도상승치 = ABL:ARG:친밀 * CFLAG:ARG:욕구불만도 / 250 * MIN(ABL:ARG:노출벽, 10)
	CALL CHANGE_CFLAG(2, ARG, 부디그대로호감도상승치)
	CALL CHANGE_CFLAG(4, ARG, 부디그대로호감도상승치 * -1 / 20)
	CALL JUEL_UP_SPECIAL(ARG,"치정","자위중독", 30,1)
	CALL JUEL_UP_SPECIAL(ARG,"욕정","자위중독", 30,1)
	CALL ADD_EXP_LESNIAN(CFLAG:ARG:욕구불만도 / 100, ARG, "PRINT")
	EXP:ARG:노출쾌락경험 += CFLAG:ARG:욕구불만도 / 200 * ABL:ARG:노출벽
	EXP:ARG:자위경험 +=  CFLAG:ARG:욕구불만도 / 200 * ABL:ARG:노출벽
	TIME += 27
ELSEIF RESULT == 2
	이루어무너뜨려필요치 = 껴안고필요치(ARG) - 150 + TALENT:ARG:수치심 * 30 - CFLAG:ARG:욕구불만도 / 20
	SIF  TALENT:ARG:자존심 > 0
		이루어무너뜨려필요치 += 50
	SIF CFLAG:ARG:기정사실 & 합의_우후후
		이루어무너뜨려필요치 -= 50
	SIF TALENT:ARG:담력 < 0
		이루어무너뜨려필요치 -= 200
	CALL SHOW_LOVEPOWER(CFLAG:ARG:합의판정, 50)
	CALL SHOW_REASONWALL(이루어무너뜨려필요치 , 50)
	$ GOOUT
	IF CFLAG:ARG:합의판정 <= 이루어무너뜨려필요치
		PRINTFORML %조사처리(CALLNAME:ARG,"는")% 알 수 없는 것을 마구 소리쳐 %마스터를% 내쫓았다
		CALL KOJO_MESSAGE_SEND("EVENT", 26, ARG, 3,0)
		SIF !CFLAG:ARG:약점잡힘
			PRINTFORML %CALLNAME:ARG%의【약점】을 잡았다
		CALL GET_ANGRY(ARG, 1)
		CFLAG:ARG:딸딸이들킴 = 1
		CFLAG:ARG:약점잡힘 = 1
		TIME += 5
	ELSE
		CALL NASIKUZUSI(ARG, LOCAL:2)
		CFLAG:ARG:대주고말았다 = 1
	ENDIF
ENDIF
TARGET = TARGET보존

@NASIKUZUSI(ARG, ARG:1)
#DIM 전희1
;1=C 2=B 3=M
#DIM 전희2
#DIM 실전은어느쪽인가
#DIM 주입량
#DIM 기본주입량
#DIM 호감도상승량
#DIM 신뢰저하량
#DIM 회수
#DIM 경험증가수, 58
;0이라면 V, 1이라면 A
VARSET 경험증가수
CALL KOJO_MESSAGE_SEND("EVENT", 26, ARG, 4,0)
회수 = MAX(MIN(ABL:ARG:욕망 / 2, 5) + CFLAG:ARG:욕구불만도 / 200,1)
주입량 = 0
IF TALENT:ARG:키스미경험
	전희1 = 3
	경험증가수:4 += 3 + ABL:ARG:M감각 * 2
	경험증가수:25 = 경험증가수:4
	경험증가수:27 = 경험증가수:4
	EXP:MASTER:M경험 += 경험증가수:4
	EXP:MASTER:키스경험 += 경험증가수:4
	EXP:MASTER:펠라티오경험 += 경험증가수:4
ELSEIF !RAND:3
	전희1 = 3
	경험증가수:4 += 3 + ABL:ARG:M감각 * 2
	경험증가수:27 = 경험증가수:4
ELSEIF ABL:ARG:C감각 >= ABL:ARG:B감각
	전희1 = 1
	경험증가수:0 += RAND:(회수 * 2)
	경험증가수:5 += 경험증가수:0 / 2
	경험증가수:10 += 경험증가수:0 / 2
ELSE
	전희1 = 2
	경험증가수:3 += RAND:(회수 * 2)
	경험증가수:8 += 경험증가수:3 / 2
	경험증가수:10 += 경험증가수:0 / 2
ENDIF
전희2 = RAND:3
실전은어느쪽인가 = ARG:1

SIF 실전은어느쪽인가 == 1
	전희2 += 10
IF 실전은어느쪽인가
	기본주입량 = (ABL:ARG:애널 + 1) * 20 + BASE:MASTER:정력 /25
	경험증가수:21 += 회수
	경험증가수:17 += 회수
	경험증가수:10 += 회수
	경험증가수:7 += 2 * 회수
	경험증가수:2 += 회수 * 2
	EXP:MASTER:삽입경험 += 회수
	MAXBASE:MASTER:정력 += 회수*3;;정력증가
	EXP:MASTER:사정경험 += 회수
	EXP:MASTER:절정경험 += 회수

ELSE
	기본주입량 = (ABL:ARG:질 + 1) * 20 + BASE:MASTER:정력 / 25
	SIF TALENT:ARG:처녀 == 1
		기본주입량 += 100
	경험증가수:20 += 회수
	경험증가수:16 += 회수
	경험증가수:10 += 2 * 회수
	경험증가수:6 += 2 * 회수
	경험증가수:1 += 2 * 회수
	MAXBASE:MASTER:정력 += 회수*3;;정력증가
	EXP:MASTER:삽입경험 += 회수
	EXP:MASTER:사정경험 += 회수
	EXP:MASTER:절정경험 += 회수
ENDIF

FOR LOCAL, 1, 회수
	주입량 += 기본주입량 + RAND:(기본주입량)
NEXT

주입량 = MIN(주입량, BASE:MASTER:정력)

IF !실전은어느쪽인가
	CALL ADD_SAMEN_V(ARG, 주입량)
ELSE
	CALL ADD_SAMEN_A(ARG, 주입량)
ENDIF

;말체크
TRYCCALLFORM M_KOJO_EVENT_K{NO:ARG}_ONABARE_3(전희1, 실전은어느쪽인가, 회수, 주입량)
CATCH
	;이하 Default 지문
	PRINTFORML %마스터는% 동요하는 %조사처리(CALLNAME:ARG,"를")% 뒷전으로 뒷문을 닫아 거침없이 들어가 앉아,
	PRINTFORMW %조사처리(CALLNAME:ARG,"를")% 껴안고 무슨 생각을 하며 하고 있었는지 물었다
	PRINTFORM 그리고 그녀가 원했던 대로,

	SELECTCASE 전희1
		CASE 1
			PRINTDATA
				DATAFORM 클리토리스를 손끝으로 집으며
				DATAFORM 클리토리스를 손가락 끝으로 튕기며
				DATAFORM 음핵을 손가락끝으로 만지작 거리며
				DATAFORM 음핵을 핥으며
			ENDDATA
		CASE 2
			PRINTDATA
				DATAFORM 유두를 손가락으로 집으며
				DATAFORM 가슴을 애무하며
				DATAFORM 유방을 손으로 문질러 비비며
				DATAFORM 유두를 혀로 굴리며
				DATAFORM 유두를 살짝 깨물며
			ENDDATA
		CASE 3
			PRINTDATA
				DATAFORM 머리카락을 쓰다듬고 나서
				DATAFORM 살며시
				DATAFORM 정열적으로
			ENDDATA
	ENDSELECT
	IF 전희1 == 3
		IF TALENT:ARG:키스미경험
			PRINTFORM 첫 키스를 빼앗으며
		ELSE
			PRINTFORM 입을 맞추며
		ENDIF
	ENDIF
	PRINT ,

	SELECTCASE 전희2
		CASE 0
			PRINTFORM 음순 주위를 어루만지며
		CASE 1
			PRINTFORM 질구에 얕게 손가락을 삽입하여
		CASE 2
			PRINTFORM 질구를 혀로 쑤시며
		CASE 10
			PRINTFORM 엉덩이를 차분히 주물러 만지며
		CASE 11
			PRINTFORM 항문 주위를 어루만지며
		CASE 12
			PRINTFORM 항문에 얕게 손가락을 삽입하여
	ENDSELECT
	PRINT ,

	PRINTDATA
		DATAFORM 실컷 애태워 주었다
		DATAFORM 철저히 가게 해 주었다
		DATAFORM 추잡한 말로 괴롭혔다
	ENDDATA
	PRINTW
	PRINTFORM 그리고 %TEXTR("네발로 엎드리게 해서 등뒤에서 짐승처럼 덮고/정면으로 껴안고/굴곡위 자세를 잡게 하고/정면으로 껴안고")%
	PRINTDATA
		DATAFORM 달콤한 말을 속삭이며
		DATAFORM 상냥하게
		DATAFORM 난폭하게
		DATAFORM 끈적끈적
	ENDDATA

	IF TALENT:ARG:처녀 && !실전은어느쪽인가
		PRINTFORM 순결을 빼앗아,
	ELSE
		PRINTFORM {회수}번 %TEXTR("범해/성교해/꿰뚫어")%,
	ENDIF
	PRINTFORMW \@실전은어느쪽인가 ? 애널# 질\@에 {주입량}의 정액을 쏟아 부었다……

	;이상 Default 지문
ENDCATCH

IF 전희1 == 3
	SIF TALENT:MASTER:키스미경험
		CALL SET_FIRSTKISS(MASTER, ARG, 2)
	SIF TALENT:ARG:키스미경험
		CALL SET_FIRSTKISS(ARG, MASTER, 2, "흘러가는 대로")
ENDIF
IF TALENT:ARG:처녀 == -1 && !실전은어느쪽인가
	SETCOLOR 247,171,166
	PRINTFORMW 【무자각비처녀상실】
	TALENT:ARG:처녀 = 0
ENDIF
IF TALENT:ARG:처녀 == 1 && !실전은어느쪽인가
	SETCOLOR 247,171,166
	PRINTFORMW 【처녀상실】
	CALL SET_HISTORY_LOST_V(ARG, MASTER, "페니스", "자기 방", "흘러가는 대로")
ENDIF
IF !CFLAG:ARG:애널처녀상실기념일 && 실전은어느쪽인가
	SETCOLOR 247,171,166
	PRINTFORMW 【애널 처녀상실】
	CALL SET_HISTORY_LOST_A(ARG, MASTER, "페니스", "자기 방", "흘러가는 대로")
ENDIF
SETCOLOR C_YELLOW
FOR LOCAL, 0,58
	IF 경험증가수:LOCAL
		PRINTFORML %EXPNAME:LOCAL% ＋{경험증가수:LOCAL}
		EXP:ARG:LOCAL += 경험증가수:LOCAL
	ENDIF
NEXT
RESETCOLOR
CALL JUEL_UP_SPECIAL(ARG,"욕정","욕망", 20,1)
SELECTCASE 전희1
;C
	CASE 1
		CALL JUEL_UP_SPECIAL(ARG,"쾌C","C감각", 10,1)
;B
	CASE 2
		CALL JUEL_UP_SPECIAL(ARG,"쾌B","B감각", 10,1)
;M
	CASE 3
		CALL JUEL_UP_SPECIAL(ARG,"쾌M","M감각", 20,1)
ENDSELECT
IF 실전은어느쪽인가
	CALL JUEL_UP_SPECIAL(ARG,"쾌A","A감각", 15,1)
ELSEIF TCVAR:ARG:파과
	CALL JUEL_UP_SPECIAL(ARG,"쾌V","V감각", 100,1)
ELSE
	CALL JUEL_UP_SPECIAL(ARG,"쾌V","V감각", 15,1)
ENDIF
CALL ADD_EXP_LESNIAN(회수 * 5, ARG, "PRINT")
PRINTFORMW …
PRINTFORMW ……
PRINTFORMW ………

CALL KOJO_MESSAGE_SEND("EVENT", 26, ARG, 5,0)
TIME += 회수 * 20
EXP:MASTER:청소경험 ++
DOWNBASE:MASTER:체력 = 회수 * 100
DOWNBASE:MASTER:기력 = 회수 * 150
호감도상승량 = 회수 * ABL:ARG:친밀 * 5
신뢰저하량 = 호감도상승량 / 5
SIF TALENT:ARG:사모
	신뢰저하량 /= 2
SIF TALENT:ARG:섹프
	신뢰저하량 /= 2
SIF TALENT:ARG:연모
	신뢰저하량 /= 4

CALL CHANGE_CFLAG(2, ARG, 호감도상승량)
CALL CHANGE_CFLAG(4, ARG, 신뢰저하량 * -1)
CFLAG:ARG:욕구불만도 = 0
TCVAR:ARG:파과 = 0

IF TALENT:ARG:연모 && CFLAG:MASTER:데이트중 != MAIN_MAP
	PRINTFORML 행위를 끝낸 %마스터는% 일어서려고 했지만, %조사처리(CALLNAME:ARG,"는")% 아직 함께 있어주길 바라는 것 같다……
	CALL ASK_YN("그래도 돌아간다","묵고 갈까")
	IF !RESULT
		GOTO BYEBYE
	ELSE
		CALL KOJO_MESSAGE_SEND("EVENT", 26, ARG, 6)
		;초대 플래그에 ARG를 대입
		CFLAG:ARG:초대 = ARG
		CFLAG:MASTER:초대 = ARG
		;초기위치를 OMANEKIBEYA()=98로 한다
		CFLAG:ARG:초기위치 = OMANEKIBEYA()
		;이동시킨다
		CFLAG:ARG:현재위치 = OMANEKIBEYA()
		CFLAG:MASTER:현재위치 = OMANEKIBEYA()
		IF NEMUKE() < 720 && BASE
			PRINTFORML %마스터는% 오늘 하루 %CALLNAME:ARG%의 방에서 보내기로 했다
			PRINTFORML 잠시 같이 자고, 일어나고, 청소하고, 는실난실 거리고, 식사를 만들어 먹고,
			PRINTFORMW 또 는실난실 거리고, 섹스하고 잤다
			VARSET 경험증가수
			IF 실전은어느쪽인가
				주입량 = ABL:ARG:애널 * MIN(ABL:ARG:친밀, 15) * 10
				경험증가수:21 += MIN(ABL:ARG:친밀, 15)
				경험증가수:17 += MIN(ABL:ARG:친밀, 15)
				경험증가수:7 += MIN(ABL:ARG:친밀, 15) * 2
				경험증가수:2 += MIN(ABL:ARG:친밀, 15) * 2
			ELSE
				주입량 = ABL:ARG:질 * MIN(ABL:ARG:친밀, 15) * 10
				경험증가수:20 += MIN(ABL:ARG:친밀, 15)
				경험증가수:16 += MIN(ABL:ARG:친밀, 15)
				경험증가수:6 += 2 * MIN(ABL:ARG:친밀, 15)
				경험증가수:1 += 2 * MIN(ABL:ARG:친밀, 15)
			ENDIF
			경험증가수:41 =  MIN(ABL:ARG:친밀, 15) * 2
			주입량 = MIN(주입량, BASE:MASTER:정력)
			CALL JUEL_UP_SPECIAL(LOCAL,"욕정","욕망", 15)
			IF !실전은어느쪽인가
				CALL ADD_SAMEN_V(ARG, 주입량)
				CALL JUEL_UP_SPECIAL(ARG,"쾌V","V감각", 10,1)
			ELSE
				CALL ADD_SAMEN_A(ARG, 주입량)
				CALL JUEL_UP_SPECIAL(ARG,"쾌A","A감각", 10,1)
			ENDIF
			FOR LOCAL, 0,58
				IF 경험증가수:LOCAL
					PRINTFORML %EXPNAME:LOCAL% ＋{경험증가수:LOCAL}
					EXP:ARG:LOCAL += 경험증가수:LOCAL
				ENDIF
			NEXT
			CALL ADD_EXP_LESNIAN(ABL:ARG:친밀 * 2, ARG, "PRINT")
			호감도상승량 = ABL:ARG:친밀 * 10
			EXP:MASTER:청소경험 ++
			EXP:MASTER:요리경험 ++
			TIME += 720 - NEMUKE()
		ELSE
			PRINTFORML 졸려졌으므로, 그대로 %조사처리(CALLNAME:ARG,"와")% 같이 잤다
			CALL ADD_EXP_LESNIAN(ABL:ARG:친밀, ARG, "PRINT")
			호감도상승량 = ABL:ARG:친밀 * 5
		ENDIF
		CALL CHANGE_CFLAG(2, ARG, 호감도상승량)
		CFLAG:MASTER:취침시간 = DAY * 1440 + TIME
		BEGIN AFTERTRAIN
		RETURN 1
	ENDIF
ENDIF

;TW당신은 정리하지 않고서는  견딜 수 없다
$BYEBYE
SIF GETBIT(TALENT:MASTER:성별, 1)
	DOWNBASE:MASTER:정력 = 주입량
PRINTFORM 뒤처리를 한 %마스터는%, \@ 실전은어느쪽인가? 항문으로# 비렬로\@부터 \@TCVAR:ARG:파과 ? 파과혈이 섞인# \@ 백탁이 넘쳐흐르고 있는
PRINTFORML \@ TALENT:ARG:회복속도? 이쪽을 상기된 표정으로 바라보고 있는#멍하니 있는 \@ %CALLNAME:ARG%에게,

IF ABL:ARG:정액중독 >= (3 + 실전은어느쪽인가 * 2)
	PRINTFORML 청소해줬으니까 대신 이쪽을 깨끗하게 해달라며 입가에 \@TCVAR:ARG:파과 ? 그녀의 순결을 빼앗은 지 얼마 안 된 #국물 투성이의 \@ 페니스를 들이댔다
	PRINTFORMW %조사처리(CALLNAME:ARG,"는")% \@ TALENT:ARG:회복속도 > 0 ? 황홀해 하는 표정으로 정성스럽게#멍한 표정으로 \@ 정액을 핥고 있다……
	SETCOLOR C_YELLOW
	PRINTFORML 정음경험 ＋{ABL:ARG:정액중독}
	EXP:ARG:정음경험 += ABL:ARG:정액중독
	RESETCOLOR
	CALL JUEL_UP_SPECIAL(ARG,"굴복","정액중독", 5,1)
	PRINTFORM 완전히 만족한 %마스터는%,
ENDIF

PRINTFORMW \@ CFLAG:MASTER:데이트중 == MAIN_MAP? 잘자# 너무 좋았다, 다음은 %GET_MAPNAME(MAIN_MAP)%에서 하자\@라고 하며 \@ CFLAG:MASTER:311 == CFLAG:ARG:311 ? 잠에 들었다# 떠났다\@
CFLAG:ARG:딸딸이들킴 = 2
IF !CFLAG:ARG:노팬티 && CFLAG:MASTER:311 != CFLAG:ARG:311 && CFLAG:MASTER:데이트중 != MAIN_MAP && PANTSNAME(EQUIP:ARG:하반신속옷2, ARG) != "노팬티"
	PRINTFORML 모처럼의 기회이니, 선물을 받아 가시겠습니까?
	CALL ASK_YN
	IF !RESULT
		PRINTFORML 돌아갈 때, %마스터는% %CALLNAME:ARG%의 %조사처리(PANTSNAME(EQUIP:ARG:하반신속옷2, ARG),"를")% 주워 품에 넣었다
		CALL PANTS_GET(ARG)
	ENDIF
ENDIF


code:
;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE366
SIF !TFLAG:100
	RETURN 0
SIF TARGET <= 0
	RETURN 0
;시간정지/수면/동침/우후후 안은 불가
SIF SHIRAHU(TARGET) != 1
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(366)
	RETURN RESULT

SELECTCASE IRAI_CHARA_TO_PROGRESS(TARGET)
CASE "의뢰미수탁"
;빈슬롯이 없으면 불가
	SIF !SEARCH_IRAI_EMPTY()
		RETURN 0
;개개로 지정된 조건을 충족시키지 않을 때
	SIF !INT_DATA_IRAI(CFLAG:TARGET:의뢰내용, "의뢰 수탁 가능 조건", TARGET)
		RETURN 0
CASE "의뢰중"
;의뢰 확인/파기가 가능
CASE "의뢰 달성"
;성공 보고 가능
CASE "기한 마감", "보고 잊고", "의뢰 실패"
;실패 보고
CASE "의뢰 종료(성공)", "의뢰 종료(기한 마감)", "의뢰 종료( 보고 잊고)", "의뢰 종료(실패)"
;여기는 의뢰 플래그의 소멸 기다려 어째서 손대지 않는다
		RETURN 0
CASEELSE
		RETURN 0
ENDSELECT
RETURN 1

@COM366
SELECTCASE IRAI_CHARA_TO_PROGRESS(TARGET)
CASE "의뢰미수탁"
	CALL IRAI_START(TARGET)
	RETURN RESULT
CASE "의뢰중"
	CALL IRAI_LOOK(TARGET)
	RETURN RESULT
CASE "의뢰 달성", "기한 마감", "보고 잊고", "의뢰 실패"
	CALL IRAI_REPORT(TARGET)
	RETURN 1
ENDSELECT

;-------------------------------------------------
;의뢰 수탁
;-------------------------------------------------
@IRAI_START(CHARA)
#DIM CHARA
;의뢰 제시시
PRINTFORMW 아무래도 %CALLNAME:CHARA%는 %CALLNAME:MASTER%에 부탁일이 있는 것 같다
CALL SHOW_IRAI_MESSAGE(CHARA, CFLAG:CHARA:의뢰내용, "의뢰 제시시")
CALL SHOW_IRAI_DATA(CFLAG:CHARA:의뢰내용, 0)
CALL ASK_YN("의뢰를 받는다", "거절한다")
IF RESULT
	PRINTFORML %마스터는% 정중하게 거절했다
	CALL SHOW_IRAI_MESSAGE(CHARA, CFLAG:CHARA:의뢰내용, "의뢰비수탁시")
	PRINTFORMW %CALLNAME:CHARA%는 유감스러운 얼굴을 하고 있다
	RETURN -1
ELSE
	CALL SET_IRAI_SLOT(CHARA)
	PRINTFORML %마스터는% %CALLNAME:CHARA%의 의뢰를 받았다
	CALL SHOW_IRAI_MESSAGE(CHARA, CFLAG:CHARA:의뢰내용, "의뢰 수탁시")
	WAIT
	RETURN 1
ENDIF

;-------------------------------------------------
;의뢰 확인/파기
;-------------------------------------------------
@IRAI_LOOK(CHARA)
#DIM CHARA
#DIM CHK_SLOT
CHK_SLOT = SEARCH_IRAI_SLOT(CFLAG:CHARA:의뢰내용)
CALL SHOW_IRAI_MESSAGE(CHARA, CFLAG:CHARA:의뢰내용, "의뢰 확인시")
CALL SHOW_IRAI_DATA(CFLAG:CHARA:의뢰내용, CHK_SLOT)
CALL ASK_YN("확인", "파기")
SIF !RESULT
	RETURN -1
PRINTFORML 정말로?
CALL ASK_YN
SIF RESULT
	RETURN -1
CALL SHOW_IRAI_MESSAGE(CHARA, CFLAG:CHARA:의뢰내용, "의뢰 파기시")
PRINTFORMW 의뢰를 파기했습니다.
CALL CLEAR_IRAI_SLOT(CHARA, CHK_SLOT, "의뢰 종료(실패)")

;-------------------------------------------------
;의뢰 보고
;-------------------------------------------------
@IRAI_REPORT(CHARA)
#DIM CHARA
#DIM CHK_SLOT
CHK_SLOT = SEARCH_IRAI_SLOT(CFLAG:CHARA:의뢰내용)
;의뢰 성공시
;의뢰 실패시
SELECTCASE IRAI_CHARA_TO_PROGRESS(CHARA)
CASE "의뢰 달성"
	CALL SHOW_IRAI_MESSAGE(CHARA, CFLAG:CHARA:의뢰내용, "성공 보고시")
	CALL IRAI_CARRYOUT(CHARA, CFLAG:CHARA:의뢰내용, "의뢰 성공시")
CASE "기한 마감", "보고 잊고", "의뢰 실패"
	CALL SHOW_IRAI_MESSAGE(CHARA, CFLAG:CHARA:의뢰내용, "실패 보고시")
	CALL IRAI_CARRYOUT(CHARA, CFLAG:CHARA:의뢰내용, "의뢰 실패시")
ENDSELECT

SELECTCASE IRAI_CHARA_TO_PROGRESS(CHARA)
CASE "의뢰 달성"
	CALL CLEAR_IRAI_SLOT(CHARA, CHK_SLOT, "의뢰 종료(성공)")
CASE "기한 마감"
	CALL CLEAR_IRAI_SLOT(CHARA, CHK_SLOT, "의뢰 종료(기한 마감)")
CASE "보고 잊고"
	CALL CLEAR_IRAI_SLOT(CHARA, CHK_SLOT, "의뢰 종료( 보고 잊고)")
CASE "의뢰 실패"
	CALL CLEAR_IRAI_SLOT(CHARA, CHK_SLOT, "의뢰 종료(실패)")
ENDSELECT

path: ERB/커맨드관련/COMF/의뢰/COMF366 의뢰듣기_t.ERB


code:
;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE367
SIF !TFLAG:100
	RETURN 0
SIF !SEARCH_ACTIVE_IRAI_SLOT()
	RETURN 0
RETURN 1

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

;-------------------------------------------------
;의뢰실행 처리를 슬롯 지정으로 했다
;반드시 CAN_IRAI_SLOT_DO(CHK_SLOT)를 씹게 하고 나서 실행하지 않으면 소안내가 됩니다
;@COM367는 SEARCH_ACTIVE_IRAI_SLOT()로 판정이 끝난 상태이므로 좋아
;-------------------------------------------------
@IRAI_APPLY(CHK_SLOT)
#DIM CHK_SLOT
#DIM IRAI_RESULT
#DIM CLIENT_ID
CLIENT_ID = IRAI_SLOT_TO_CLIENT(CHK_SLOT)
CALL SHOW_IRAI_MESSAGE(TARGET, IRAI_SLOT:CHK_SLOT, "의뢰실행 직전")
CALL IRAI_CARRYOUT(TARGET, IRAI_SLOT:CHK_SLOT, "의뢰실행시")
IRAI_RESULT = RESULT
;여기서 설정하지 않으면 실행 직후의 메시지로 성공 실패의 판별이 되지 않기 때문에 어쩔 수 없이
SELECTCASE IRAI_RESULT
CASE IRAI_CONST_RESULT("캔슬")
	;여기는―1이 돌아간다
	;이외는 실행 처리를 했을 것이므로 모두 1이상을 돌려준다
	RETURN IRAI_RESULT
CASE IRAI_CONST_RESULT("실행해 성공")
	CALL SET_IRAI_PROGRESS(CLIENT_ID, "의뢰 달성")
CASE IRAI_CONST_RESULT("실행해 실패")
	CALL SET_IRAI_PROGRESS(CLIENT_ID, "의뢰 실패")
CASE IRAI_CONST_RESULT("실행해 미해결")
ENDSELECT
CALL SHOW_IRAI_MESSAGE(TARGET, IRAI_SLOT:CHK_SLOT, "의뢰실행 직후")

;우선 시간경과
SIF !FLAG:70
	TIME += 5

;성공 여부가 미해결이라면 패스
IF !GROUPMATCH(IRAI_RESULT, IRAI_CONST_RESULT("실행해 성공"), IRAI_CONST_RESULT("실행해 실패"))
;성공 여부가 확정해, TARGET가 의뢰자이다
ELSEIF TARGET == CLIENT_ID
	CALL COM366
;성공 여부가 확정해, TARGET가 의뢰자가 아니다
ELSE
	;의뢰 완료(보고하지 않으면 실패 취급)
	PRINTFORMW 잊지 않고 %CALLNAME:CLIENT_ID%에 보고하자
ENDIF
RETURN 1

path: ERB/커맨드관련/COMF/의뢰/COMF367 의뢰실행_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_1 어깨안마_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_10 니토리오이_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_14 히나에게감주_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_2 분실물_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_3 스이카에게술_t.ERB


code:
[SKIPSTART]
;--------------------------------------------
;기본 조건 여러 가지(5)
;--------------------------------------------
@IRAI_SETTING_4

IRAI_SETTING_DEADLINE:4 = 8
IRAI_SETTING_TARGET:4 = 29
IRAI_SETTING_CLIENT:4 = 29

IRAI_SETTING_COMMANDNAME:4 = 술을 건네준다

;--------------------------------------------
;의뢰 발생시의 메시지
;--------------------------------------------
@IRAI_INITIALMESSAGE_4
PRINTFORML 「술을 갖고 싶네요」
PRINTFORML 「어떤 것이라도 좋으니까, 3개(살) 정도 가져와 주세요」
PRINTFORML 「사례는 활기를 띠어요, 어때요?」
PRINTFORML 의뢰내용：술을 3개 이상 납입한다
PRINTFORML 보수　　：\\5000

;--------------------------------------------
;의뢰실행시의 메시지나 소스등의 처리
;--------------------------------------------
@IRAI_CARRYOUT_4
PRINTL 어떤 것을 건네줄까?
CALL 술일람표시(3)
IF RESULT >= 51 && RESULT <= 53
	PRINTFORMW %마스터는% %CALLNAME:TARGET%에 술을 건네주었다
	ITEM:RESULT -= 3
	;TFLAG에 건네준 술번호를 보존. 보수등을 분기 시키고 싶은 경우에.
	TFLAG:194 = RESULT
ELSE
	RETURN -1
ENDIF

;--------------------------------------------
;의뢰 실패시의 메시지나 소스등의 처리
;--------------------------------------------
@IRAI_FAILED_4
IF TALENT:29:연모
	PRINTFORML 「아야야, 조금 늦었습니다. 미안해요 저기, %CALLNAME:MASTER% 씨」
ELSE
	PRINTFORML 「죄송합니다만, 조금 늦었지요」
ENDIF
;시스템 메시지 다하고 호감도 변화
;마지막 인수만 호감도가 변화
CALL CHANGE_CFLAG(2, TARGET,-20)

;시스템 메시지 다하고 신뢰도 변화
;마지막 인수만 신뢰도가 변화
CALL CHANGE_CFLAG(4, TARGET,-10)
;--------------------------------------------
;의뢰 달성 때의 메시지나 소스등의 처리
;--------------------------------------------
@IRAI_SUCCESS_4
IF TALENT:29:연모
	PRINTFORML 「고마워요, %CALLNAME:MASTER% 씨♪」
ELSE
	PRINTFORML 「아, 감사합니다」
ENDIF
CALL KIGEN_CHANGE(TARGET, 100,1)
SOURCE:TARGET:환락 += 2000
;시스템 메시지 다하고 호감도 변화
;마지막 인수만 호감도가 변화
CALL CHANGE_CFLAG(2, TARGET, 30)

;시스템 메시지 다하고 신뢰도 변화
;마지막 인수만 신뢰도가 변화
CALL CHANGE_CFLAG(4, TARGET, 10)

MONEY += 5000
;--------------------------------------------
;의뢰실행 조건
;--------------------------------------------
@IRAI_ACTABLE_4
SIF SHIRAHU(TARGET) == 1 && (ITEM:51 >= 3 || ITEM:52 >= 3 || ITEM:53 >= 3)
	RETURN 1

;--------------------------------------------
;의뢰 발생 조건
;--------------------------------------------
@IRAI_HAPPEN_4
SIF !RAND:5
	RETURN 1

;--------------------------------------------
;의뢰 소멸 조건
;--------------------------------------------
@IRAI_VANISH_4
SIF !RAND:3
	RETURN 1
[SKIPEND]

path: ERB/커맨드관련/COMF/의뢰/IRAI_4 아야에게술_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_5 연회용술_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_6 대요정아이스_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_7 ⑨와논다_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_8 메이린에게먹거리_t.ERB


path: ERB/커맨드관련/COMF/의뢰/IRAI_9 카리스마고갈_t.ERB


code:
;오브젝트 본체
;여기서 ARG로 건네받는 것은 IRAI_SLOT의 내용(의뢰 ID + 의뢰자 등록 번호 * 1000)입니다
;함수명의@고유의뢰X의 X는 캐릭터 번호(레이무의 의뢰)군요
;진한 개는@EXIST 함수 불필요해 좋아(로 한다)
;상류, 캐릭터데이터측에서 의뢰 ID의 범위를 기술하는 것이 존부의 확인을 겸한다
;함수명 etc를 미스도 참 에러 토해 주고 알겠지
@고유의뢰1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：어깨 안마
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "어깨 안마")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "레이무가 어깨를 안마한다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, "녹즙")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "어깨를 안마한다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	;발생시는 아니고 수탁시에 확정합니다
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
	;소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT

;ID102：마리사의 분실물
CASE 102
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "마리사의 분실물")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "마리사에 분실물을 보낸다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "의뢰 보고 불필요"
		CALLF MAKE_STR(V_NAME, "보고 불필요(보수 수리에는 보고 필수)")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "분실물을 보낸다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(11, "전령(인물)"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
		CALLF MAKE_INT(V_NAME, 7)
	;발생시는 아니고 수탁시에 확정합니다
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		SIF GET_MAPID(CFLAG:11:현재위치) != 0 && CAN_MEET(11)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367/@CAN_IRAI_SLOT_DO도 확인
	;소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT

;ID103：연회용의 술
CASE 103
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "연회용의 술")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "술의 납입(10개)")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, "연회규모 업")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "술을 건네준다")

	;대상의 ITEM_ID가 선택 가능해서 우선 작업 분류에
	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	;발생시는 아니고 수탁시에 확정합니다
	CASE "의뢰 발생율"
	;조건을 채우는 것이 드물다고 생각하므로 조금 비싸게 합시다
		CALLF MAKE_INT(V_NAME, 100)
	CASE "의뢰 발생 조건"
		SIF FLAG:연회개최플래그 == 1
			CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		SIF MAX(ITEM:51, ITEM:52, ITEM:53) >= 10
			CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
		SIF FLAG:연회개최플래그 == 1 && !DAY % 7
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 열매 처리용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유1(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "어깨 안마"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;의뢰실행시에는 RESULT가 의미를 가집니다
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	;
	;·실행시/성공 보고/실패 보고로 지문을 붙일 때는 모두 마지막에 WAIT 붙이는 편이 좋다
	;·다만, @CHANGE_CFLAG를 사용하면(자) 함수측에서 PRINTFORMW 해 WAIT가 들어간다
		SOURCE:환락 = 1000
		SOURCE:사랑 = 300
		SOURCE:노출 = 20
		DOWNBASE:기력 += 50
		DOWNBASE:MASTER:기력 += 50
		PRINTFORMW %마스터는% %CALLNAME:TARGET%의 어깨를 비볐다
		;이것은 추가의 10분
		TIME += 10
		;4할의 확률 그렇지만과 해!분기
		IF RAND:100 < 60
			RETURN IRAI_CONST_RESULT("실행해 미해결")
		ELSE
			RETURN IRAI_CONST_RESULT("실행해 성공")
		ENDIF
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		SOURCE:환락 += 1000
		CALL CHANGE_CFLAG(2, 1, 20)
		CALL CHANGE_CFLAG(4, 1, 5)
		CALL GET_ITEM(GETNUM(ITEM, "녹즙"), 1, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		CALL CHANGE_CFLAG(2, 1, -5)
		CALL CHANGE_CFLAG(4, 1, -3)
	ENDSELECT

CASE "마리사의 분실물"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	CASE "의뢰실행시"
		SOURCE:환락 = 500
		PRINTFORMW %마스터는% %CALLNAME:11%에 분실물을 보냈다
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, 11, 20)
		CALL CHANGE_CFLAG(4, 11, 10)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
		SOURCE:TARGET:환락 += 1000
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 10)
		CALL GET_MONEY_YEN(500, 2)
	CASE "의뢰 실패시"
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

CASE "연회용의 술"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	CASE "의뢰실행시"
		PRINTL 어떤 것을 건네줄까?
		CALL 술일람표시(10)
		IF INRANGE(RESULT, 51, 53)
			PRINTFORMW %마스터는% %CALLNAME:TARGET%에 술을 건네주었다
			ITEM:RESULT -= 10
			FLAG:연회차입 = RESULT
			RETURN IRAI_CONST_RESULT("실행해 성공")
		ELSE
			RETURN IRAI_CONST_RESULT("캔슬")
		ENDIF
	CASE "의뢰 성공시"
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 50)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 20)
	CASE "의뢰 실패시"
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, -30)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

ENDSELECT


code:
@고유의뢰10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：술을 인생 행로
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "술을 인생 행로")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "청주를 납입한다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\5000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "청주를 건네준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "청주"), "조달"))
	CASE "의뢰 서브"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰기한"
	;발생시는 아니고 수탁시에 확정합니다
		CALLF MAKE_INT(V_NAME, 5)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유10(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "술을 인생 행로"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		PRINTFORMW %마스터는% %CALLNAME:TARGET%에 술을 건네주었다
		ITEM:청주 --
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		SOURCE:TARGET:환락 += 2000
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 30)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 20)
		;기분을 자주(잘) 하는 처리를 넣어도 괜찮다
		TALENT:TARGET:기분 = LIMIT(TALENT:기분 + 1, -1, 1)
		CALL GET_MONEY_YEN(5000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, -50)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, -20)
		;기분을 악화시키는 처리를 넣어도 괜찮다
		TALENT:(TARGET):기분 = LIMIT(TALENT:(TARGET):기분 -1, -1, 1)
	ENDSELECT
ENDSELECT


code:
@고유의뢰13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：대 아이스크림
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "대 아이스크림")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "아이스크림을 6개(살) 납입한다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\3000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "아이스크림을 건네준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "아이스크림"), "조달"))
	CASE "의뢰 서브"
		CALLF MAKE_INT(V_NAME, 6)
	CASE "의뢰기한"
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		;치르노를 만날 수 있는 상태인 것
		SIF CAN_MEET(14)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유13(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "대 아이스크림"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		PRINTFORMW %마스터는% %CALLNAME:TARGET%에 아이스크림을 보냈다
		;아이스크림
		ITEM:213 -= 6
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		SOURCE:TARGET:환락 += 200
		SOURCE:TARGET:정복 += 300
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 5)
		CALL GET_MONEY_YEN(3000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@고유의뢰14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：아―！―！―！
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "아―！―！―！")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "함께 논다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, "좋은 것")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "놀이에 교제한다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		IF SHIRAHU(TARGET) != 1
		ELSE
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유14(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "아―！―！―！"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		SOURCE:환락 = 1500
		PRINTFORMW %마스터는% %타겟과% 캐치볼을 하는 일로 했다
		PRINTFORMW %타겟은% 시종 웃는 얼굴이었다
		PRINTL
		TIME += 20
		DOWNBASE:체력 = 150
		DOWNBASE:기력 = 100
		DOWNBASE:MASTER:체력 = 150
		DOWNBASE:MASTER:기력 = 100
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		TALENT:TARGET:기분 = LIMIT(TALENT:기분 + 1, -1, 1)
		CALL CHANGE_CFLAG(2, 14, 30)
		CALL CHANGE_CFLAG(4, 14, 15)
		CALL GET_ITEM(GETNUM(ITEM, "개구리"), 1, 1)
		PRINTFORMW ……이 개구리, 어떻게 하지?
	CASE "의뢰 실패시"
	;실패 보고시의 처리
	ENDSELECT
ENDSELECT


code:
@고유의뢰15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：메이링에 차입
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "메이링에 차입")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "메이링에 차입을 건네준다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "의뢰 보고 불필요"
		CALLF MAKE_STR(V_NAME, "보고 불필요(보고 없이 보수 수리 가능)")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "차입을 건네준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(58, "전령(인물)"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		SIF CAN_MEET(58)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유15(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "메이링에 차입"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		SOURCE:환락 = 500
		PRINTFORMW %마스터는% %CALLNAME:TARGET%에 %CALLNAME:15%의 차입을 건네주었다
		PRINTFORMW %타겟은% 기꺼이 받았다
		PRINTL
		CALL CHANGE_CFLAG(2, TARGET, 30)
		CALL CHANGE_CFLAG(4, TARGET, 15)
		TALENT:기분 = LIMIT(TALENT:기분 + 1, -1, 1)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		CALL CHANGE_CFLAG(2, TARGET, 20)
		CALL CHANGE_CFLAG(4, TARGET, 10)
		CALL GET_MONEY_YEN(1000, 2)
	CASE "의뢰 보고 불필요"
	;달성 후에 보고를 하지 않았던 경우, 다소 줄인다
		PRINTFORML 의뢰를 달성 한 %CALLNAME:MASTER%의 방에 %CALLNAME:CHARA%로부터의 답례\\1000가 닿았다
		CALL GET_MONEY_YEN(1000, 1)
		CALL CHANGE_CFLAG(2, CHARA, 15)
		CALL CHANGE_CFLAG(4, CHARA, 7)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
	ENDSELECT
ENDSELECT


code:
@고유의뢰23(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：카리스마 잘라라
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "카리스마 잘라라")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "100 카리스마 건네준다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\20000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "카리스마를 준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		SIF MONEY:2 >= 100
			CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유23(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "카리스마 잘라라"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		SOURCE:환락 = 3000
		CALL LOST_MONEY_CM(100, 2)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		MONEY += 20000
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 10)
		CALL GET_MONEY_YEN(20000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@고유의뢰29(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：술을 주세요
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "술을 주세요")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "술을 3개 이상 납입한다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\5000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "술을 건네준다")

	;의뢰 대상이 실행시로 결정하므로
	;우선 작업으로 해 CLIENT와의 동실 판정만 시켜
	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	;발생시는 아니고 수탁시에 확정합니다
		CALLF MAKE_INT(V_NAME, 8)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		SIF MAX(ITEM:51, ITEM:52, ITEM:53) >= 3
			CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID102：도시의 길거리 앙케이트
CASE 102
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "도시의 길거리 앙케이트")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "마을 광장에서의 탐문해")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\3000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "도시의 길거리 앙케이트")

	CASE "의뢰내용"
		;마을 중앙 광장(202)이 대상
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(202, "전령(장소)"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	;발생시는 아니고 수탁시에 확정합니다
		CALLF MAKE_INT(V_NAME, 7)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		IF FLAG:70
		ELSE
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유29(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "술을 주세요"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		PRINTL 어떤 것을 건네줄까?
		CALL 술일람표시(3)
		IF INRANGE(RESULT, 51, 53)
			PRINTFORML %마스터는% %CALLNAME:TARGET%에 술을 건네주었다
			;TFLAG에 건네준 술번호를 보존. 보수등을 분기 시키고 싶은 경우에.
			TFLAG:194 = RESULT
			CALL LOST_ITEM(RESULT, 3, 2)
			RETURN IRAI_CONST_RESULT("실행해 성공")
		ELSE
			RETURN IRAI_CONST_RESULT("캔슬")
		ENDIF
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		CALL KIGEN_CHANGE(TARGET, 100, 1)
		SOURCE:TARGET:환락 += 2000
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 30)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 10)
		CALL GET_MONEY_YEN(5000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

CASE "도시의 길거리 앙케이트"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		DOWNBASE:MASTER:기력 += 50
		PRINTFORMW %마스터는% 도교구마을 사람들을 잡아 앙케이트 조사를 행했다
		TIME += 120
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		CALL KIGEN_CHANGE(TARGET, 100, 1)
		SOURCE:TARGET:환락 = 1000
		SOURCE:TARGET:정복 = 500
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 30)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 15)
		CALL GET_MONEY_YEN(3000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@고유의뢰30(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：설교
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "설교")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "코마치에 에이키의 편지를 보낸다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "편지를 건네준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(76, "전령(인물)"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	;발생시는 아니고 수탁시에 확정합니다
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		SIF CAN_MEET(76)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
		;일의 요일이 아니다
		IF !GROUPMATCH(GET_DAY(), "월", "수", "금")
		;일의 시간대가 아니다
		ELSEIF !INRANGE(TIME / 60, 10, 15)
		;코마치가 삼도천에 있다
		ELSEIF CFLAG:76:현재위치 == 삼도천
		;상기의 조건을 빠졌을 경우, 땡땡이 인정으로 한다
		ELSE
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유30(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "설교"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		PRINTFORMW %마스터는% %CALLNAME:76%에 맡고 있던 편지를 전했다
		SOURCE:76:공포 = 100
		SOURCE:76:굴종 = 500
		CALL CHANGE_CFLAG(4, 76, 3)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 15)
		CALL GET_MONEY_YEN(1000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@고유의뢰49(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：참고 문헌
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "참고 문헌")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "책을 빌리고 온다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "책을 빌린다")
	CASE "의뢰 비고 표시"
		CALLF MAKE_STR(V_NAME, "마을의 대본소나 홍마관의 대도서관으로부터 책을 빌리고 오는 개야다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "그 외"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
		CALLF MAKE_INT(V_NAME, 7)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		SIF GROUPMATCH(CFLAG:MASTER:현재위치, GET_MAP_REPLACEMENT(213), GET_MAP_REPLACEMENT(310))
			CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID102：도서의 반환(마을)
CASE 102
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "도서의 반환(마을)")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "책을 돌려주어 온다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "책을 돌려준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(213, "전령(장소)"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
		CALLF MAKE_INT(V_NAME, 3)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID103：도서의 반환(홍마관)
CASE 103
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "도서의 반환(홍마관)")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "책을 돌려주어 온다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\500")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "책을 돌려준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(310, "전령(장소)"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
		CALLF MAKE_INT(V_NAME, 3)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유49(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
;나무!
CASE "참고 문헌", "도서의 반환(마을)", "도서의 반환(홍마관)"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		PRINTFORMW %마스터는% %CALLNAME:49%의 개야를 해냈다
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		CALL CHANGE_CFLAG(2, TARGET, 20)
		CALL CHANGE_CFLAG(4, TARGET, 10)
		CALL GET_MONEY_YEN(500, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@고유의뢰51(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：에 새와 큐 팔아
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "에 새와 큐 팔아")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "오이를 납입한다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "오이를 납입")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "오이"), "조달"))
	CASE "의뢰 서브"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰기한"
		CALLF MAKE_INT(V_NAME, 7)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
;ID102：-―
CASE 102
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "-―")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "연구개발용의 자금 기부(100 카리스마)")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, "조품(로터 1개)")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "자금 기부")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		SIF MONEY:2 >= 100
			CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유51(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "에 새와 큐 팔아"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		SOURCE:TARGET:환락 += 500
		PRINTFORML %마스터는% %CALLNAME:TARGET%에 오이를 납입했다
		CALL LOST_ITEM(GETNUM(ITEM, "오이"), 1, 2)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		CALL CHANGE_CFLAG(2, TARGET, 30)
		CALL CHANGE_CFLAG(4, TARGET, 20)
		TALENT:기분 = LIMIT(TALENT:기분 + 1, -1, 1)
		CALL GET_MONEY_YEN(1000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
		TALENT:기분 = LIMIT(TALENT:기분 - 1, -1, 1)
	ENDSELECT

CASE "-―"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		SOURCE:환락 = 1000
		PRINTFORML %마스터는% %CALLNAME:TARGET%에 카리스마를 기부했다
		CALL LOST_MONEY_CM(100, 2)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 10)
		PRINTFORML 조품의 로터를 받았다
		CALL GET_ITEM(GETNUM(ITEM, "로터"), 1, 2)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
@고유의뢰76(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：추석 진짜 괴롭다
;―, 환상 들어가지 않을 것이고 독자 해석의 덩어리이지만
;바쁜 것 같아라고 생각했던 것이다
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "추석 진짜 괴롭다")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "삼도의 와타리 마모루의 보좌를 한다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\5000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "코마치의 도움")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	;발생시는 아니고 수탁시에 확정합니다
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		SIF GET_MONTH() == "여름의 달" && INRANGE(DAY:3, 1, 15)
			CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
		;여름의 달의 전반을 추석 인정
		IF !(GET_MONTH() == "여름의 달" && INRANGE(DAY:3, 1, 15))
		;토일요일은 쉰다
		ELSEIF IS_WEEKEND(DAY)
		;일의 시간대가 아니다
		ELSEIF !INRANGE(TIME / 60, 10, 15)
		ELSEIF CFLAG:76:연회참가
		;코마치와 함께 삼도천에 있다
		ELSEIF ALLSAMES(CFLAG:76:현재위치, CFLAG:MASTER:현재위치, 삼도천)
			CALLF MAKE_INT(V_NAME, 1)
		ENDIF
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		SIF ALLSAMES(CFLAG:76:현재위치, CFLAG:MASTER:현재위치, 삼도천)
			CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
		SIF !(GET_MONTH() == "여름의 달" && INRANGE(DAY:3, 1, 15))
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유76(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "추석 진짜 괴롭다"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		DOWNBASE:MASTER:체력 += 100
		DOWNBASE:MASTER:기력 += 50
		PRINTFORMW %마스터는% 망자로 뒤끓는 강변에서 사신들에게 섞여 일했다
		TIME += 120
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		SOURCE:TARGET:환락 += 500
		SOURCE:TARGET:정복 += 500
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, 20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, 10)
		CALL GET_MONEY_YEN(5000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		;시스템 메시지 다하고 호감도 변화
		;마지막 인수만 호감도가 변화
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;시스템 메시지 다하고 신뢰도 변화
		;마지막 인수만 신뢰도가 변화
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT

ENDSELECT


code:
@고유의뢰79(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE ARG % 1000
;ID101：감주 주세요
CASE 101
	SELECTCASE O_DATA
	CASE "의뢰명"
		CALLF MAKE_STR(V_NAME, "감주 주세요")
	CASE "의뢰내용 표시"
		CALLF MAKE_STR(V_NAME, "감주를 2개 납입한다")
	CASE "의뢰 보수 표시"
		CALLF MAKE_STR(V_NAME, @"\\1000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "감주를 건네준다")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GETNUM(ITEM, "감주"), "조달"))
	CASE "의뢰 서브"
		CALLF MAKE_INT(V_NAME, 2)
	CASE "의뢰기한"
		CALLF MAKE_INT(V_NAME, 3)
	CASE "의뢰 발생율"
	;이것은 다른 고유 의뢰와의 상대 확률 어째서 10%가 아닙니다
		CALLF MAKE_INT(V_NAME, 10)
	CASE "의뢰 발생 조건"
		SIF DAY:2 != 2
			CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;수탁 가능은@COM_ABLE366도 확인
	;여기를 참조하는 것은 의뢰인을 TARGET로 하고 있는 때이므로 소안내로 좋아
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;실행 가능은@COM_ABLE367도 확인
		CALLF MAKE_INT(V_NAME, 1)
	;성공/실패 처리는 CARRYOUT로 직접 쓴다
	;SOURCE나 ITEM 입수 따위, 내용이 복잡해서
	CASE "의뢰 소멸 조건"
	;30%로 소실
		SIF RAND:100 < 30 || DAY:2 == 2
			CALLF MAKE_INT(V_NAME, 1)
	ENDSELECT
ENDSELECT

;고유 의뢰의 설정용
;이 함수는 실행/성공/실패시의
;보수와 페널티와 지문만을 취급합니다
;각 캐릭터의 메시지는 다른 장소에서
@IRAI_고유79(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE STR_DATA_IRAI(IRAI_ID, "의뢰명", CLIENT_ID)
;개개의 의뢰명으로 분기
CASE "감주 주세요"
	SELECTCASE SCENE
	CASE "의뢰 조건 표시"
	;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
	;수탁 끝난 의뢰 표시로 사용됩니다
	;
	;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
	;여기 이외의표시 항목은
	;PRINTFORML 　　　　　：
	;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

	CASE "의뢰실행시"
	;이 CASE에 한정해, RESULT가 의미를 가집니다
	;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
	;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
	;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
		SOURCE:TARGET:환락 += 500
		SOURCE:MASTER:노출 += 100
		CALL LOST_ITEM(GETNUM(ITEM, "감주"), 2, 2)
		PRINTFORMW %마스터가% %CALLNAME:TARGET%에 감주를 건네주면(자), 그녀의 표정이 조금 누그러졌다
		PRINTFORML 후우 후우 하면서 감주를 마시는 %타겟이% 혀를 화상 하지 않을까 하고 주시하고 있으면(자)
		PRINTFORMW 그 시선을 알아차린%타겟은% 쑥스러운 듯하게는에 물었다
		PRINTFORML
		TIME += 20
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 성공시"
	;성공 보고시의 보수 등
		CALL CHANGE_CFLAG(2, TARGET, 30)
		CALL CHANGE_CFLAG(4, TARGET, 20)
		TALENT:기분 = LIMIT(TALENT:기분 + 1, -1, 1)
		CALL GET_MONEY_YEN(1000, 2)
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰1
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "청소를 도와줘")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 방 청소를 돕는다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "의뢰실행 커맨드 이름"
	IF YOGORE:(GET_CHARAHOME(ARG)) < 1000
		CALLF MAKE_STR(V_NAME, "청소할 수 있었다")
	ELSE
		CALLF MAKE_STR(V_NAME, "청소를 한다")
	ENDIF
CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
CASE "의뢰 서브"
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
CASE "의뢰 발생율"
;이것은 다른 일반의뢰와의 상대 확률 어째서 10%가 아닙니다
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생 조건"
;자택이 당신과 동일 맵의 캐릭터만
	SIF MAIN_MAP == GET_MAPID(GET_CHARAHOME(ARG))
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
;그 의뢰자의 자택 부근에 있을 때
;(기본 조건으로 해 우선 의뢰자와 당신이 동일 지점에 있을 것이므로 이것으로 좋다)
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:연회참가
	ELSEIF YOGORE:(GET_CHARAHOME(ARG)) < 1000
	ELSEIF GET_MAPID(CFLAG:MASTER:현재위치) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "의뢰실행 가능 조건"
;의뢰자와 TARGET가 동일하고, 그 의뢰자의 자택에 있을 때
;(기본 조건으로 해 우선 의뢰자와 당신이 동일 지점에 있을 것이므로 이것으로 좋다)
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:연회참가
	ELSEIF CFLAG:ARG:현재위치 == GET_CHARAHOME(ARG)
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰인 데리고 나가 가능"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반1(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  SWEEP_ID
#DIM  SWEEP_POWER
#DIM  PREV_YOGORE
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
;
;"의뢰실행시"에 한정하고 말하면, CHARA는 TARGET와 동일하고, 반드시 CLIENT_ID와 일치한다고는 할 수 없습니다
;개개의 케이스로 확인할 필요가 있습니다
;이 의뢰는 「작업」취급이며, CLIENT가 TARGET가 되어 있을 때 마셔 실행할 수 있습니다
;
;
;거의 청소 커맨드의 Copy(복사)이지만 반드시 도와 주어 청소 효과가 높다
	IF YOGORE:(GET_CHARAHOME(TARGET)) < 1000
		PRINTFORMW %CALLNAME:TARGET%의 방은 충분히 예쁘다
		TIME += 3
	ELSE
		PRINTFORMW %마스터는% %타겟과% 협력해 방의 청소를 행했다
		PRINTFORML
		SWEEP_ID = CFLAG:MASTER:현재위치
		SWEEP_POWER = (2 + ABL:MASTER:청소기능 + 3 * TALENT:MASTER:청소중독) * (5 - TALENT:MASTER:61) / 5
		PREV_YOGORE = YOGORE:SWEEP_ID
		YOGORE:SWEEP_ID = YOGORE:SWEEP_ID / (SWEEP_POWER + 1 + ABL:청소기능)
		SIF GROUPMATCH(CFLAG:MASTER:현재위치, 9, 10)
			YOGORE:(54) = 0
			;PRINTL 내친 김에 벌레통도 청소했다
			;PRINTFORML 신묘마루의 개인물품을 치우고 뒤집어서 흔들면 그만이니까 간단하다
		EX:MASTER:오늘의청소회수 += PREV_YOGORE - YOGORE:SWEEP_ID
		EXP:청소경험 ++
		EXP:MASTER:청소경험 ++

		DOWNBASE:MASTER:체력 = 50
		DOWNBASE:MASTER:기력 = 100
		DOWNBASE:기력 = 100
		TIME += 20
	ENDIF
	SOURCE:환락 = 500
	SOURCE:정복 = 200
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 10)
	CALL GET_MONEY_YEN(500, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰2
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
@일반의뢰2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "꽃에 물을 줘")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 자택의 초목에 물을 준다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "의뢰 보고 불필요"
	CALLF MAKE_STR(V_NAME, "보고 불필요(보수 수리에는 보고 필수)")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "물주기")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(GET_CHARAHOME(ARG), "전령(장소)"))
CASE "의뢰 서브"
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
CASE "의뢰 발생율"
;이것은 다른 일반의뢰와의 상대 확률 어째서 15%가 아닙니다
	CALLF MAKE_INT(V_NAME, 15)
CASE "의뢰 발생 조건"
;자택이 당신과 동일 맵의 캐릭터만
	SIF MAIN_MAP == GET_MAPID(GET_CHARAHOME(ARG)) && MAP_CAN_MOVE(GET_CHARAHOME(ARG), MASTER) && ABL:ARG:친밀 >= 2
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
;그 의뢰자의 자택에 있을 때
	SIF MAIN_MAP == GET_MAPID(GET_CHARAHOME(ARG)) && MAP_CAN_MOVE(GET_CHARAHOME(ARG), MASTER)
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
		CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반2(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	PRINTFORMW %마스터는% %CALLNAME:CLIENT_ID%의 집의 분재나 식목에 물을 주었다
	PRINTFORML
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 15)
	CALL GET_MONEY_YEN(500, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -5)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰3
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "함께 놀자")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%과 함께 논다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, "(안)중 좋아진다")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "논다")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
CASE "의뢰 서브"
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
CASE "의뢰 발생율"
;이것은 다른 일반의뢰와의 상대 확률 어째서 15%가 아닙니다
	CALLF MAKE_INT(V_NAME, 15)
CASE "의뢰 발생 조건"
;유치 캐릭터 한정
;레밀리아에서도 발생해 버리지만 신경쓰지 말아라
	SIF TALENT:ARG:유치
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반3(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
;
;"의뢰실행시"에 한정하고 말하면, CHARA는 TARGET와 동일하고, 반드시 CLIENT_ID와 일치한다고는 할 수 없습니다
;개개의 케이스로 확인할 필요가 있습니다
;이 의뢰는 「작업」취급이며, CLIENT가 TARGET가 되어 있을 때 마셔 실행할 수 있습니다
;
;
	SOURCE:환락 = 1500
	PRINTFORMW %마스터는% %타겟과% 놀았다
	PRINTFORML
	TIME += 20
	DOWNBASE:체력 = 150
	DOWNBASE:기력 = 100
	DOWNBASE:MASTER:체력 = 150
	DOWNBASE:MASTER:기력 = 100
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	TALENT:TARGET:기분 = LIMIT(TALENT:기분 + 1, -1, 1)
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 5)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -5)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰4
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "요리 능숙하게 되고 싶다")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 요리의 연습을 지도한다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "요리")
CASE "의뢰 비고 표시"
	CALLF MAKE_STR(V_NAME, "우선은 요리할 수 있는 장소로 이동하자")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
CASE "의뢰 서브"
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
CASE "의뢰 발생율"
;이것은 다른 일반의뢰와의 상대 확률 어째서 10%가 아닙니다
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생 조건"
	SIF ABL:ARG:요리기능 < ABL:MASTER:요리기능 && ABL:MASTER:요리기능 >=2 && ABL:ARG:친밀 >= 3
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	IF FLAG:요리
	ELSEIF CFLAG:ARG:연회참가
	ELSEIF GET_MAPID(CFLAG:MASTER:현재위치) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "의뢰실행 가능 조건"
	SIF !FLAG:요리 && KITCHEN(CFLAG:MASTER:현재위치)
		CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰인 데리고 나가 가능"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반4(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
;
;"의뢰실행시"에 한정하고 말하면, CHARA는 TARGET와 동일하고, 반드시 CLIENT_ID와 일치한다고는 할 수 없습니다
;개개의 케이스로 확인할 필요가 있습니다
;이 의뢰는 「작업」취급이며, CLIENT가 TARGET가 되어 있을 때 마셔 실행할 수 있습니다
;
;
	SOURCE:환락 = 500
	PRINTFORML %마스터는% %타겟과% 함께 요리를 했다
	TIME += 20
	DOWNBASE:체력 = 50
	DOWNBASE:기력 = 50
	DOWNBASE:MASTER:체력 = 50
	DOWNBASE:MASTER:기력 = 50
	CALL 일반의뢰4_COOKING(TARGET)
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 20)
	PRINTFORML
	PRINTFORML 할 수 있던 요리는 둘이서 함께 받았다
	CALL GET_MONEY_YEN(500, 2)
	CALL 식사(TARGET)
	CALL RESET_DISH
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

@일반의뢰4_COOKING(CHARA)
#DIM CHARA
DISHQUALITY = CHARA_FOOD_QUALITY(CHARA)
;맛설정 처리
SELECTCASE DISHQUALITY
CASE 1
	DISHTASTE += GET_TASTE_INGREDIENT("잡곡")
CASE 2
	DISHTASTE += GET_TASTE_INGREDIENT("묵은쌀")
CASE 3
	DISHTASTE += GET_TASTE_INGREDIENT("백미")
ENDSELECT
DISHTYPE    = CHARA_RAND_COOKING(CHARA)
CALL COOKING(CHARA, "「요리 내용 자동 결정」")

;적당으로 결정했다
;사용하는 식재료의 수준
@CHARA_FOOD_QUALITY(CHARA)
#FUNCTION
#DIM CHARA
#DIM CONST DISH_조식 = 1
#DIM CONST DISH_보통식 = 2
#DIM CONST DISH_미식 = 3
SELECTCASE CSVCALLNAME(NO:CHARA)
CASE "루미아", "리글", "뱌쿠렌", "메디슨", "요시카"
	RETURNF DISH_조식
{
CASE "사쿠야", "레밀리아", "플랑", "텐시", "이쿠",
	 "카구야", "유유코", "에이린", "미노리코", "아큐",
	 "청아", "요리히메", "토요히메", "순호"
}
	RETURNF DISH_미식
CASEELSE
	RETURNF DISH_보통식
ENDSELECT

;요리 메뉴 추첨
[SKIPSTART]
0 없음
1 "경식", 1,
2 "주식", ABL:MASTER:요리기능 > 1,
3 "디저트", ABL:MASTER:요리기능 > 2,

4 "금단의 요리", ABL:MASTER:요리기능 > 2,
5 "개구리 요리", ITEM:개구리
[SKIPEND]
@CHARA_RAND_COOKING(CHARA)
#FUNCTION
#DIM CHARA
#DIM CONST MENU_경식       = 1
#DIM CONST MENU_주식       = 2
#DIM CONST MENU_디저트   = 3
#DIM CONST MENU_금단의요리 = 4
#DIM CONST MENU_개구리요리 = 5
#DIM MENU_HIT, 6
VARSET MENU_HIT, 10
MENU_HIT:0 = 0
MENU_HIT:MENU_금단의요리 = 0
MENU_HIT:MENU_개구리요리 = 0

SELECTCASE ABL:CHARA:요리기능
CASE 0, 1
	MENU_HIT:MENU_경식     += 5
	MENU_HIT:MENU_주식     += 10
CASE 2, 3
	MENU_HIT:MENU_주식     += 5
	MENU_HIT:MENU_디저트 += 10
ENDSELECT

SIF ABL:CHARA:욕망 >= 5
	MENU_HIT:MENU_금단의요리 += 5
SIF ABL:CHARA:정액중독 >= 3
	MENU_HIT:MENU_금단의요리 += 5
SIF ABL:CHARA:질내사정중독 >= 3
	MENU_HIT:MENU_금단의요리 += 5
SIF ABL:CHARA:항내사정중독 >= 3
	MENU_HIT:MENU_금단의요리 += 5
RETURNF ARRAY_HIT(MENU_HIT, VARSIZE("MENU_HIT"))


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰5
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "특훈에 대해 있어")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 탄막의 특훈을 돕는다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "특훈이다!")
CASE "의뢰 비고 표시"
	CALLF MAKE_STR(V_NAME, "우선은 특훈을 할 수 있는 열 수 있었던 장소로 이동하자")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
CASE "의뢰 서브"
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
CASE "의뢰 발생율"
;이것은 다른 일반의뢰와의 상대 확률 어째서 10%가 아닙니다
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생 조건"
	;현상의 마을에서는 달성 불능인 유익 거점이 마을의 경우는 제외
	SIF ABL:ARG:전투능력 <= ABL:MASTER:전투능력 && ABL:ARG:친밀 >= 2 && MAIN_MAP != 2
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	IF CFLAG:ARG:연회참가
	ELSEIF GET_MAPID(CFLAG:MASTER:현재위치) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "의뢰실행 가능 조건"
	SIF 전투훈련가능(CFLAG:MASTER:현재위치)
		CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰인 데리고 나가 가능"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반5(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  BAD_WEATHER
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
;
;"의뢰실행시"에 한정하고 말하면, CHARA는 TARGET와 동일하고, 반드시 CLIENT_ID와 일치한다고는 할 수 없습니다
;개개의 케이스로 확인할 필요가 있습니다
;이 의뢰는 「작업」취급이며, CLIENT가 TARGET가 되어 있을 때 마셔 실행할 수 있습니다
;

;날씨를 참조
	BAD_WEATHER = 0
	SELECTCASE TIME:5
	CASE 4, 6, 8, 10, 12, 13
		;악천후
		BAD_WEATHER = 1
	CASE 5, 9
		;위험 있고 날씨
		BAD_WEATHER = 2
	;그 이외
	CASEELSE
		;여름 철은 죽어라
		SIF DAY:2 == 2 && TIME:5 == 1 && INRANGE(TIME, 361, 1019)
			BAD_WEATHER = 3
	ENDSELECT
	SIF !OUTROOF(CFLAG:MASTER:현재위치)
		BAD_WEATHER = 0

	PRINTFORMW %마스터는% %타겟과% 탄막 놀이의 특훈을 했다
	SELECTCASE TIME:5
	CASE 4, 6
		PRINTL 빗속 탄막의 훈련을 실시했다
		PRINTW 매우 지쳤다
	CASE 1
		IF BAD_WEATHER == 3
			PRINTL 강렬한 직사 광선아래에서 탄막의 훈련을 실시했다
			PRINTW 열사병이 될 것 같다…
		ELSE
			PRINTW 구름 한점 없는 푸른 하늘아래에서 탄막의 훈련을 실시했다
		ENDIF
	CASE 5
		PRINTL 격렬한 비가 내리고 거칠어지는 중, 어려운 훈련을 강행했다
		PRINTW 죽는 만큼 지쳤다
	CASE 8, 10, 12, 13
		PRINTL 눈가운데 탄막의 훈련을 실시했다
		PRINTW 매우 지쳤다
	CASE 9
		PRINTL 비바람안, 어려운 훈련을 강행했다
		PRINTW 죽는 만큼 지쳤다
	CASEELSE
;		PRINTL 탄막의 훈련을 실시했다
	ENDSELECT

	TCVAR:MASTER:공복시각 -= 15
	TCVAR:TARGET:공복시각 -= 15
	DOWNBASE:MASTER:체력 = 100 * (2 + BAD_WEATHER)
	DOWNBASE:MASTER:기력 = 100 * (2 + BAD_WEATHER)
	DOWNBASE:체력 = 50 * (2 + BAD_WEATHER)
	DOWNBASE:기력 = 50 * (2 + BAD_WEATHER)
	SOURCE:환락 = 600 + 100 * (1 + BAD_WEATHER)
	TIME += 60
	MAXBASE:MASTER:체력+=1
	EXP:MASTER:전투경험 += 1 + ABL:전투능력
	EXP:전투경험 += MAX(ABL:전투능력 - ABL:MASTER:전투능력 + 1, 1) * 3 + BAD_WEATHER
	IF ITEM:전술지도서
		MAXBASE:MASTER:체력+=1
		EXP:MASTER:전투경험 ++
		EXP:TARGET:전투경험 ++
	ENDIF
	IF ITEM:스포츠드링크 >= 2
		IF BAD_WEATHER == 3
			DOWNBASE:MASTER:체력 -= 200
			DOWNBASE:MASTER:기력 -= 300
			DOWNBASE:체력 -= 70
			DOWNBASE:기력 -= 100
		ELSE
			DOWNBASE:MASTER:체력 -= 50
			DOWNBASE:MASTER:기력 -= 50
			DOWNBASE:체력 -= 20
			DOWNBASE:기력 -= 20
		ENDIF
		SOURCE:환락 += 1000
		PRINTL 훈련 후에 둘이서 스포츠드링크를 마셨다
		PRINTW 지친 몸에 수분이 스며들고 건너 간다…
		ITEM:스포츠드링크 -= 2
		;원래 구문이라면 소비는 1개 같지만 2개에
	ENDIF
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 20)
	CALL GET_MONEY_YEN(500, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰6
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "누군가 가르쳐 줘!")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 기몬에 대답한다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\500")
CASE "의뢰실행 커맨드 이름"
	IF IS_LIBRARY(CFLAG:MASTER:현재위치)
		CALLF MAKE_STR(V_NAME, "조사 것")
	ELSE
		CALLF MAKE_STR(V_NAME, "가르쳐 준다")
	ENDIF
CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "그 외"))
CASE "의뢰 서브"
	CALLF MAKE_INT(V_NAME, (ABL:ARG:교양 + RAND(1, 10)) * 10)
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
CASE "의뢰 발생율"
;이것은 다른 일반의뢰와의 상대 확률 어째서 10%가 아닙니다
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생 조건"
	SIF ABL:ARG:교양 <= ABL:MASTER:교양
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
	;조사 것은 언제라도
	IF FLAG:70
	ELSEIF IS_LIBRARY(CFLAG:MASTER:현재위치)
		CALLF MAKE_INT(V_NAME, 1)
	;가르치는 것은 CLIENT를 TARGET로 할 필요가 있다
	ELSEIF TARGET == ARG && SHIRAHU(ARG)
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰인 데리고 나가 가능"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반6(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  LIBRARY_ID
#DIMS LIBRARY_NAME
#DIM  CHK_SLOT
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
CHK_SLOT  = SEARCH_IRAI_SLOT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
PRINTFORML 　　이해도：%IRAI_일반6_DIFFICULTY(CHK_SLOT)%
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;의뢰실행시에는 RESULT가 의미를 가집니다
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	LIBRARY_ID = IS_LIBRARY(CFLAG:MASTER:현재위치)
	IF LIBRARY_ID
		IF INRANGE(LIBRARY_ID, 1, 99)
			LIBRARY_NAME '= STR:LIBRARY_ID
		ELSE
			LIBRARY_NAME '= STR:(8000 + LIBRARY_ID)
		ENDIF
		IF TARGET == CLIENT_ID
			PRINTFORML %마스터는% %CALLNAME:TARGET%의 의문에 답하기 위해서(때문에)%LIBRARY_NAME%를 방문했다
			PRINTFORML 여기라면 도움이 되는 자료가 발견될 것 같다
			CALL ASK_M("그만둔다", 1, "조사 것", 1, "회답해 보는", 1)
			SELECTCASE RESULT
			CASE 0
				RETURN IRAI_CONST_RESULT("캔슬")
			CASE 1
				PRINTFORMW %마스터와% %타겟은% %LIBRARY_NAME%로 조사를 했다
				MAXBASE:MASTER:기력+=1
				EXP:MASTER:학습경험 ++
				EXP:TARGET:학습경험 ++
				IRAI_SUB:CHK_SLOT -= ABL:MASTER:교양 + ABL:TARGET:교양 + 5
				IRAI_SUB:CHK_SLOT = MAX(IRAI_SUB:CHK_SLOT, 1)
				TIME += 30
			CASE 2
				GOTO ANSWER
			ENDSELECT
		ELSE
			PRINTFORML %마스터는% %LIBRARY_NAME%로 조사를 했다
			MAXBASE:MASTER:기력+=1
			EXP:MASTER:학습경험 ++
			IRAI_SUB:CHK_SLOT -= ABL:MASTER:교양 + 3
			IRAI_SUB:CHK_SLOT = MAX(IRAI_SUB:CHK_SLOT, 1)
		ENDIF
		PRINTFORML 현재의 당신의 이해도
		PRINTFORMW 　%IRAI_일반6_DIFFICULTY(CHK_SLOT)%
		RETURN IRAI_CONST_RESULT("실행해 미해결")
	ELSE
		$ANSWER
		PRINTFORML %마스터는% %CALLNAME:TARGET%의 의문에 답했다
		IF IRAI_일반6_SUCCESS(CHK_SLOT)
			PRINTFORMW %CALLNAME:TARGET%의 의문은 빙해했다!
			SOURCE:환락 = 300
			MAXBASE:MASTER:기력+=ABL:TARGET:교양 * 5
			EXP:MASTER:학습경험 += ABL:TARGET:교양 * 5
			EXP:TARGET:학습경험 += ABL:TARGET:교양 * 5
			IF ITEM:103
				MAXBASE:MASTER:기력+=1
				EXP:MASTER:학습경험 ++
				EXP:TARGET:학습경험 ++
			ENDIF
			DOWNBASE:MASTER:체력 = 70
			DOWNBASE:MASTER:기력 = 100
			DOWNBASE:체력 = 50
			DOWNBASE:기력 = 70
			TIME += 30
			RETURN IRAI_CONST_RESULT("실행해 성공")
		ELSE
			PRINTFORMW %타겟은% 납득할 수 없었던 것 같다……
			RETURN IRAI_CONST_RESULT("실행해 실패")
		ENDIF
	ENDIF
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	CALL CHANGE_CFLAG(2, TARGET, 50)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	CALL KIGEN_CHANGE(TARGET, 100,1)
	CALL GET_MONEY_YEN(500, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT

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

@IRAI_일반6_DIFFICULTY(CHK_SLOT)
#FUNCTIONS
#DIM CHK_SLOT
SIF IRAI_SUB:CHK_SLOT <= (1 + ABL:MASTER:교양) * 20
	RETURNF "완벽하게 이해 시켜 보고 다툰다"
;난이도 전체로 차분을 퍼센트화한 것
SELECTCASE (IRAI_SUB:CHK_SLOT - ((1 + ABL:MASTER:교양) * 20)) * 100 / IRAI_SUB:CHK_SLOT
CASE 0, 1, 2, 3
	RETURNF "잘 가르칠 수 있을 것 같다"
CASE 4, 5, 6
	RETURNF "충분히 가르칠 수 있다"
CASE 7 TO 10
	RETURNF "대답할 수 있을 것이다"
CASE 11 TO 33
	RETURNF "이것으로 납득해 주지 않을까"
CASE 34 TO 50
	RETURNF "반드시 어떻게든 된다, 아마"
CASE 51 TO 70
	RETURNF "어려운 질문이다"
CASEELSE
	RETURNF "마치 짐작하지 못하다"
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰7
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "대청소가 끝나지 않는다")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, "대청소의 도움")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\1500")
CASE "의뢰실행 커맨드 이름"
	IF YOGORE:(GET_CHARAHOME(ARG)) < 1000
		CALLF MAKE_STR(V_NAME, "청소할 수 있었다")
	ELSE
		CALLF MAKE_STR(V_NAME, "청소를 한다")
	ENDIF

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
CASE "의뢰 서브"
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
CASE "의뢰 발생율"
	CALLF MAKE_INT(V_NAME, 80)
CASE "의뢰 발생 조건"
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF !(DAY:2 == 4 && INRANGE(DAY:3, 15, 31))
	ELSEIF ABL:ARG:친밀 >= 3
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "의뢰 수탁 가능 조건"
;그 의뢰자의 자택 부근에 있을 때
;(기본 조건으로 해 우선 의뢰자와 당신이 동일 지점에 있을 것이므로 이것으로 좋다)
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:연회참가
	ELSEIF YOGORE:(GET_CHARAHOME(ARG)) < 1000
	ELSEIF GET_MAPID(CFLAG:MASTER:현재위치) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "의뢰실행 가능 조건"
;의뢰자와 TARGET가 동일하고, 그 의뢰자의 자택에 있을 때
;(기본 조건으로 해 우선 의뢰자와 당신이 동일 지점에 있을 것이므로 이것으로 좋다)
	IF MAIN_MAP != GET_MAPID(GET_CHARAHOME(ARG))
	ELSEIF CFLAG:ARG:연회참가
	ELSEIF CFLAG:ARG:현재위치 == GET_CHARAHOME(ARG)
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF !(DAY:2 == 4 && INRANGE(DAY:3, 15, 31))
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰인 데리고 나가 가능"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반7(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  SWEEP_ID
#DIM  SWEEP_POWER
#DIM  PREV_YOGORE
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	IF YOGORE:(GET_CHARAHOME(TARGET)) < 1000
		PRINTFORMW %CALLNAME:TARGET%의 방은 충분히 예쁘다
		TIME += 3
	ELSE
		PRINTFORMW %마스터는% %타겟과% 협력해 철저하게 방을 청소했다
		PRINTFORML
		SWEEP_ID = CFLAG:MASTER:현재위치
		SWEEP_POWER = (2 + ABL:MASTER:청소기능 + 3 * TALENT:MASTER:청소중독) * (5 - TALENT:MASTER:61) / 5
		PREV_YOGORE = YOGORE:SWEEP_ID
		;청소 효과 한층 더 높은
		YOGORE:SWEEP_ID = YOGORE:SWEEP_ID / (SWEEP_POWER + 2 + ABL:청소기능)
		SIF GROUPMATCH(CFLAG:MASTER:현재위치, 9, 10)
			YOGORE:(54) = 0
			;PRINTL 내친 김에 벌레통도 청소했다
			;PRINTFORML 신묘마루의 개인물품을 치우고 뒤집어서 흔들면 그만이니까 간단하다
		EX:MASTER:오늘의청소회수 += PREV_YOGORE - YOGORE:SWEEP_ID
		EXP:청소경험 ++
		EXP:MASTER:청소경험 ++

		DOWNBASE:MASTER:체력 = 50
		DOWNBASE:MASTER:기력 = 100
		DOWNBASE:기력 = 100
		TIME += 40
	ENDIF
	SOURCE:환락 = 500
	SOURCE:정복 = 200
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	CALL GET_MONEY_YEN(1500, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -20)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰8
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "편지를 보내")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"어떤 인물에게 편지를 보낸다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\1000")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "편지를 건네준다")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(WHO_LETTER_TO(ARG), "전령(인물)"))
CASE "의뢰 서브"
CASE "의뢰기한"
;발생시는 아니고 수탁시에 확정합니다
	CALLF MAKE_INT(V_NAME, 3)
CASE "의뢰 발생율"
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생 조건"
	SIF CFLAG:ARG:신뢰도 >= 30 && WHO_LETTER_TO(ARG)
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	SIF CFLAG:ARG:신뢰도 >= 30 && WHO_LETTER_TO(ARG)
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반8(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	PRINTFORMW %마스터는% %CALLNAME:TARGET%에 맡고 있던 편지를 건네주었다
	PRINTFORML
	SOURCE:환락 = 500
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	SOURCE:환락 = 500
	CALL CHANGE_CFLAG(2, TARGET, 50)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	CALL GET_MONEY_YEN(1000, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -20)
	CALL CHANGE_CFLAG(4, TARGET, -10)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰9
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "누군가의 유실물")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"소유자를 찾기 낸다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\2500")
CASE "의뢰 보고 불필요"
	CALLF MAKE_STR(V_NAME, "보고 불필요(보수 수리에는 보고 필수)")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "유실물을 돌려준다")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_PERSON(ARG), "수색(인물)"))
CASE "의뢰 서브"
CASE "의뢰기한"
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생율"
	CALLF MAKE_INT(V_NAME, 4)
CASE "의뢰 발생 조건"
	SIF CFLAG:ARG:신뢰도 >= 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반9(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	PRINTFORMW %마스터는% %CALLNAME:TARGET%에 맡고 있던 유실물을 돌려주었다
	PRINTFORML
	SOURCE:복종 = 1500
	SOURCE:환락 = 1000
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 10)
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	SOURCE:환락 = 500
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 20)
	CALL GET_MONEY_YEN(2500, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -2)
	CALL CHANGE_CFLAG(4, TARGET, -1)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰10
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "아무래도 발견되지 않는다")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 유실물을 찾기 낸다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\3000")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "찾는다")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_PLACE(ARG, "LOST_ITEM"), "수색(장소)"))
CASE "의뢰 서브"
CASE "의뢰기한"
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생율"
	CALLF MAKE_INT(V_NAME, 3)
CASE "의뢰 발생 조건"
	SIF CFLAG:ARG:신뢰도 >= 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반10(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	PRINTFORMW 근처를 찾고 있던%마스터는% 마침내 찾고 있던 유실물을 발견했다
	PRINTFORML
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	SOURCE:복종 = 1500
	SOURCE:환락 = 1000
	CALL CHANGE_CFLAG(2, TARGET, 50)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	CALL GET_MONEY_YEN(3000, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -2)
	CALL CHANGE_CFLAG(4, TARGET, -1)
ENDSELECT


code:
;존부 함수
;F함수는 TRYCALL계를 사용할 수 없기 때문에 통상 함수로 존부 배열을 만들어버린다
@EXIST_일반의뢰11
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	CALLF MAKE_STR(V_NAME, "아무래도 발견되지 않는다")
CASE "의뢰내용 표시"
	CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 유실물을 찾기 낸다")
CASE "의뢰 보수 표시"
	CALLF MAKE_STR(V_NAME, @"\\3200")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "찾는다")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_PERSON(ARG), "수색(인물)"))
CASE "의뢰 서브"
CASE "의뢰기한"
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생율"
	CALLF MAKE_INT(V_NAME, 3)
CASE "의뢰 발생 조건"
	SIF CFLAG:ARG:신뢰도 >= 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
	CALLF MAKE_INT(V_NAME, 1)
;성공/실패 처리는 CARRYOUT로 직접 쓴다
;SOURCE나 ITEM 입수, 소비가 번잡하게 되므로
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반11(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;무엇인가 전용의 표시 정보를 마련하고 싶을 시용
;수탁 끝난 의뢰 표시로 사용됩니다
;
;PRINT계만으로 SOURCE라든지는 넣으면 안 돼, WAIT도 없음으로
;여기 이외의표시 항목은
;PRINTFORML 　　　　　：
;되고 있으므로 스페이스를 가지런히 하는 편이 보기에 좋습니다

CASE "의뢰실행시"
;이 CASE에 한정해, RESULT가 의미를 가집니다
;의뢰실행시의 RESULT에는 IRAI_CONST_RESULT()를 사용해 주세요
;가능한 인수는"캔슬", "실행해 성공", "실행해 실패", "실행해 미해결"입니다
;독자 처리를 가르치고 싶을 때는"실행해 미해결"로 유보하자 마자 해 주세요
	SOURCE:환락 = 500
	PRINTFORMW 탐문을 계속하고 있던%마스터는% 마침내 찾고 있던 유실물을 발견했다
	PRINTFORML
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	SOURCE:복종 = 1500
	SOURCE:환락 = 1000
	CALL CHANGE_CFLAG(2, TARGET, 25)
	CALL CHANGE_CFLAG(4, TARGET, 15)
	CALL GET_MONEY_YEN(3200, 2)
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -2)
	CALL CHANGE_CFLAG(4, TARGET, -1)
ENDSELECT