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("오이", 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("로터", 1, 2)
		RETURN IRAI_CONST_RESULT("실행해 성공")
	CASE "의뢰 실패시"
	;실패 보고시의 처리
		CALL CHANGE_CFLAG(2, TARGET, -10)
		CALL CHANGE_CFLAG(4, TARGET, -10)
	ENDSELECT
ENDSELECT

license: mit


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("감주", 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:
@고유의뢰139(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, @"\\50000")
	CASE "의뢰실행 커맨드 이름"
		CALLF MAKE_STR(V_NAME, "精液を採取する")

	CASE "의뢰내용"
		CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
	CASE "의뢰 서브"
	CASE "의뢰기한"
	;発生時ではなく受託時に確定します
		CALLF MAKE_INT(V_NAME, 30)
	CASE "의뢰 발생율"
	;これは他の固有依頼との相対確率なんで10％ではありません
		CALLF MAKE_INT(V_NAME, 20)
	CASE "의뢰 발생 조건"
	SIF EXP:139:정액경험 > 0 && (TALENT:MASTER:성별 == 2 || TALENT:MASTER:성별 == 3)
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰 수탁 가능 조건"
	;受託可能は@COM_ABLE366も確認のこと
	;ここを参照するのは依頼人をTARGETにしてる時なので素通しでよし
		CALLF MAKE_INT(V_NAME, 1)
	CASE "의뢰실행 가능 조건"
	;実行可能は@COM_ABLE367も確認のこと
		IF FLAG:70
		ELSE
			;SIF TALENT:MASTER:濃厚精液
			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_固有139(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:기력 += 50
		DOWNBASE:MASTER:정력 += 250
		IF TALENT:139:처녀 == 1
			IF EXP:펠라티오경험 > 0
				PRINTFORMW %CALLNAME:MASTER%は典に口で抜いてもらったときのことを想いだしながらペニスを扱いた…
			ELSE
				PRINTFORMW %CALLNAME:MASTER%は典の裸を想像しながらペニスを扱いた…
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:MASTER%は典との性交を思い出しながらペニスを扱いた…
		ENDIF
		TIME += 10
			IF TALENT:MASTER:농후정액
				PRINTFORML 典から預かった試験管に、糊のような濃い精液をたっぷりと注ぎ込んだ…
				PRINTFORML 量といい粘度といい文句のつけようがないだろう
				PRINTW
				RETURN IRAI_CONST_RESULT("실행해 성공")
			ELSE
				PRINTFORML 典から預かった試験管に、精液をたっぷりと注ぎ込んだ…
				PRINTFORML しかし、典から依頼された精液は濃厚なものだ
				PRINTFORML これでは納得してくれないだろう
				PRINTL
				PRINTFORML ※日を改めるなどして[濃厚精液]状態になってから臨みましょう
				PRINTW
				RETURN IRAI_CONST_RESULT("실행해 미해결")
			ENDIF
			SOURCE:MASTER:달성 = 500
	CASE "의뢰 성공시"
	;成功報告時の報酬など
		CALL KIGEN_CHANGE(TARGET, 100, 1)
		SOURCE:TARGET:환락 = 1000
		SOURCE:TARGET:정복 = 500
		SOURCE:TARGET:달성 = 500
		SOURCE:TARGET:욕정 = 3000
		SOURCE:MASTER:욕정 = 1000
		;システムメッセージつき好感度変化
		;最後の引数だけ好感度が変化
		CALL CHANGE_CFLAG(2, TARGET, 40)
		;システムメッセージつき信頼度変化
		;最後の引数だけ信頼度が変化
		CALL CHANGE_CFLAG(4, TARGET, 25)
		CALL GET_MONEY_YEN(50000, 2)
	CASE "의뢰 실패시"
	;失敗報告時の処理
		;システムメッセージつき好感度変化
		;最後の引数だけ好感度が変化
		CALL CHANGE_CFLAG(2, TARGET, -20)
		;システムメッセージつき信頼度変化
		;最後の引数だけ信頼度が変化
		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, @"저급소재")
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 GetRandMaterial(1, 1000)
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, @"%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 DISH_NAME != ""
	ELSEIF CFLAG:ARG:연회참가
	ELSEIF GET_MAPID(CFLAG:MASTER:현재위치) == MAIN_MAP
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
CASE "의뢰실행 가능 조건"
	SIF DISH_NAME == "" && 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
	TIME += 20
	DOWNBASE:체력 = 50
	DOWNBASE:기력 = 50
	DOWNBASE:MASTER:체력 = 50
	DOWNBASE:MASTER:기력 = 50
	CALL 일반의뢰4_COOKING(TARGET)
	PRINTFORML %마스터는% %타겟과% 함께 %조사처리(DISH_NAME, "를")% 만들었다
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	CALL CHANGE_CFLAG(2, TARGET, 20)
	CALL CHANGE_CFLAG(4, TARGET, 20)
	EXP:TARGET:요리경험 += 5 * (ABL:MASTER:요리기능 - ABL:TARGET:요리기능)
	PRINTFORML
	PRINTFORML 「잘먹겠습니다」
	CALL 식사(TARGET)
	CALL 식사(MASTER)
	CALL GET_MONEY_YEN(500, 2)
	CALL RESET_DISH
CASE "의뢰 실패시"
;실패 보고시의 처리
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -10)
	EXP:TARGET:요리경험 ++
ENDSELECT

;추천 요리와 요리생성의 복합
@일반의뢰4_COOKING(CHARA)
#DIM CHARA
CALL RESET_DISH
IF !RAND:3 && ABL:MASTER:요리기능 >= 3
	DISH_TYPE = 디저트
ELSEIF !RAND:2 && ABL:MASTER:요리기능 >= 2
	DISH_TYPE = 주식
ELSE
	DISH_TYPE = 경식
ENDIF
CALL FISHER_YATES_SHAFFLE(999)
FOR LOCAL, 1, 400 + CHARANUM + 1
	CALL DISHDATA(SHAFFLE_ARRAY:LOCAL + 100, DISH_TYPE)
	SIF STRCOUNT(DISH_TASTE, "철지난/")
		CONTINUE
	SIF STRCOUNT(DISH_TASTE, "수수께끼 요리/")
		CONTINUE
	SIF RESULT >= 1
		BREAK
NEXT
CALL 요리생성(DISH_NAME, CHARA, "연습")


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 MAIN_MAP == 2
	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
	EXP:MASTER:전투경험 += 1 + ABL:전투능력
	EXP:전투경험 += MAX(ABL:전투능력 - ABL:MASTER:전투능력 + 1, 1) * 3 + BAD_WEATHER

	IF ITEM:전술지도서
		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%에서 조사를 했다
				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%에서 조사를 했다
			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
			EXP:MASTER:학습경험 += ABL:TARGET:교양 * 5
			EXP:TARGET:학습경험 += ABL:TARGET:교양 * 5
			IF ITEM:103
				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, @"소재 4개")
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
	CALL CHANGE_CFLAG(2, TARGET, 20)
	RETURN IRAI_CONST_RESULT("실행해 성공")
CASE "의뢰 성공시"
;성공 보고시의 보수 등
	SOURCE:환락 = 500
	CALL CHANGE_CFLAG(2, TARGET, 50)
	CALL CHANGE_CFLAG(4, TARGET, 30)
	CALL GetRandMaterial(4, 3000)
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, @"상급 소재")
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 "의뢰 서브"
	;패턴 설정
	CALLF MAKE_INT(V_NAME, RAND:3 + 1)
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 GetRandMaterial(1, 10000, 5000)
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, @"상급소재 2개")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "찾는다")

CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_PLACE(ARG, "LOST_ITEM"), "수색(장소)"))
CASE "의뢰 서브"
	;패턴 설정
	CALLF MAKE_INT(V_NAME, RAND:2 + 1)
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 GetRandMaterial(2, 10000, 5000)
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 "의뢰 서브"
	;패턴 설정, 습득되는 패턴은0
	CALLF MAKE_INT(V_NAME, 0)
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


code:
;존부 함수
;F関数はTRYCALL系が使えないので通常関数で存否配列を作っちゃう
@EXIST_일반의뢰12
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰12(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, @"상금(시가)")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "혼내준다")
CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(RAND_HANTING(ARG), "토벌"))
CASE "의뢰 서브"
CASE "의뢰기한"
;発生時ではなく受託時に確定します
	CALLF MAKE_INT(V_NAME, 10)
CASE "의뢰 발생율"
;これは他の일반의뢰との相対確率なんで10％ではありません
	CALLF MAKE_INT(V_NAME, 2)
CASE "의뢰 발생 조건"
;CSVの전투능력が1以上
	SIF CSVABL(ARG, GETNUM(ABL, "전투능력")) >= 1
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
;あなたの전투능력が1以上
	SIF ABL:MASTER:전투능력 >= 1
		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)
CASE "의뢰인 데리고 나가 가능"
ENDSELECT

@IRAI_일반12(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM  CHK_SLOT
#DIM  OPPONENT_REMAIN
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
CHK_SLOT  = SEARCH_IRAI_SLOT(IRAI_ID)
SELECTCASE SCENE
CASE "의뢰 조건 표시"
;何か専用の表示情報を設けたい時用
;受託済みの依頼表示で使用されます
;
;PRINT系だけでSOURCEとかは入れちゃダメ、WAITも無しで
;ここ以外の表示項目は
;PRINTFORML 　　　　　：
;となっているのでスペースを揃えたほうが見栄えが良いです

CASE "의뢰실행시"
;このCASEに限り、RESULTが意味を持ちます
;의뢰실행시のRESULTにはIRAI_CONST_RESULT()を使用してください
;可能な引数は"キャンセル", "실행해 성공", "実行して失敗", "실행해 미해결"です
;独自処理を仕込みたい時は"실행해 미해결"で先延ばしするなりしてください
;
;
	;実行できないパターン
	;拠点では屋内だとダメ（原作だとめっちゃやってるけど）
	IF CANNOT_DANMAKU() == 1
		PRINTFORMW 옥외에서 도전하자…
		RETURN IRAI_CONST_RESULT("실행해 미해결")
	;仕事中はダメ
	ELSEIF CANNOT_DANMAKU() == 2
		PRINTFORMW 바쁜 상황이다…
		RETURN IRAI_CONST_RESULT("실행해 미해결")
	;あなたが疲労
	ELSEIF CANNOT_DANMAKU() == 3
		PRINTFORMW 지금은 피곤하다…
		RETURN IRAI_CONST_RESULT("실행해 미해결")
	;対象が疲労
	ELSEIF CANNOT_DANMAKU() == 4
		PRINTFORMW 지금 도전하는 것은 공정하지 않다…
		RETURN IRAI_CONST_RESULT("실행해 미해결")
	;既に挑んでる
	ELSEIF CANNOT_DANMAKU() == 5
		PRINTFORMW 오늘은 더 이상 도전할 수 없다…
		RETURN IRAI_CONST_RESULT("실행해 미해결")
	ELSE
		;ほぼ弾幕勝負のコピペ
		SETCOLOR C_GREEN
		PRINTFORML ＜토벌전＞
		RESETCOLOR
		PRINTFORMW 승부 개시！！
		CALL DANMAKU_BATTLE(TARGET)
		OPPONENT_REMAIN = RESULT
		CALL KOJO_MESSAGE_SEND("DANMAKU", OPPONENT_REMAIN, TARGET, -1, -1, "戦闘後")
		PRINTL
		TCVAR:TARGET:탄막승부불능 = 1
		SIF OPPONENT_REMAIN == 0
			CFLAG:TARGET:탄막승부승리 = 1
		DOWNBASE:기력 += 500
		DOWNBASE:MASTER:기력 += 500
		DOWNBASE:체력 += 500
		DOWNBASE:MASTER:체력 += 500
		SOURCE:환락 += (3000 + ABL:친밀 * 100) / (OPPONENT_REMAIN + 1)
		TFLAG:호감도보너스 = 1600 / (OPPONENT_REMAIN + 1)
		TFLAG:신뢰도관리 = 3 - LOCAL

		EXP:MASTER:전투경험 += 3

		TIME += 60

		SIF AT_HOME(MASTER)
			YOGORE:(CFLAG:MASTER:현재위치) = LIMIT(YOGORE:(CFLAG:MASTER:현재위치) + 3000, 0, 6000)
		IF OPPONENT_REMAIN == 0
			PRINTL
			SETCOLOR C_YELLOW
			PRINTFORMW %타겟을% 혼내주었다！
			RESETCOLOR
			RETURN IRAI_CONST_RESULT("실행해 성공")
		ELSE
			SETCOLOR C_GREEN
			PRINTFORML %CALLNAME:TARGET%의 토벌에 실패했다……
			PRINTFORMW ……이렇게 되면 후일 다시 시도할 수밖에 없다
			RESETCOLOR
			RETURN IRAI_CONST_RESULT("실행해 미해결")
		ENDIF
	ENDIF
CASE "의뢰 성공시"
;성공 보고시の報酬など
	SELECTCASE ABL:(IRAI_SLOT_TO_PERSON(CHK_SLOT)):전투능력
	CASE IS <= 1
		SOURCE:환락 = 1000
		CALL CHANGE_CFLAG(2, TARGET, 10 + RAND:5)
		CALL CHANGE_CFLAG(4, TARGET, 15 + RAND:5)
		CALL GET_SPELL_CARD_BONUS_YEN(1000, 2)
	CASE 2
		SOURCE:환락 = 1500
		CALL CHANGE_CFLAG(2, TARGET, 15 + RAND:5)
		CALL CHANGE_CFLAG(4, TARGET, 20 + RAND:10)
		CALL GET_SPELL_CARD_BONUS_YEN(2000, 2)
	CASE 3
		SOURCE:환락 = 2000
		CALL CHANGE_CFLAG(2, TARGET, 20 + RAND:10)
		CALL CHANGE_CFLAG(4, TARGET, 25 + RAND:10)
		CALL GET_SPELL_CARD_BONUS_YEN(5000, 2)
	CASE 4
		SOURCE:환락 = 2500
		CALL CHANGE_CFLAG(2, TARGET, 25 + RAND:10)
		CALL CHANGE_CFLAG(4, TARGET, 30 + RAND:10)
		CALL GET_SPELL_CARD_BONUS_YEN(10000, 2)
	CASE 5
		SOURCE:환락 = 3000
		CALL CHANGE_CFLAG(2, TARGET, 30 + RAND:20)
		CALL CHANGE_CFLAG(4, TARGET, 35 + RAND:20)
		CALL GET_SPELL_CARD_BONUS_YEN(15000, 2)
	CASEELSE
		SOURCE:환락 = 4000
		CALL CHANGE_CFLAG(2, TARGET, 40 + RAND:20)
		CALL CHANGE_CFLAG(4, TARGET, 40 + RAND:20)
		CALL GET_SPELL_CARD_BONUS_YEN(30000, 2)
	ENDSELECT
CASE "의뢰 실패시"
;실패 보고시の処理
;過酷な依頼なので少しだけ
	PRINTFORML BoNus FAilEd...
	CALL CHANGE_CFLAG(2, TARGET, -3)
	CALL CHANGE_CFLAG(4, TARGET, -2)
ENDSELECT

;依頼での弾幕勝負ができない場合は真
@CANNOT_DANMAKU
#FUNCTION
;拠点では屋内だとダメ（原作だとめっちゃやってるけど）
IF AT_HOME(MASTER) && !OUTROOF(CFLAG:MASTER:현재위치) && !전투훈련가능(CFLAG:MASTER:현재위치)
	RETURNF 1
;仕事中はダメ
ELSEIF CFLAG:TARGET:행동 == 5
	RETURNF 2
;あなたが疲労
ELSEIF BASE:MASTER:기력 < 500 || BASE:MASTER:체력 < 500
	RETURNF 3
;対象が疲労
ELSEIF BASE:TARGET:기력 < 500 || BASE:TARGET:체력 < 500
	RETURNF 4
;既に挑んでる
ELSEIF TCVAR:TARGET:탄막승부불능
	RETURNF 5
ENDIF
RETURNF 0


code:
;존부 함수
;F関数はTRYCALL系が使えないので通常関数で存否配列を作っちゃう
@EXIST_일반의뢰13
#LOCALSIZE 1
#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰13(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, @"상급식재 3개")
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, 3)
CASE "의뢰 발생 조건"
;와카사기히메以外
	SIF ARG != [[와카사기히메]]
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
;낚싯대を持ってる
	SIF ITEM:낚싯대
		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)
CASE "의뢰인 데리고 나가 가능"
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 SCENE
CASE "의뢰 조건 표시"
;何か専用の表示情報を設けたい時用
;受託済みの依頼表示で使用されます
;
;PRINT系だけでSOURCEとかは入れちゃダメ、WAITも無しで
;ここ以外の表示項目は
;PRINTFORML 　　　　　：
;となっているのでスペースを揃えたほうが見栄えが良いです

CASE "의뢰실행시"
;このCASEに限り、RESULTが意味を持ちます
;의뢰실행시のRESULTにはIRAI_CONST_RESULT()を使用してください
;可能な引数は"キャンセル", "실행해 성공", "実行して失敗", "실행해 미해결"です
;独自処理を仕込みたい時は"실행해 미해결"で先延ばしするなりしてください
	SOURCE:TARGET:환락 += 1000
	PRINTFORML %마스터는% %CALLNAME:TARGET%에게 맛있는물고기를 건네주었다
	PRINTFORML 왠지 살아갈 희망이 생겼어
	CALL LOST_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_ITEM("상급식재", 3, 2)
CASE "의뢰 실패시"
;실패 보고시の処理
	CALL CHANGE_CFLAG(2, TARGET, -5)
	CALL CHANGE_CFLAG(4, TARGET, -5)
ENDSELECT

path: ERB/커맨드관련/COMF/의뢰/일반의뢰13_맛있는생선이먹고싶네.ERB


code:
;존부 함수
;F関数はTRYCALL系が使えないので通常関数で存否配列を作っちゃう
	;暫定的コメントアウト
;@EXIST_일반의뢰14
;#LOCALSIZE 1
;#LOCALSSIZE 1

;오브젝트 본체
;여기서 ARG로 건네받는 것은 CLIENT_ID입니다
@일반의뢰14(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, @"싸구려식재 3개")
CASE "의뢰실행 커맨드 이름"
	CALLF MAKE_STR(V_NAME, "목재를 5개 전달")
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 "의뢰 발생율"
	IF DAY:2 == 4
	;冬は発生しやすい
		CALLF MAKE_INT(V_NAME, 10)
	ELSE
		CALLF MAKE_INT(V_NAME, 3)
	ENDIF
CASE "의뢰 발생 조건"
	CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰 수탁 가능 조건"
;목재を持ってる
	SIF ITEM:목재
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰실행 가능 조건"
	SIF ITEM:목재 >= 5
		CALLF MAKE_INT(V_NAME, 1)
;成功/失敗処理はCARRYOUTで直接書く
;SOURCEやITEM入手、消費が煩雑になるので
CASE "의뢰 소멸 조건"
	SIF RAND:100 < 30
		CALLF MAKE_INT(V_NAME, 1)
CASE "의뢰인 데리고 나가 가능"
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 SCENE
CASE "의뢰 조건 표시"
;何か専用の表示情報を設けたい時用
;受託済みの依頼表示で使用されます
;
;PRINT系だけでSOURCEとかは入れちゃダメ、WAITも無しで
;ここ以外の表示項目は
;PRINTFORML 　　　　　：
;となっているのでスペースを揃えたほうが見栄えが良いです

CASE "의뢰실행시"
;このCASEに限り、RESULTが意味を持ちます
;의뢰실행시のRESULTにはIRAI_CONST_RESULT()を使用してください
;可能な引数は"キャンセル", "실행해 성공", "実行して失敗", "실행해 미해결"です
;独自処理を仕込みたい時は"실행해 미해결"で先延ばしするなりしてください
	PRINTFORML %마스터는% %CALLNAME:TARGET%에게 목재를 건네주었다
	IF DAY:2 == 4
	;冬はメッセージあり
		PRINTFORML 이걸로 추위에 떨지 않고 끝나겠어, 라며 기뻐했다
		SOURCE:TARGET:환락 += 2000
	ELSE
		PRINTFORML
		SOURCE:TARGET:환락 += 1000
	ENDIF
	CALL LOST_ITEM("목재", 5, 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_ITEM("싸구려식재", 3, 2)
CASE "의뢰 실패시"
;실패 보고시の処理
	CALL CHANGE_CFLAG(2, TARGET, -5)
	CALL CHANGE_CFLAG(4, TARGET, -5)
ENDSELECT


code:
;存否関数
;F関数はTRYCALL系が使えないので通常関数で存否配列を作っちゃう
@EXIST_일반의뢰15
#LOCALSIZE 1
#LOCALSSIZE 1

;オブジェクト本体
;ここでARGで渡されるのはCLIENT_IDです
@일반의뢰15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "의뢰명"
	IF TALENT:ARG:무지
		CALLF MAKE_STR(V_NAME, @"%TEXTR("가슴이 두근두근거려/가랑이가 저릿저릿해")%")
	ELSEIF TALENT:ARG:마조
		CALLF MAKE_STR(V_NAME, @"%CALLNAME:MASTER%에게 %TEXTR("범해지고 싶어/엉망진창 당하고 싶어")%")
	ELSE
		CALLF MAKE_STR(V_NAME, @"%마스터가% 안아줬으면 해")
	ENDIF
CASE "의뢰내용 표시"
	IF TALENT:ARG:무지
		CALLF MAKE_STR(V_NAME, "어떻게든 해줘")
	ELSEIF TALENT:ARG:마조
		CALLF MAKE_STR(V_NAME, "바라는 대로 괴롭힌다")
	ELSE
		CALLF MAKE_STR(V_NAME, @"%CALLNAME:ARG%의 욕구 불만을 해소한다")
	ENDIF
CASE "의뢰 보수 표시"
	IF TALENT:ARG:무지
		CALLF MAKE_STR(V_NAME, "용돈")
	ELSE
	;性技術を売ると考えたら技巧*5000円とかのがいいのかも？
		CALLF MAKE_STR(V_NAME, "\\20000(호스트비)")
	ENDIF
CASE "의뢰실행 커맨드 이름"
	IF TALENT:ARG:무지
		CALLF MAKE_STR(V_NAME, "어떻게든 해 준다")
	ELSEIF TALENT:ARG:마조
		CALLF MAKE_STR(V_NAME, @"%ARG를% 범한다")
	ELSE
		CALLF MAKE_STR(V_NAME, @"%ARG를% 안는다")
	ENDIF
CASE "의뢰내용"
	CALLF MAKE_INT(V_NAME, MAKE_IRAI_DATA(0, "작업"))
CASE "의뢰 서브"
CASE "의뢰기한"

;発生時ではなく受託時に確定します
CASE "의뢰 발생율"

	;初期設定でヤリマン幻想郷にした場合は依頼発生頻度高すぎると阿鼻叫喚になりそうだからヤリマンの場合は確率低下
	;かわりに溜まってる度に関わらず発生するようにしてバランスが取れるといいなぁ
	IF TALENT:ARG:걸레
		CALLF MAKE_INT(V_NAME, 4)
	ELSEIF TALENT:ARG:자존심 == 1 || TALENT:ARG:수치심 == 1
		;プライドが高かったり恥じらいを持ってるキャラは言い出しづらいだろうから確率低下
		;CALLF MAKE_INT(V_NAME, 9)
		CALLF MAKE_INT(V_NAME, 50)
	ELSE
		;それ以外は発生条件が厳しめなので基本の発生率はとりあえず高めに
		;CALLF MAKE_INT(V_NAME, 15)
		CALLF MAKE_INT(V_NAME, 70)
	ENDIF

CASE "의뢰 발생 조건"
;섹프or애욕かつ욕구불만도500以上 or 걸레
	;debug
	;SIF TALENT:ARG:처녀
	SIF (TALENT:ARG:섹프 && CFLAG:ARG:욕구불만도 > 500) || (TALENT:ARG:애욕 && CFLAG:ARG:욕구불만도 > 500) || 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)
CASE "의뢰인 데리고 나가 가능"
	CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@IRAI_일반15(CHARA, IRAI_ID, SCENE)
#DIM  CHARA
#DIM  IRAI_ID
#DIMS SCENE
#DIM  CLIENT_ID
#DIM 장소
#DIMS 일기기술
;1=대상의 방 2=혼숙 여관・러브호텔 3=유카리 파생 전용 4=이외

#DIM 호감도상승량
#DIM 횟수
#DIMS PLACE
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になっている時のみ実行できます
;
;
;以下デフォルト地の文

IF TALENT:CLIENT_ID:무지
	PRINTFORML %마스터는% 미지의 흥분에 당황하며 뜨어운 숨결을 내쉬는 %CALLNAME:CLIENT_ID%의 손을 때고,
ELSEIF TALENT:CLIENT_ID:수치심 == 1
	PRINTFORML %마스터는% 부끄러운 듯 볼을 새빨갛게 물들이는 %CALLNAME:CLIENT_ID%의 손을 때고,
;紫の場合は以下の派生に繋げるために紫主導限定で
ELSEIF RAND:2 == 0 || CLIENT_ID == 26
	PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 요염한 미소를 얼굴에 띄우며 %CALLNAME:MASTER%의 손을 끌어 당겨,
ELSE
	PRINTFORML %마스터는% 당신을 원하는 듯 몸을 비비적대는 %CALLNAME:CLIENT_ID%의 %TEXTR("손을 끌어 당겨/허리를 끌어안으며/")%,
ENDIF

	;장소分岐
	;そのキャラの自室があるMAPの場合33%で自室に連れ込む
	IF GET_MAPID(CFLAG:MASTER:현재위치) == GET_MAPID(GET_CHARAHOME(CLIENT_ID)) && RAND:3 == 0
		PRINTFORMW %CALLNAME:CLIENT_ID%의 방으로 들어갔다
			IF TALENT:CLIENT_ID:자존심 == 1
				PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
				PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
			ELSE
			ENDIF
		장소 = 1
	;紫限定。自室以外は장소問わずこうなる
	ELSEIF CLIENT_ID == 26
		PRINTFORMW 시꺼먼 입을 벌린 스키마로 %마스터를% 이끌었다
		PRINTFORML
		PRINTFORMW ………
		PRINTFORML
		PRINTFORML
		PRINTFORMW ………………
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML
					PRINTFORML 스키마를 나서자 어딘가 환상향과는 다른 매캐한 공기와 밤거리 특유의 떠들석함이 %마스터를% 맞이했다
					PRINTFORMW 휘황찬란한 네온이 번쩍이는 간판이 시선을 끄는 이곳은 아무래도 바깥 세상의 러브호텔의 입구 앞인것 같다
					PRINTFORML
					PRINTFORMW 「이런 곳도 꽤나 운치가 좋죠？」
					PRINTFORML
					PRINTFORMW 그렇게 말하며 그녀는 %CALLNAME:MASTER%의 팔을 안고 러브호텔 안으로 걸음을 옮겼다
					CALL 일반의뢰15_AEGI_YUKARI
					PRINTFORML
					PRINTFORML 매직 미러 넘어에서 샤워하는 %CALLNAME:CLIENT_ID%의 모습에 욕정을 억제할 수 없어져
					PRINTFORMW %마스터는% 욕실에 난입하여 샤워하던 도중인 %조사처리(CALLNAME:CLIENT_ID,"를")% 덮쳤다
					PRINTFORML
					PRINTFORML 「잠깐인데도 못 기다리는 거야？」라고 말하면서도 입꼬리를 들썩이고 있는 %조사처리(CALLNAME:CLIENT_ID,"는")%
					PRINTFORMW 삽입된다는 기대로 축축하게 젖어든 보지에 %CALLNAME:MASTER%의 육봉이 삽입되자 아름다우면서도 귀여운 목소리가 목욕탕 가득 울려퍼졌다
					PRINTFORML
					PRINTFORML 벽에 손을 짚어 짐승처럼 뒤에서 자궁을 주무르자 %조사처리(CALLNAME:CLIENT_ID,"는")% 뒤로 몸을 젖히고 기뻐하며
					PRINTFORMW 질벽을 꾸욱꾸욱 조여대며 %CALLNAME:MASTER%의 육봉을 압박했다
					PRINTFORML
					PRINTFORML 이윽고 한계를 맞이한 %마스터가% %CALLNAME:CLIENT_ID%의 엉덩이의 정액을 뿌리자,
					PRINTFORMW 방울방울 흘러내리는 샤워로 흘러내리는 그것을 녹아내리는 눈으로 바라보면서 %조사처리(CALLNAME:CLIENT_ID,"는")% %마스터를% 부추겼다
					PRINTFORML
					PRINTFORMW 「다음은 샤워로 흘려보낼 수 없는 질내에, 넣어주지 않을래?」
					PRINTFORML
					PRINTFORML 2회차를 바라는 성원에 후폭풍을 생각하면서 육봉을 발기시킨 %마스터는% 샤워를 멈추고,
					PRINTFORMW 물이 뚝뚝 떨어지는 %조사처리(CALLNAME:CLIENT_ID,"를")% 공주님 안기로 안고 침대로 향하는 것이었다
				CASE 1
					PRINTFORML
					PRINTFORML 스키마를 나서자 독특한 유황의 냄새와 습하면서도 뜨겁게 달궈진 공기가 %CALLNAME:MASTER%의 폐를 가득 채웠다
					PRINTFORMW 나무들에게 둘러쌓인 가운데에 돌로 만들어진 욕조만 덩그러니 있는 이곳은 아무래도 온천인 것 같았다
					PRINTFORML
					PRINTFORMW 「바깥 세계의 숨겨진 탕이야. 이곳은 나 말고는 아무도 들어올 수 없어.」
					PRINTFORML
					PRINTFORMW 그렇게 말한 그녀는 득의양양하게 %CALLNAME:MASTER%에게 추파를 던지며 엇을 훌렁훌렁 벗기 시작했다
					CALL 일반의뢰15_AEGI_YUKARI
					PRINTFORML
					PRINTFORML 처음에는 단순히 따뜻한 온천을 즐기기만 하였으나, 옆에서 뜨거운 물에 잠긴 %조사처리(CALLNAME:CLIENT_ID,"를")%
					PRINTFORMW %마스터가% 참는다는 건 불가능했기에 정신을 차리자 %조사처리(CALLNAME:CLIENT_ID,"를")% 끌어안고, 교미로 이어지고 있었다
					PRINTFORML
					PRINTFORML %CALLNAME:CLIENT_ID%의 취향인지 붉게 달아오른 당신의 목덜미에 달라 붙으혀 혀로 애무하는 그녀의 비렬에 육봉을 박아넣었다
					PRINTFORMW 서로가 서로의 몸을 애무하며 대면좌위 자세로 당신의 육봉으로 그녀의 자궁구를 꾸욱꾸욱 찔러 올리면 %조사처리(CALLNAME:CLIENT_ID,"는")% 움찔거리며 몸을 떨면서 달콤한 소리를 흘려댔다
					PRINTFORML
					PRINTFORML 이윽고 한계를 맞은 %CALLNAME:MASTER%의 어디에 싸면 좋겠어 라고 묻자, 열과 쾌락에 완전히 녹아내린 %조사처리(CALLNAME:CLIENT_ID,"는")%
					PRINTFORMW 쾌감에 허덕일 뿐 대답하지 못한채 %CALLNAME:MASTER%의 정액을 질 깊숙히 받아들였다
				CASE 2
					PRINTFORML
					PRINTFORML 스키마를 나서자 찬란하게 내리쬐는 태양과 기분좋은 바닷바람이 %마스터를% 감쌌다
					PRINTFORMW 새하얀 모래가 덮여있는 백사장에 저 멀리의 수평선 주위에는 야자나무 등 환상향과 다른 식생의 나무가 우거진 이곳은 아무래도 바깥세계의 남쪽 나라 같다
					PRINTFORML
					PRINTFORMW 「이곳은 이름 없는 무인도. 가끔은 이렇게 개방적인 곳도 괜찮겠죠？」
					PRINTFORML
					PRINTFORMW 그렇게 말한 그녀는 옷 따위는 멋없다는 듯 호쾌하게 옷을 벗어던지고 %CALLNAME:MASTER%의 옷을 벗겼다
					CALL 일반의뢰15_AEGI_YUKARI
					PRINTFORML
					PRINTFORMW 모래사장에 난 야자수에 손을 짚고, %조사처리(CALLNAME:CLIENT_ID,"를")% %마스터는% 짐승처럼 어울리고 있다
					PRINTFORML
					PRINTFORML 내리쬐는 태양에 흐르는 땀과 눈부신 금발을 반짝이면서 %마스터가% 주는 쾌락에 취한 %CALLNAME:CLIENT_ID%의 자태는 아름다웠고
					PRINTFORMW 야생적인 해방감과 함께 마치 신화의 세계로 빠져든 듯한 착각을 %CALLNAME:MASTER%에게 가져왔다
					PRINTFORML
					PRINTFORML 비일상감에 꼼짝없이 사정욕이 상승한 %마스터가% 당신의 눈 앞의 미녀에게 어디에 싸줄까 라며 페니스를 뽑으려 하자
					PRINTFORMW %조사처리(CALLNAME:CLIENT_ID,"는")% 힐끗 돌아보더니 그녀의 허리를 잡은 %CALLNAME:MASTER%의 손을 살짝 어루만졌다
					PRINTFORML
					PRINTFORMW 「이곳은 야생, 짐승의 세계. 암컷을 붙잡은 수컷이 그 씨를 뿌리는 곳은 어디인지 당신이라면 잘 알겠지？」
					PRINTFORML
					PRINTFORMW 여신같은 극상의 암컷에게 그렇게 선정적인 한숨을 당신의 귀에 내뿜으면 이제 더는 견딜 수가 없다
					PRINTFORML
					PRINTFORML %마스터가% 남근을 퍽퍽 뿌리까지 박아넣고, 원하는 대로 자궁 속까지 가득 마킹해주자
					PRINTFORMW 쾌락에 흐느끼는 이 아름다운 암컷은 한층 더 달콤한 소리를 내며 절정에 몸을 떨었다
				CASE 3
					PRINTFORML
					PRINTFORML 스키마를 나서자 말 그대로 환상향보다 역한 매캐한 공기와 밤거리 특유의 떠들석함이 %마스터를% 맞이했다
					PRINTFORMW 햇빛이 드높은 고층건물에 가려져 주위는 어둑어둑했고 주변에는 버려진 빈 깡통과 담배꽁초가 흩어진 이곳은 아무래도 바깥 세계의 골목길일까
					PRINTFORML
					PRINTFORMW 「말 그대로『쓰레기장의 학』, 그치？ 자, 와줘？」
					PRINTFORML
					PRINTFORMW 그녀는 그렇게 말하며 벽에 손을 대고, 엉덩이를 흔들면서 %마스터를%의 욕정을 불러일으켰다
					CALL 일반의뢰15_AEGI_YUKARI
					PRINTFORML
					PRINTFORMW 뒷골목에서 %CALLNAME:CLIENT_ID%의 음란한 교성이 울려퍼지기 시작했다
					PRINTFORML
					PRINTFORML 언제 사람이 올지 모르는 장소에서의 노출 섹스는 %CALLNAME:CLIENT_ID%의 쾌락을 증진시켰고,
					PRINTFORMW %마스터가% 자궁구를 찔러올 때마다 쾌락에 온 몸을 움찔움찔 떨었다
					PRINTFORML
					PRINTFORML 더는 참을 수 없어진 %마스터가% 피스톤 운동을 한 층 더 격렬하게 하자 그녀의 교성은 한층 더 격렬해 지고
					PRINTFORMW 자궁구에 몇번이나 질내사정당한 %조사처리(CALLNAME:CLIENT_ID,"는")% 크게 절정했다
					PRINTFORML
					PRINTFORMW 절정의 여운에 숨을 헐떡이며, %조사처리(CALLNAME:CLIENT_ID,"는")% 사정으로 시든 %CALLNAME:MASTER%의 육봉 앞에 무릎을 꿇고
					PRINTFORML
					PRINTFORML 츄릅…츄웁…하며 자애로운 청소 펠라로 %CALLNAME:MASTER%의 육봉은 순식간에 다시 단단함을 되찾기 시작해
					PRINTFORMW 뒷골목에서는 다시 쾌락에 녹아내린 한 여성의 달콤한 신음소리가 울려 퍼지기 시작하는 것이였다

				;ここまで書いといてなんだけどいまいちピンと来なかったのでコメントアウトしとく
;				CASE 4
;					PRINTFORML
;					PRINTFORML 스키마를 나서자 눈앞에 펼쳐지는 것은 어딘가 그리운 광경
;					PRINTFORMW 제대로 열을 맞춰 늘어선 책상과 의자 칠판과 커다란 TV, 그리고 교단이 있는 이곳은……학교인가？
;					PRINTFORML
;					PRINTFORMW 「후후후, 마음에 드나？」
;					PRINTFORML
;					PRINTFORMW 평소의 유카리보다 조금 어려진 목소리에 뒤돌아보니 그곳에는 교복차림의 유카리가 창문을 등지고 서 있었다
;					PRINTFORMW 평소와 다른 뭔가 신기루를 보는 듯한 분위기에 감싸인 그녀는 꽤나 어려진 듯 했고 키도 꽤 많이 줄어 든 것 같아 마치 초등학생 급으로 줄어들었다
;					PRINTFORML
;					PRINTFORMW 「장소에 맞춰서 모습도 좀 바꿔봤어~. 이미지 플레이의 일환이야~」
;					PRINTFORML
;					PRINTFORML 그렇게 말하며 유카리는 %마스터를% 손가락으로 가르켰다
;					PRINTFORMW 밑을 보니 언제부턴가 %CALLNAME:MASTER% 도 교복을 입고 있었던 것이였다
;					PRINTFORML
;					PRINTFORML 당황해하는 %마스터를% 보며 킥킥 웃으며 초등학생 유카리는 살랑살랑 엉덩이를 흔들면서 당신에게 다가가더니 당신의 바지 위를 쓰다듬으며 귀에 한숨을 뿜으면서 음란한 목소리로 속삭였다
;					PRINTFORML
;					PRINTFORMW 「모처럼 어려졌으니까 부르는 방법도 좀 바꿔볼까?」
;					CALL HPH_PRINT("「자, 기분 좋은일 하는 방법 알려주지 않을래？ 오빠HPH」","W")
;					CALL 일반의뢰15_AEGI_YUKARI
;					PRINTFORML
;					PRINTFORMW 침대 대신하여 책상 두개를 연결한 %CALLNAME:MASTER% 와 %조사처리(CALLNAME:CLIENT_ID,"는")% 그 위에서 알몸으로 어울리기 시작했다
			ENDSELECT
			장소 = 3
	ELSE
		SELECTCASE GET_MAPID(CFLAG:MASTER:현재위치)
			;신사
			CASE 0
				PRINTFORMW 인기척 없는 %TEXTR("창고 뒷편으/별채 뒷편으/화장실 안으/가까운 덤불 안쪽으/가까운 나무 그늘/")%로 %TEXTR("이끌었다/데리고 갔다/")%
					IF TALENT:CLIENT_ID:자존심 == 1
						PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
						PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
					ELSE
					ENDIF
				IF !RAND:2
					CALL 일반의뢰15_AEGI_ROSYUTSU("신정한 신사의 한 구석", "에서,", "새어 들려왔다")
				ELSE
					CALL 일반의뢰15_AEGI_ROSYUTSU("신성한 신사의 한 구석", "에,", "울렸다")
				ENDIF
				장소 = 4

			;寺
			CASE 1
				PRINTFORMW 인기척 없는 %TEXTR("경당의 뒷편으/본당의 뒷편으/강당의 뒷편으/화장실 안으/가까운 덤불 안쪽으/가까운 나무 그늘/")%로 %TEXTR("이끌었다/데리고 갔다/")%
					IF TALENT:CLIENT_ID:자존심 == 1
						PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나
						PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
					ELSE
					ENDIF
				IF !RAND:2
					CALL 일반의뢰15_AEGI_ROSYUTSU("조용한 명련사의 한 구석", "에서,", "새어 들려왔다")
				ELSE
					CALL 일반의뢰15_AEGI_ROSYUTSU("조용한 명련사의 한 구석", "에,", "울렸다")
				ENDIF
				장소 = 4
			;마을
			CASE 2
				;코스즈 한정으로 50% 로 당신을 데리고 들어와 숙소에서 야스한다. 파파카츠라서 상대방이 돈을 낸다
				IF CLIENT_ID == 70 && RAND:2 == 0
					PRINTFORMW 스즈나안 깊숙히 들어가자 책장의 그늘로 몸을 기댔다
					PLACE = 카운터에「임시 휴업」이라는 팻말이 걸린 마을 서점 안쪽
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울렸다")
					ENDIF
					장소 = 4
				;마을 한정으로 50%로 당신을 데리고 들어와 숙소에서 야스한다. 파파카츠라서 상대방이 돈을 낸다
				ELSEIF RAND:2 == 0
					PRINTFORMW 잠깐 쉬러 여관에 들어갔다
					장소 = 2
				ELSE
					PRINTFORMW 인기척 없는 %TEXTR("연립 주택 뒷편으/구석진 골목길/서당 근처의 나무 그늘/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 마을의 떠들석함에 섞여 들어가,
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "", "울렸다")
					ENDIF
					장소 = 4
				ENDIF
			;홍마관
			CASE 3
				;파츄리와 소악마는 50% 확률로 도서관 책장 뒤에서
				IF (CLIENT_ID == 54 && RAND:2 == 0) || (CLIENT_ID == 59 && RAND:2 == 0)
					PRINTFORMW 도서관 안쪽으로 들어가 서가 사이의 어둠 속으로 들어갔다
					PLACE = 어둑어둑한 도서관 서가 사이
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울렸다")
					ENDIF
					장소 = 4
				;사쿠야 한정。紅魔館に蒸留室(スティルルーム)とかあんのかね…？
				ELSEIF CLIENT_ID == 15 && RAND:2 == 0
					PRINTFORMW 사용하지 않는 응접실 중 하나로 데리고 들어가, 찰칵 소리를 내며 문을 닫았다
					PLACE = 잠긴 응접실 문 너머
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					장소 = 4
				ELSEIF RAND:3 >= 1
					PRINTFORMW 인기척 없는 %TEXTR("홍마관 큰 방의 커튼 안쪽으/홍마관 중앙 계단 그늘/창고의 어두운 안쪽으/화장실 안으/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 흡혈귀의 성 한구석
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울렸다")
					ENDIF
					장소 = 4
				ELSE
					PRINTFORMW 인기척 없는 %TEXTR("안개 낀 호숫가의 나무 그늘/안개 낀 호숫가의 덤불 안쪽으/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 안개 낀 어둑어둑한 호숫가
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에, 물결 소리에 섞여", "울리고 있었다")
					장소 = 4
				ENDIF
			;죽림
			CASE 4
				;여름 한정 카자미 유카 파생(自室派生込みで条件かなりきついので発生は100%)
				IF CLIENT_ID == 68 && DAY:2 == 2
					PRINTFORMW 태양의 밭으로 향하자 당신은 찬란하게 피어나는 해바라기 속에 그 몸을 살짝 밀어 넘어뜨렸다
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 한여름에 내리쬐는 태양처럼 눈부신 해바라기들 사이
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					ENDIF
					장소 = 4
				;미스티아 한정
				ELSEIF CLIENT_ID == 28 && RAND:2 == 0
					PRINTFORMW 준비중인 포장마차의 뒷편의 그늘에 숨듯이 몸을 기댔다
					PLACE = 판매 준비를 시작하지도 않은 포장마차의 뒷편
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					장소 = 4
				ELSEIF RAND:3 >= 1
					PRINTFORMW 인기척 없는 %TEXTR("내객용 화장실 /헛간의 그늘 /대나무 숲 안쪽 /")%에 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 영원정 한 구석
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					ENDIF
					장소 = 4
				ELSE
					PRINTFORMW 인기척 없는 대나무 숲 깊숙히 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 서걱서걱 술렁이는 미혹의 대나무 숲 속
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					ENDIF
					장소 = 4
				ENDIF
				;마법의 숲 파생이 생각 외로 적다 가필 하고 싶으면 맘대로
			CASE 5
			;앨리스 한정
				IF CLIENT_ID == 17 && RAND:2 == 0
					PRINTFORMW 그녀의 연구실에 데리고 들어가, 찰칵 소리를 내며 문을 닫았다
					PLACE = 평소에도 연구를 하는데 쓰이는 신성함이라 할 수도 있는 장소
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					ENDIF
					장소 = 4
				ELSE
					PRINTFORMW 인기척 없는 %TEXTR("큰 나무 옆 수풀 속/향림당 근처의 수풀 속/대나무 숲 속/")%으로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 마법의 숲의 술렁거림에 섞
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "여서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "일 수 있도록,", "울리고 있다")
					ENDIF
					장소 = 4
				ENDIF
			;冥界 白玉楼マヨヒガ是非曲直庁畜生界と大型拠点が多すぎて派生장소を下手に設定できない…
			;他人のおうちテリトリーにわざわざ入り込んでスるのはなんか違う…(例 えーき様があなたを八雲邸につれこんでしっぽり)
			;ということで加筆できるなら超欲しいやつ
			;派生先があんまりなんでキャラ用の分岐増やして確率100%にしてどうにかごまかすやつ。
			CASE 6
				;에이키 한정。법단이란 재판관(제판장) 이 앉는 자리。法廷正面のちょっと高くなってるアレ。インモラル裁判長…
				IF CLIENT_ID == 30
					PRINTFORMW 남이 열어둔 법정의 문을 닫고 단 둘이서, 법단의 그늘로 몸을 피했다
					PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 부끄러움을 감추듯 언제나처럼 잔소리를 쏟아내며 새침한 표정을 짓고는 있지만
					PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
					PLACE = 죄인을 심판하는 신성한 법정
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울려퍼졌다")
					장소 = 4
				;코마치 한정
				ELSEIF CLIENT_ID == 76
					PRINTFORMW 피안화가 흐드러지게 핀 꽃밭 속에 그녀의 몸을 사뿐히 밀어 넘어뜨렸다
					PLACE = 숨이 막혀 질식할 듯한 피안화의 짙은 향기 속
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					장소 = 4
				;요우무,유유코 한정
				ELSEIF CLIENT_ID == 23 || CLIENT_ID == 66
					PRINTFORMW 인적이 없는 백옥루의 %TEXTR("빈 방/거실/부엌/화장실 안/")%에 데리고 들어가 그녀와 몸을 맞댔다
					PLACE = 명계 제일 훌륭한 저택의 한 방
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					장소 = 4
				;八雲家限定
				ELSEIF CLIENT_ID == 24 || CLIENT_ID == 25 || CLIENT_ID == 26
					PRINTFORMW 인적이 없는 마요이가의 %TEXTR("빈 방/거실/부엌/화장실 안/")%에 데리고 들어가 그녀와 몸을 맞댔다
					;PRINTFORMW 인적이 없는 백옥루의 %TEXTR("빈 방/거실/부엌/화장실 안/")%에 데리고 들어가 그녀와 몸을 맞댔다
					PLACE = 찾은 사람에게 부를 가져다 준다고 전해지는 마요이가 그곳의 한 방
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					장소 = 4
				;축생계 거주 한정…と思ったんだけど正直畜生界の設定とかよくわかってないのでここだけ全員自室行き。だれか書いて(切実)
				ELSEIF CLIENT_ID == 130 || CLIENT_ID == 131 || CLIENT_ID == 132 || CLIENT_ID == 133
					PRINTFORMW %CALLNAME:CLIENT_ID%의 방으로 들어갔다
					장소 = 1
				;기타 あまりにも適当
				ELSE
					PRINTFORMW 인기척 없는 %TEXTR("가까운 덤불/가까운 나무 뒷편으/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 산 자가 없는 고요한 명계의 한 구석
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					ENDIF
					장소 = 4
				ENDIF
			;요괴의 산 山麓 景観ががっつり山というか山道だからどうにも派生先が…
			CASE 7
				;니토리 한정
				IF CLIENT_ID == 51 && RAND:2 == 0
					PRINTFORMW 캇파의 아지트 안쪽 구석의 비밀방으로 데리고 들어가 서로 끌어안았다
					PLACE = 캇파들 목소리의 떠들석함에 섞여,
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "", "새어 들려왔다")
					장소 = 4
				ELSE
					PRINTFORMW 인기척 없는 %TEXTR("큰 두꺼비의 연못가/연못 근처의 수풀 안쪽으/연못가 근처의 샤워장 옆 수풀 안쪽으/가까운 수풀 안쪽/가까운 나무 그늘으/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 나무가 바람에 살랑거리는 소리에 섞
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "여서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "일 수 있도록,", "울리고 있다")
					ENDIF
					장소 = 4
				ENDIF
			;요괴의 산 정산
			CASE 8
				;天子,이쿠 한정 衣玖限定
				IF  (CLIENT_ID == 34 && RAND:2 == 0) || (CLIENT_ID == 35 && RAND:2 == 0)
					PRINTFORMW %TEXTR("아무도 없는 복숭아 나무 밭의 한 복숭아 나무 그늘/인적이 없는 유정천길 골목 안쪽/")%에 몸을 기댔다
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나,
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 인간계에 비해 자극이 별로 없는 평온했던 천계에
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "", "울리고 있다")
					장소 = 4
				;もりやさんち限定
				ELSEIF (CLIENT_ID == 31 && RAND:2 == 0)  || (CLIENT_ID == 32 && RAND:2 == 0)  || (CLIENT_ID == 33 && RAND:2 == 0)
					PRINTFORMW %TEXTR("본전 거실/본전 화잘실/")%에 데리고 가자, 아무도 없는 것을 확인하고는 서로 껴안았다
					PLACE = 말 그대로 신이 기거하는 신사의 한 방
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울리고 있다")
					ENDIF
					장소 = 4
				ELSE
					PRINTFORMW 인기척 없는 %TEXTR("구천 폭포의 안쪽 동굴/산의 호수의 호숫가의 커다란 바위 그늘/삭도역 옆 덤불 속으/가까운 덤불/가까운 나무 그늘/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 바람에 흔들리는 나무들의 속삼임에 섞
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "여서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "일 수 있도록,", "울리고 있다")
					ENDIF
					장소 = 4
				ENDIF
			;地底
			CASE 9
				;파르시 한정으로 하지 않으면 그녀의 질투가 위험해 パルスィ限定 限定にしないと嫉妬がヤバい
				;手が滑って川の土手の下の前に「滅多に人が来ない」って入れそうになったよね…
				IF CLIENT_ID == 60 && RAND:2 == 0
					PRINTFORMW 아무도 없는 %TEXTR("다리 아래/강둑 아래/")%에 서로의 몸에 의지하며 끌어안았다
					PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 부끄러운지 뾰로통한 표정을 지으며 평소와 같이 「질투나네요」 라는 말을 하고는 있지만
					PRINTFORMW 그 어느 때보다 열띤 시선과 기대감에 새빨게진 볼은 숨기지 못하고 있다
					PLACE = 그녀가 지키는 다리 밑
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울려 퍼지고 있었다")
					장소 = 4
				;사토리 한정 さとり限定
				ELSEIF CLIENT_ID == 49
					PRINTFORMW 그녀를 서재로 데리고 들어가 살며시 문을 닫았다
					PLACE = 매일매일 언제나 지저의 일을 처리하는 그녀의 업무 책상을
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "앞으로 해서,", "울렸다")
					장소 = 4
				;코이시 한정도 만들고 싶었다 こいし限定も作りたかった(過去形)だれかつくって
				;ELSEIF CLIENT_ID == 38

				;지저에도 러브호텔 있으니 50% 확률로 그곳에 들어간다 地底にもラブホあったから50%でしっぽりする。ホ別だからあなたの懐は痛まない
				ELSEIF RAND:2 == 0
					PRINTFORMW 지저의 러브호텔로 그녀를 데리고 들어갔다
					장소 = 2
				ELSE
					PRINTFORMW 인기척 없는 %TEXTR("옛 지옥 도심지 번화가의 골목 안쪽으/옛 지옥 도심지 번화가의 빈 집 안쪽으/지저 온천 근처의 나무 그늘/그 누구도 알지 못하는 오두막집 안쪽으/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
					PLACE = 지저의 요괴들의 목소리에 섞
					IF !RAND:2
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "여서,", "새어 들려왔다")
					ELSE
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "일 수 있도록,", "울리고 있다")
					ENDIF
					장소 = 4
				ENDIF
			;달 月 設備とかわかんねぇ！ので！適当！
			CASE 10
				IF RAND:3 >= 1
					PRINTFORMW 인기척 없는 %TEXTR("달의 도시의 뒷골목으/옥토끼 거리의 뒷골목으/복숭아 숲의 나무 그늘/")%로 %TEXTR("이끌었다/데리고 갔다/")%
						IF TALENT:CLIENT_ID:자존심 == 1
							PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나
							PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
						ELSE
						ENDIF
						PLACE = 더러움이라는 것을 절대 용납하지 못 하는 달의 대지
						CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울려퍼졌다")
						장소 = 4
				ELSE
					PRINTFORMW 인기척 없는 달의 도시의 뒷골목으로 %TEXTR("이끌었다/데리고 갔다/")%
					IF TALENT:CLIENT_ID:자존심 == 1
						PRINTFORML %조사처리(CALLNAME:CLIENT_ID,"는")% 당신이 흥분을 깨닫지 못 하도록 새침한 표정을 지었으나
						PRINTFORMW 평소보다 뜨거워진 숨결과 새빨개진 볼은 숨기지 못하고 있다
					ELSE
					ENDIF
					PLACE = 더러움이라는 것을 절대 용납하지 못 하는 달의 수도
					CALL 일반의뢰15_AEGI_ROSYUTSU(PLACE, "에,", "울렸다")
					장소 = 4
				ENDIF
			ENDSELECT
	ENDIF
	PRINTFORML

	IF 장소 == 1 || 장소 == 2
		PRINTFORM %조사처리(CALLNAME:CLIENT_ID,"는")%
			IF 장소 == 1
				PRINTFORML %마스터를% 방에 들여보내자,
			ELSE
				PRINTFORML 들어온 방의 열쇠를 잠그자,
			ENDIF
		PRINTFORMW 더 이상 참을 수 없다는 듯 %CALLNAME:MASTER%의 목에 팔을 감싸고 입술을 쭈욱 내밀며 당신과의 키스를 졸라댔다.
		PRINTFORM %CALLNAME:MASTER%가 원하는 대로
			SIF TALENT:CLIENT_ID:키스미경험
				PRINTFORM 아직 누군가와도 입을 마주친 적이 없는 그녀의 입술에
		PRINTFORML 입을 맞춰주면 %조사처리(CALLNAME:CLIENT_ID,"는")% 욕정과 기쁨에 몸을 베베 꼬았다.
		CALL HPH_PRINT(@"허리를 문질…HPH 문질…HPH 하며 %CALLNAME:MASTER%의 육봉으로 문질러 왔다","W")
		PRINTFORML ・
		PRINTFORML ・
		PRINTFORMW ・
		SELECTCASE RAND:6
		CASE 0
			CALL HPH_PRINT("「앙HPH 앗HPH 거깃HPH 좋앗HPH」","W")
		CASE 1
			CALL HPH_PRINT("「앗HPH 거깃HPH 흐앙HPH 가버렷HPH」","W")
		CASE 2
			CALL HPH_PRINT("「아앙HPH 거기HPH 거기 좋앗HPH 앗,히잇……HPH」","W")
		CASE 3
			CALL HPH_PRINT("「음 츄웁…HPH 츕HPH 후아HPH 음음～～～츕HPHHPH」","W")
		CASE 4
			CALL HPH_PRINT("「하앗HPH 응앗HPH 아앗HPH 아앗～～～읏HPH」","W")
		CASE 5
			CALL HPH_PRINT("「앗HPH 그쪽만 그렇게 하면HPH 또 가버렷HPH 간닷HPH 응으으……읏HPHHPH」","W")
		ENDSELECT
		PRINTFORML
		IF 장소 == 1
			PRINTFORM %CALLNAME:CLIENT_ID%의 방
		ELSEIF 장소 == 2 && GET_MAPID(CFLAG:MASTER:현재위치) == 2
			PRINTFORM 마을사람들의 떠들썩함이 섞인 혼숙여관의 한 방
		ELSE
		;IF 장소 == 2 && GET_MAPID(CFLAG:MASTER:현재위치) == 9
			PRINTFORM 어두컴컴한, 말 그대로 언더그라운드한 러브호텔의 한 방
		ENDIF
	PRINTFORM 에서,
	PRINTFORMW %TEXTR("질척질척 하는 거친 물소리/「팡 팡」하는 파열음 비슷한 소리/운동을 하는 듯 거친 두 사람의 호흡 소리")%와 %TEXTR("녹아내리는 듯한 암컷의 신음 소리가/암컷으로 태어난 기쁨의 소리가/쾌락에 허덕이는 신음 소리가/여자답지 않은 교성이/")% 울려퍼졌다
		SIF TALENT:CLIENT_ID:무지
			PRINTFORMW 머리로는 이해되지 않더라도, %CALLNAME:MASTER%의 손으로 암컷의 본능에 눈뜨게한 %CALLNAME:CLIENT_ID%의 몸은 완전한 쾌락의 포로다
	SELECTCASE RAND:5
	CASE 0
		PRINTFORML
		PRINTFORMW %마스터는% 끈적끈적한 애무와 능숙한 허리놀림으로 %조사처리(CALLNAME:CLIENT_ID,"를")% 애태우게 만들었다
		PRINTFORML
		PRINTFORML 가기 직전마다 계속 끊겨 이제 더 이상 참을 수 없어진 %CALLNAME:CLIENT_ID%의 입에서
		PRINTFORML 「질내사정 해주세요」라는 말을 이끌어낸 %마스터는% 끼웠던 콘돔을 빼고,
		PRINTFORMW %CALLNAME:CLIENT_ID%의 실컷 애태워져 내려앉은 자궁에 듬뿍 정액을 먹여주었다
	CASE 1
		PRINTFORMW %마스터는% %CALLNAME:CLIENT_ID%의 욕망대로 대면좌위로 연결되어 있다
		PRINTFORML
		CALL HPH_PRINT(@"분위기를 띄우기 위해서인지, 아니면 진심인건지, 귓전에 %CALLNAME:CLIENT_ID%에게 「좋아…HPH 좋아해…HPH」라며 속삭일 때 마다","L")
		PRINTFORMW %CALLNAME:MASTER%의 육봉은 질내에서 더더욱 단단해져갔다.
		PRINTFORML
		PRINTFORML 이윽고 서로 한계가 가까워짐에 따라 움직임이 심해지자, 혀가 돌지 않게 된 %조사처리(CALLNAME:CLIENT_ID,"는")%
		PRINTFORMW 정담을 나누는 대신 사정을 재촉하는 조임으로 %CALLNAME:MASTER%에게 쾌락을 주었다
	CASE 2
		PRINTFORMW 방에 들어서자마자 계속해서 서로를 껴안고 있던 두 사람은 질척질척하게 젖어있다
		PRINTFORML
		PRINTFORML 옷을 벗기 위해 껴안는 걸 풀 생각조차 하지 않던 %CALLNAME:CLIENT_ID%의 옷은 땀과 체액으로 축축하게 젖었고,
		PRINTFORMW %CALLNAME:MASTER%의 옷과 달라붙어 두 사람의 연결을 더욱 공고히 하고 있었다.
		PRINTFORML
		PRINTFORML 그녀의 안쪽을 격렬하게 찔러대며 「이 옷 상태라면 방을 나간 후가 큰일이다」라며 붉게 물든 귀에 속삭이자
		PRINTFORMW %조사처리(CALLNAME:CLIENT_ID,"는")% 상상을 했는지 더더욱 시뻘겋게 귀를 물들이면서도, %마스터를% 끌어안은 손을 더욱 세게 했다
	CASE 3
		PRINTFORMW %조사처리(CALLNAME:CLIENT_ID,"는")% 머리카락을 흩날리면서 %CALLNAME:MASTER%의 위에서 허리를 흔들고 있다
		PRINTFORML
		PRINTFORML 빙글빙글하며 허리를 그라인드시켜 쾌락을 탐하는 %CALLNAME:CLIENT_ID%의 %TEXTR("젖꼭지/클리토리스/")%를 기습하며 손가락으로 문질러 주면,
		PRINTFORMW 괴로운듯한 신음소리와 함께 흠칫 몸을 떨면서 절정했다.
		PRINTFORML
		PRINTFORML 몸도 마음도 완전히 녹아내린 %조사처리(CALLNAME:CLIENT_ID,"가")% 요구하는대로 두 사람은 계속해서 서로의 몸을 섞어갔으며
		PRINTFORMW 문을 닫은 방 안에는 땀어린 열기와 오줌냄새와 쾌락의 냄새가 짙어지기 시작했다.
	CASE 4
		IF 장소 == 2
			PRINTFORMW %조사처리(CALLNAME:CLIENT_ID,"는")% 방에 비치된 메이드 옷을 입고서는 %CALLNAME:MASTER%에게 봉사하고 있다
			PRINTFORML
			CALL HPH_PRINT(@"달콤하게 녹아내린 목소리로 %조사처리(CALLNAME:CLIENT_ID,"가")%「주인니임…HPH」이라며 음란하게 속삭이자,","L")
			PRINTFORMW %CALLNAME:MASTER%의 육봉은 한층 더 단단해지기만 할 뿐, 조금도 시들 기미가 보이지 않는다
			PRINTFORML
			PRINTFORML 지금만은 %CALLNAME:MASTER%만의 종자가 된 %조사처리(CALLNAME:CLIENT_ID,"와")%의 섹스는 뜨겁게 달아올라
			PRINTFORMW 숙소의 퇴실시간이 된 무렵에는 비치된 의상이 %마스터가% 뿜어낸 백탁으로 보기에도 무참한 상태가 되어 있었다
		ELSE
			PRINTFORMW %조사처리(CALLNAME:CLIENT_ID,"는")% 속옷 차림으로 %CALLNAME:MASTER%에게 봉사하고 있었다.
			PRINTFORML
			PRINTFORML 「%마스터가% 사정할 때마다 다른 속옷으로 갈아입어야 한다」는 규칙으로
			PRINTFORML 음란한 패션쇼 장소가 되어버린 %CALLNAME:CLIENT_ID%의 방에는
			PRINTFORMW 이미 여러 벌의 속옷이 두 사람의 체액으로 뒤범벅되어 방 여기저기 나뒹굴고 있었다.
			PRINTFORML
			PRINTFORML 마음에 든다고 말하는 속옷차림으로 %CALLNAME:MASTER%의 위에서 허리를 흔드는 %CALLNAME:CLIENT_ID%에게
			PRINTFORML 「그 속옷을 입을 때 마다 오늘의 정사를 떠올리길 바라」라고 속삭이며 듬뿍 정을 쏟아내자
			PRINTFORMW %조사처리(CALLNAME:CLIENT_ID,"는")% 격렬한 절정과 환희에 몸을 떨며 수줍게 고개를 끄덕이는 것이었다..
		ENDIF
	ENDSELECT
	ELSEIF 장소 == 4
		SIF TALENT:CLIENT_ID:무지
			PRINTFORMW 머리로는 이해되지 않더라도, %CALLNAME:MASTER%의 손으로 암컷의 본능에 눈뜨게한 %CALLNAME:CLIENT_ID%의 몸은 완전한 쾌락의 포로다
		PRINTFORML
		PRINTFORMW %TEXTR("망측한 모습을 볼 수 없도록/신음소리를 내는 건 역시 부끄러운 듯 해서/")%, %TEXTR(@"입을 손으로 막아/%CALLNAME:MASTER%의 입술에 달라붙어/입술을 깨물면서/고개를 숙여/")% 필사적으로 신음소리를 참고있는 모습이 너무나도 사랑스럽다
		PRINTFORML
		PRINTFORM %TEXTR("뒤치기/대면입위/")%로
		SELECTCASE RAND:5
		CASE 0
			PRINTFORML 머리를 쓰다듬고 귓가에 달콤한 말을 속삭이며
		CASE 1
			PRINTFORML 클리토리스를 주무르듯 자극하면서
		CASE 2
			PRINTFORML 손가락으로 애널을 주무르듯 자극하면서
		CASE 3
			IF TALENT:CLIENT_ID:가슴사이즈 >= 1
				PRINTFORM %TEXTR("부드러우며 탱글한/어른스럽게 풍만해진/")%
			ELSEIF TALENT:CLIENT_ID:가슴사이즈 == -1
				PRINTFORM %TEXTR("다소곳한/손 안에 쏙 들어오는/")%
			ELSEIF TALENT:CLIENT_ID:가슴사이즈 == -2
				PRINTFORM %TEXTR("살집 앏은/갈비뼈가 도드라진/")%
			ELSE
				PRINTFORM 당신의 움직임에 맞춰 흔들리는
			ENDIF
			PRINTFORML 가슴을 주무르면서
		CASE 4
			IF ABL:CLIENT_ID:마조끼 >= 3
				PRINTFORML 젖꼭지를 손가락으로 꽉 꼬집어 짓눌러
			ELSE
				PRINTFORML 젖꼭지를 손가락으로 문지르듯 쓸어올려
			ENDIF
		ENDSELECT
		PRINTFORML %TEXTR("자궁구를/Ｇ스팟 쪽을/")% %TEXTR("끈적끈적하게 반죽하듯/퍽퍽 힘차게/")% 찔러주자,
		{
		PRINTFORMW %조사처리(CALLNAME:CLIENT_ID,"는")% 움찔움찔 등골을 떨며 절정해 %TEXTR("녹아버린 질육으로 육봉을 꽉 조여주었다/
		칠칠치 못한 몰골을 드러냈다/쾌락으로 느슨해진 입에서 침을 흘렸다/억제하지 못한 음란한 소리가 주변에 울려퍼졌다")%
		}
	ELSE
	ENDIF

	;以上デフォルト地の文
횟수 = MAX(MIN(ABL:CLIENT_ID:욕망 / 2, 5) + CFLAG:CLIENT_ID:욕구불만도 / 200,1)
CALL MAKELOVE(CLIENT_ID, "V", 횟수, "역원교/돈을 내고", @"%CALLNAME:CLIENT_ID%에게 역원교를 제의받아、{횟수}번 했다")

PRINTFORMW …
PRINTFORMW ……
PRINTFORMW ………

EXP:MASTER:청소경험 ++

RETURN IRAI_CONST_RESULT("실행해 성공")

CASE "의뢰 성공시"
;成功報告時の報酬など
	TALENT:TARGET:기분 = LIMIT(TALENT:기분 + 1, -1, 1)
	CALL CHANGE_CFLAG(2, TARGET, 30)
	CALL CHANGE_CFLAG(4, TARGET, 5)
IF TALENT:CLIENT_ID:무지
	CALL GET_MONEY_YEN(2000, 2)
ELSE
	CALL GET_MONEY_YEN(20000, 2)
ENDIF
CASE "의뢰 실패시"
;失敗報告時の処理
	CALL CHANGE_CFLAG(2, TARGET, -10)
	CALL CHANGE_CFLAG(4, TARGET, -5)
	CALL CHANGE_CFLAG(340, TARGET, 100)
ENDSELECT

@일반의뢰15_AEGI_YUKARI
PRINTFORML ・
PRINTFORML ・
PRINTFORMW ・
SELECTCASE RAND:6
	CASE 0
		CALL HPH_PRINT("「아응HPH 앗HPH 거깃HPH 좋아앗HPH」","W")
	CASE 1
		CALL HPH_PRINT("「앗HPH 거깃HPH 흐아앙HPH 간닷HPH」","W")
	CASE 2
		CALL HPH_PRINT("「하아앙HPH 거기잇HPH 거기잇 좋아앗HPH 앗, 히잇……HPH」","W")
	CASE 3
		CALL HPH_PRINT("「응 츄웁…HPH 으음HPH 후하HPH 츄우우～～～웁HPHHPH」","W")
	CASE 4
		CALL HPH_PRINT("「앗HPH 하으응HPH 아앗HPH 흐아아아～～～앙HPH」","W")
	CASE 5
		CALL HPH_PRINT("「흐아앗HPH 거깃 만지면 안됐HPH 또 가버렷HPH 간닷HPH 흐아아아아앙……HPHHPH」","W")
ENDSELECT

@일반의뢰15_AEGI_ROSYUTSU(PLACE, PRE, POST)
#DIMS PLACE
#DIMS PRE
#DIMS POST

PRINTFORML ・
PRINTFORML ・
PRINTFORMW ・
	SELECTCASE RAND:7
	CASE 0
		CALL HPH_PRINT("「……읍HPH ………읏HPH ……앗HPH」","W")
	CASE 1
		CALL HPH_PRINT("「……흐읍HPH ……흐으응HPH ……읏HPH」","W")
	CASE 2
		CALL HPH_PRINT("「……HPH ………응읏HPH ………흐읍HPH」","W")
	CASE 3
		CALL HPH_PRINT("「……읍읍HPH ……아읍HPH ………응읏HPH」","W")
	CASE 4
		CALL HPH_PRINT("「……앗HPH ……싫엇HPH 야한 소릿, 나와버렷…っHPH」","W")
	CASE 5
		CALL HPH_PRINT("「……아앙HPH ……싫어엇HPH 소리, 들려버렷…HPH」","W")
	CASE 6
		CALL HPH_PRINT("「……응읍HPHHPH ………츄릅HPH …츄～～～HPHHPHHPH」","W")
	ENDSELECT
PRINTFORML
PRINTFORM %PLACE%%PRE% %TEXTR("질척질척 하는 거친 물소리/희미한 물소리/「팡 팡」하는 파열음 비슷한 소리/운동을 하는 듯 거친 두 사람의 호흡 소리")%와
PRINTFORMW %TEXTR("억누를 수 없는 달콤한 목소리가/분명치 않은 교성이/")% %POST%

;抱かれたい依頼の経験などの処理を切り出し

@MAKELOVE(C_ID, type, 횟수, 시추에이션, 일기기술)
#DIM  C_ID
#DIM 주입량
#DIM 기본주입량
#DIM 호감도상승량
#DIM 횟수
#DIM 경험증가수,58
#DIMS type
#DIMS 시추에이션
#DIMS 일기기술
VARSET 경험증가수
SPLIT @"%시추에이션%", "/", LOCALS

주입량 = 0
기본주입량 = BASE:MASTER:정력 / 25
SELECTCASE type
	CASE "A"
		기본주입량 += (ABL:C_ID:애널 + ABL:C_ID:허리 + 1) * 10
	CASE "V"
		기본주입량 += (ABL:C_ID:질 + ABL:C_ID:허리 + 1) * 10
ENDSELECT

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

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

PRINTFORML ・
PRINTFORML ・
PRINTFORMW ・
PRINTFORM %마스터는%
IF TALENT:C_ID:처녀 && type == "V"
	PRINTFORM %CALLNAME:C_ID%의 순결을 빼았고、
ELSE
	PRINTFORM %조사처리(CALLNAME:C_ID,"를")% {횟수}번 %TEXTR("범하여/안아/")%、
ENDIF
PRINTFORMW \@ type == "A"? 항문 # 자궁\@에 {주입량}의 정액을 쏟아부었다
SIF TALENT:MASTER:키스미경험
	CALL SET_FIRSTKISS(MASTER, C_ID, 2)
SIF TALENT:C_ID:키스미경험
	CALL SET_FIRSTKISS(C_ID, MASTER, 2)

;C
경험증가수:0 += 1 + RAND:(횟수 * 2)
경험증가수:5 += 경험증가수:0 / 2
;B
경험증가수:3 += RAND:(횟수 * 2)
경험증가수:8 += 경험증가수:3 / 2
;M
경험증가수:4 += 3 + ABL:C_ID:M감각 * 2
;絶頂経験
경험증가수:10 += 경험증가수:0 / 2
;口淫経験
경험증가수:25 = 경험증가수:4
;キス経験
경험증가수:27 = 경험증가수:4
EXP:MASTER:M경험 += 경험증가수:4
EXP:MASTER:키스경험 += 경험증가수:4
EXP:MASTER:펠라티오경험 += 경험증가수:4

IF type == "A"
	IF !CFLAG:C_ID:애널처녀상실기념일
		SETCOLOR 247,171,166
		PRINTFORMW 【애널처녀상실】
		CALL SET_HISTORY_LOST_A(C_ID, MASTER, "페니스", @"%LOCALS:0%", @"%LOCALS:1%")
	ENDIF
	경험증가수:2 += 횟수 * 2
	경험증가수:7 += 횟수
	경험증가수:17 += 횟수
	경험증가수:21 += 횟수 * 2
	CALL ADD_SAMEN_A(C_ID, 주입량)
ENDIF
IF type == "V"
	IF TALENT:C_ID:처녀 == -1
		SETCOLOR 247,171,166
		PRINTFORMW 【무자각비처녀상실】
		TALENT:C_ID:처녀 = 0
	ENDIF
	IF TALENT:C_ID:처녀 == 1
		SETCOLOR 247,171,166
		PRINTFORMW 【처녀상실】
		CALL SET_HISTORY_LOST_V(C_ID, MASTER, "페니스", @"%LOCALS:0%", @"%LOCALS:1%")
	ENDIF
	경험증가수:1 += 횟수 * 2
	경험증가수:6 += 횟수
	경험증가수:16 += 횟수
	경험증가수:20 += 횟수 * 2
	CALL ADD_SAMEN_V(C_ID, 주입량)
ENDIF

SETCOLOR C_YELLOW
FOR LOCAL,0,58
	IF 경험증가수:LOCAL
		PRINTFORML %EXPNAME:LOCAL% ＋{경험증가수:LOCAL}
		EXP:C_ID:LOCAL += 경험증가수:LOCAL
	ENDIF
NEXT
RESETCOLOR
CALL JUEL_UP_SPECIAL(C_ID,"욕정","욕망",20,1)
IF type == "V"
	IF TCVAR:C_ID:파과
		CALL JUEL_UP_SPECIAL(C_ID,"쾌V","V감각",100,1)
	ELSE
		CALL JUEL_UP_SPECIAL(C_ID,"쾌V","V감각",15,1)
	ENDIF
ELSEIF type == "A"
	CALL JUEL_UP_SPECIAL(C_ID,"쾌A","A감각",100,1)
ENDIF
CALL ADD_EXP_LESNIAN(횟수 * 5, C_ID, "PRINT")
TIME += 횟수 * 20
DOWNBASE:MASTER:체력 = 횟수 * 100
DOWNBASE:MASTER:기력 = 횟수 * 150
호감도상승량 = 횟수 * ABL:C_ID:친밀 * 5

CALL CHANGE_CFLAG(2,C_ID,호감도상승량)
CFLAG:C_ID:욕구불만도 = 0
TCVAR:C_ID:파과 = 0
SIF GETBIT(TALENT:MASTER:성별, 1)
	DOWNBASE:MASTER:정력 = 주입량
CALL ASK_DIARY(@"%일기기술%")

path: ERB/커맨드관련/COMF/의뢰/일반의뢰15_당신에게안기고싶어.ERB