code:
[SKIPSTART]
;KR판 오리지날 예외처리 - 버그가 너무 많고 상정한 바를 파악할 수 없음
;2020.10.13 기준(일판 4.760)
;存否関数
;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:무지
		SELECTCASE RAND:2
			CASE 0
				CALLF MAKE_STR(V_NAME, "가슴이 두근두근거려")
			CASE 1
				CALLF MAKE_STR(V_NAME, "가랑이가 저릿저릿해")
		ENDSELECT
	ELSEIF TALENT:ARG:마조
		SELECTCASE RAND:2
			CASE 0
				CALLF MAKE_STR(V_NAME, @"%CALLNAME:MASTER%에게 범해지고 싶어")
			CASE 1
				CALLF MAKE_STR(V_NAME, @"%CALLNAME:MASTER%에게 엉망진창 당하고 싶어")
		ENDSELECT
	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:자존심 == 1 || TALENT:ARG:수치심 == 1
		CALLF MAKE_INT(V_NAME, 9)
	;初期設定で걸레幻想郷にした場合は依頼発生頻度高すぎると阿鼻叫喚になりそうだから걸레の場合は確率低下
	;かわりに욕구불만도に関わらず発生するようにしてバランスが取れるといいなぁ
	ELSEIF TALENT:ARG:걸레
		CALLF MAKE_INT(V_NAME, 4)
	;それ以外は発生条件が厳しめなので기본の発生率はとりあえず高めに
	ELSE
		CALLF MAKE_INT(V_NAME, 15)
	ENDIF
CASE "의뢰 발생 조건"
;섹프or애욕かつ욕구불만도700以上 or 걸레 ;KR판 () 자체적용
	SIF (TALENT:ARG:섹프 && CFLAG:TARGET:욕구불만도 > 700) || (TALENT:ARG:애욕 && CFLAG:TARGET:욕구불만도) > 700 || 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 장소
;1=대상의 방 2=혼숙 여관・러브호텔 3=유카리 파생 전용 4=이외
#DIM 주입량
#DIM 기본주입량
#DIM 호감도상승량
#DIM 횟수
#DIM 경험증가수,58
#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になっている時のみ実行できます
;
;
VARSET 경험증가수
횟수 = MAX(MIN(ABL:CLIENT_ID:욕망 / 2, 5) + CFLAG:CLIENT_ID:욕구불만도 / 200,1)
주입량 = 0

	경험증가수:0 += 1 + RAND:(횟수 * 2)
	경험증가수:4 += 3 + ABL:CLIENT_ID:M감각 * 2
	경험증가수:3 += RAND:(횟수 * 2)
	경험증가수:5 += 경험증가수:0 / 2
	경험증가수:8 += 경험증가수:3 / 2
	경험증가수:10 += 경험증가수:0 / 2
	경험증가수:25 = 경험증가수:4
	경험증가수:27 = 경험증가수:4
	EXP:MASTER:M경험 += 경험증가수:4
	EXP:MASTER:키스경험 += 경험증가수:4
	EXP:MASTER:펠라티오경험 += 경험증가수:4

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

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

	CALL ADD_SAMEN_V(CLIENT_ID, 주입량)

	;以下デフォルト地の文

	IF TALENT:CLIENT_ID:무지
		PRINTFORML %CALLNAME:MASTER%は未知の興奮に戸惑いながら熱い吐息をこぼす%CALLNAME:CLIENT_ID%の手を引いて、
	ELSEIF TALENT:CLIENT_ID:수치심 == 1
		PRINTFORML %CALLNAME:MASTER%は恥じらいに頬を染める%CALLNAME:CLIENT_ID%の手を引いて、
	;紫の場合は以下の派生に繋げるために紫主導限定で
	ELSEIF RAND:2 == 0 || CLIENT_ID == 26
		PRINTFORML %CALLNAME:CLIENT_ID%は艶っぽい笑みを浮かべながら%CALLNAME:MASTER%の手を引いて、
	ELSE
		PRINTFORML %CALLNAME:MASTER%は切なそうに体をよじる%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 昏く口を開けるスキマへと%CALLNAME:MASTER%を導いた
		PRINTFORML
		PRINTFORMW ………
		PRINTFORML
		PRINTFORML
		PRINTFORMW ………………
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML
					PRINTFORML スキマを出ると、幻想郷よりもどこか煙たい空気と夜の街独特の喧騒が%CALLNAME:MASTER%を迎えた
					PRINTFORMW けばけばしいネオンが光る看板が目を引くここは、どうやら外の世界のラブホテルのようだ
					PRINTFORML
					PRINTFORMW 「こういうのも、また風情といったものでしょう？」
					PRINTFORML
					PRINTFORMW そう言って彼女は%CALLNAME:MASTER%の腕を抱いてエントランスへと歩みを進めた
					CALL 일반의뢰15_AEGI_YUKARI
					PRINTFORML
					PRINTFORML マジックミラー越しにシャワーを浴びる%CALLNAME:CLIENT_ID%の姿に욕정を抑えきれず、
					PRINTFORMW %CALLNAME:MASTER%はバスルームに乱入して%CALLNAME:CLIENT_ID%を襲った
					PRINTFORML
					PRINTFORML 「待てないの？」などと言いながらもまんざらでもなさそうな%CALLNAME:CLIENT_ID%は
					PRINTFORMW 期待に蕩けきった秘所を%CALLNAME:MASTER%の肉欲に貫かれ、美しい艶声を浴場いっぱいに響かせる
					PRINTFORML
					PRINTFORML 壁に手をつかせて獣のように後ろから子宮を捏ねてやると%CALLNAME:CLIENT_ID%はのけぞって悦び、
					PRINTFORMW 膣壁をきゅうきゅうと締め上げて%CALLNAME:MASTER%のペニスに媚びる
					PRINTFORML
					PRINTFORML やがて限界を迎えた%CALLNAME:MASTER%が%CALLNAME:CLIENT_ID%の尻にザーメンをぶっかけると、
					PRINTFORMW ぽたぽたと零れ落ちてはシャワーで流されていくそれを蕩けきった目でながめながら、%CALLNAME:CLIENT_ID%は%CALLNAME:MASTER%を煽った
					PRINTFORML
					PRINTFORMW 「次はシャワーじゃ流せない膣内(ところ)に、注いでくれるかしら？」
					PRINTFORML
					PRINTFORML 二回戦のおねだりに早くも肉棒に活力を漲らせた%CALLNAME:MASTER%はシャワーを止めると、
					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:MASTER%が我慢できるはずもなく、気付けば%CALLNAME:CLIENT_ID%を抱き寄せ、交尾へと発展していた
					PRINTFORML
					PRINTFORML %CALLNAME:CLIENT_ID%の好みなのか少し熱めの湯にすっかり血色の良くなったうなじに吸い付きながら
					PRINTFORMW 背面座位で突き上げるように子宮を小突いてやると、ぞくぞくと躰を震わせて甘い声をあげる
					PRINTFORML
					PRINTFORML やがて限界を迎えた%CALLNAME:MASTER%がどこに出してほしいかと問うと、熱と快楽に蕩かされきった%CALLNAME:CLIENT_ID%は
					PRINTFORMW 快感に喘ぐばかりで、答えられないまま%CALLNAME:MASTER%の精を膣の奥に受け入れた
				CASE 2
					PRINTFORML
					PRINTFORML スキマを出ると、燦燦と照りつける太陽と心地よい潮風が%CALLNAME:MASTER%を迎えた
					PRINTFORMW 白い砂浜に水平線、周囲にはヤシなど幻想郷と違う植生の木が生い茂るここは、どうやら外の世界の南国のようだ
					PRINTFORML
					PRINTFORMW 「ここはとある無人島。 たまにはこういう開放的なのも、いいでしょう？」
					PRINTFORML
					PRINTFORMW そう言った彼女は服など無粋とばかりに豪快に服を脱ぎ捨てると、%CALLNAME:MASTER%の服を脱がしにかかった
					CALL 일반의뢰15_AEGI_YUKARI
					PRINTFORML
					PRINTFORMW 砂浜に生えたヤシに手をつかせ、%CALLNAME:MASTER%と%CALLNAME:CLIENT_ID%は獣のように交わっている
					PRINTFORML
					PRINTFORML 照りつける太陽に汗とまばゆい金髪を煌めかせながら%CALLNAME:MASTER%の与える快楽に酔いしれる%CALLNAME:CLIENT_ID%の艶姿は美しく、
					PRINTFORMW 野生的な解放感もあいまって神話の世界にでも迷い込んだかのような錯覚を%CALLNAME:MASTER%にもたらす
					PRINTFORML
					PRINTFORML 非日常感に否応なく射精欲が高まってきた%CALLNAME:MASTER%が目の前の美姫のどこにぶっかけてやろうかとペニスを抜こうとすると、
					PRINTFORMW %CALLNAME:CLIENT_ID%はちらと振り向いて彼女の腰を掴んだ%CALLNAME:MASTER%の手をそっと撫でた
					PRINTFORML
					PRINTFORMW 「ここは野生の、獣の世界。 雌が見定めた雄の胤をに注がれたい장소はひとつしかない。 そうでしょう？」
					PRINTFORML
					PRINTFORMW 女神の如き極上の雌にそうも扇情的に囁かれてはたまらない
					PRINTFORML
					PRINTFORML %CALLNAME:MASTER%が男根をずぱんっと根元まで埋め、望み通りに子宮の中までたっぷりとマーキングしてやると、
					PRINTFORMW 快楽に咽ぶこの美しい雌はひときわ甘い鳴き声をあげて絶頂に身を震わせた
				CASE 3
					PRINTFORML
					PRINTFORML スキマを出ると、幻想郷よりもどこか煙たい空気と夜の街独特の喧騒が%CALLNAME:MASTER%を迎えた
					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 やがて我慢できなくなった%CALLNAME:MASTER%が抽挿を激しくすると嬌声は一層激しさを増し、
					PRINTFORMW 子宮口に何度目かの膣内射精を浴びながら%CALLNAME:CLIENT_ID%は大きく絶頂した
					PRINTFORML
					PRINTFORMW 絶頂の余韻に息を荒げながら、%CALLNAME:CLIENT_ID%は射精で萎えた%CALLNAME:MASTER%のペニスの前に跪く
					PRINTFORML
					PRINTFORML ねろ…ぬろ…と慈愛を込めた丁寧なお掃除フェラに%CALLNAME:MASTER%の肉槍は見る間に硬さを取り戻し、
					PRINTFORMW 路地裏には再び蕩けた女の甘い鳴き声が響き渡るのだった

				;ここまで書いといてなんだけどいまいちピンと来なかったのでコメントアウトしとく
;				CASE 4
;					PRINTFORML
;					PRINTFORML スキマを出ると、目の前に広がるのはどこか懐かしい光景
;					PRINTFORMW 整然と並んだ机と椅子、黒板にスピーカー、そして教壇。ここは……学校？
;					PRINTFORML
;					PRINTFORMW 「ふふ、お気に召しました？」
;					PRINTFORML
;					PRINTFORMW いつもの紫よりも少し高い声に振り向くと、そこには学生服に身を包んだ紫が窓を背に佇んでいた
;					PRINTFORMW 普段と違う儚げな雰囲気を纏う彼女はどこか幼くみえる。背もほんの少し低いだろうか
;					PRINTFORML
;					PRINTFORMW 「장소にあわせて姿も変えてみましたの。 イメージプレイの一環よ」
;					PRINTFORML
;					PRINTFORML そう言って紫が%CALLNAME:MASTER%を指差す。
;					PRINTFORMW いつの間にやら%CALLNAME:MASTER%も学生服を着せられていたのだった
;					PRINTFORML
;					PRINTFORML 戸惑う%CALLNAME:MASTER%にくすくすと笑いながら、紫がこつこつと歩み寄って%CALLNAME:MASTER%を上目遣いに見上げ囁いた
;					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%でしっぽりする。ホ別だからあなたの懐は痛まない
				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 %CALLNAME:MASTER%を部屋に上げると、
			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:MASTER%はねっとりとした愛撫と腰使いで%CALLNAME:CLIENT_ID%を焦らしていく
		PRINTFORML
		PRINTFORML イキそうになるたびに寸止めされ続けて我慢ができなくなった%CALLNAME:CLIENT_ID%の口から
		PRINTFORML 「膣内にください」とおねだりの言葉を引き出した%CALLNAME:MASTER%はつけていたゴムを外すと、
		PRINTFORMW %CALLNAME:CLIENT_ID%のさんざん焦らされて降りきった子宮口にたっぷりと孕ませ汁を飲ませてやった
	CASE 1
		PRINTFORMW %CALLNAME:MASTER%は%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%はかあっと頬を赤く染め、しかし離れる気はないのか、%CALLNAME:MASTER%を抱きしめる手を強くした
	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 宿の利用時間が来る頃には備え付けの衣装は%CALLNAME:MASTER%が吐き出した白濁で見るも無残な有様になっていた
		ELSE
			PRINTFORMW %CALLNAME:CLIENT_ID%は下着姿で%CALLNAME:MASTER%に奉仕している
			PRINTFORML
			PRINTFORML 「%CALLNAME:MASTER%が射精するたびに違う下着に着替える」というルールで
			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("ねっとりと捏ねるように/ごりごりと力強く/")%突いてやると、
		PRINTFORM %CALLNAME:CLIENT_ID%はびくびくと背筋を震わせながら絶頂して
		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW 蕩けきった膣肉が%CALLNAME:MASTER%のペニスをきゅうきゅうと締め付けた
		CASE 1
			PRINTFORMW だらしないイキ顔を晒した
		CASE 2
			PRINTFORMW 快楽にゆるんだ口からだらしなく涎をこぼした
		CASE 3
			PRINTFORMW 抑えきれないエクスタシーの声があたりに響いた
		ENDSELECT
	ELSE
	ENDIF
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORMW ・
	PRINTFORM %CALLNAME:MASTER%は
	IF TALENT:CLIENT_ID:처녀
		PRINTFORM %CALLNAME:CLIENT_ID%の純潔を奪い、
	ELSE
		PRINTFORM %CALLNAME:CLIENT_ID%を{횟수}度%TEXTR("犯し/抱き/")%、
	ENDIF
	PRINTFORMW 子宮に{주입량}の精液を注ぎ込んだ

	;以上デフォルト地の文

	SIF TALENT:MASTER:키스미경험
		CALL SET_FIRSTKISS(MASTER, CLIENT_ID, 2)
	SIF TALENT:CLIENT_ID:키스미경험
		CALL SET_FIRSTKISS(CLIENT_ID, MASTER, 2, "流されるままに")

IF TALENT:CLIENT_ID:처녀 == -1
	SETCOLOR 247,171,166
	PRINTFORMW 【무자각비처녀상실】
	TALENT:CLIENT_ID:처녀 = 0
ENDIF
IF TALENT:CLIENT_ID:처녀 == 1
	SETCOLOR 247,171,166
	PRINTFORMW 【처녀상실】
	CALL SET_HISTORY_LOST_V(CLIENT_ID, MASTER, "ペニス", "逆援交", "お金を払って")
ENDIF

SETCOLOR C_YELLOW
FOR LOCAL,0,58
	IF 경험증가수:LOCAL
		PRINTFORML %EXPNAME:LOCAL% ＋{경험증가수:LOCAL}
		EXP:CLIENT_ID:LOCAL += 경험증가수:LOCAL
	ENDIF
NEXT
RESETCOLOR
CALL JUEL_UP_SPECIAL(CLIENT_ID,"욕정","욕망",20,1)
IF TCVAR:CLIENT_ID:파과
	CALL JUEL_UP_SPECIAL(CLIENT_ID,"쾌V","V감각",100,1)
ELSE
	CALL JUEL_UP_SPECIAL(CLIENT_ID,"쾌V","V감각",15,1)
ENDIF
CALL ADD_EXP_LESNIAN(횟수 * 5, CLIENT_ID, "PRINT")
PRINTFORMW …
PRINTFORMW ……
PRINTFORMW ………

TIME += 횟수 * 20
EXP:MASTER:청소경험 ++
DOWNBASE:MASTER:체력 = 횟수 * 100
DOWNBASE:MASTER:기력 = 횟수 * 150
호감도상승량 = 횟수 * ABL:CLIENT_ID:친밀 * 5

CALL CHANGE_CFLAG(2,CLIENT_ID,호감도상승량)
CFLAG:CLIENT_ID:욕구불만도 = 0
TCVAR:CLIENT_ID:파과 = 0

;TWあなたは片づけせずにはいられない
$BYEBYE

SIF GETBIT(TALENT:MASTER:성별, 1)
	DOWNBASE:MASTER:정력 = 주입량

;これいる？
;PRINTFORML
;PRINTFORMW 後始末をした%CALLNAME:CLIENT_ID%と%CALLNAME: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%
[SKIPEND]

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


code:
@MIX_MENU
PRINTL 무엇인가 섞겠습니까?
{
CALL ASK_M(
	"그만둔다",  1,
	"맛내기 변경", !GET_OPTION_COOKING("자동 맛내기 설정"),
	"자극적인 맛을 낸다",  GET_OPTION_COOKING("이물 혼입 가능"),
	"후훗(약)을 처방한다",  GET_OPTION_COOKING("약물 혼입 가능") && MAX(ITEM:미약, ITEM:이뇨제, ITEM:미약, ITEM:수면제) > 0
	)
}
SELECTCASE RESULT
CASE 0
	RETURN
CASE 1
	CALL MANUAL_SEASONING
CASE 2
	CALL MIXTURE_SPICE
CASE 3
	CALL MIXTURE_DRUG
ENDSELECT
RETURN RESULT

@AUTO_SEASONING
#DIM AUTO_TASTE
SIF TCVAR:MASTER:308
	RETURN
TCVAR:MASTER:308 = (GET_OPTION_COOKING("자동 맛내기 설정") - 10)

@MANUAL_SEASONING
PRINTL 맛내기를 변경하겠습니까?
CALL ASK_M("보통",  1, "진한 맛", 1, "담백한 맛",  1)
SELECTCASE RESULT
CASE 2
	PRINTL 요리를 담백하게 맛내기
CASE 1
	PRINTL 요리를 진하게 맛내기
CASE 0
	PRINTFORML 요리를 %CALLNAME:MASTER% 기호대로 맛내기
ENDSELECT
SIF RESULT
	TCVAR:MASTER:308 = RESULT
RETURN RESULT

@MIXTURE_SPICE
#DIM CONST BIT_MIX_SPICE = 0, 3, 4, 5, 6
PRINTL 무엇을 가르칠까…
{
CALL ASK_M(
	"역시 그만둔다",  1,
	"엄청 매운 DEATH 소스", 1,
	"격감사카린",  1,
	"충분히 고추냉이",  1,
	"농축 레몬 과즙",  1)
}
SIF RESULT
	SETBIT TCVAR:MASTER:308, BIT_MIX_SPICE:RESULT
SELECTCASE RESULT
CASE 0
	RETURN
CASE 1
	PRINTFORML %조교자는% 만든 %DISHNAME%에 DEATH 소스를 거절해 걸쳤다
	PRINTFORML %DISHNAME%는 순식간에 하바네로카라에 물들었다
CASE 2
	PRINTFORML %조교자는% %DISHNAME%에 흰 분말상의 사카린을 거절해 걸쳤다
	PRINTFORML 외형에서는 모르지만 달콤함은 설탕의 300배다
CASE 3
	PRINTFORML %조교자는% 선인한 산고추냉이를 갈아 내려%DISHNAME%에 가세했다
	PRINTFORML 봉긋 하고 싶은 있고 향기가 %조교자가% 코를 찔렀다
CASE 4
	PRINTFORML %조교자는% %DISHNAME%에 농축 레몬 과즙을 거절해 걸쳤다
	PRINTFORML 외형에는 모르지만 필시 시큼하겠지요
ENDSELECT
RETURN 1

@MIXTURE_DRUG
#DIM CONST BIT_MIX_DRUG = 0, 21, 22, 23, 24
PRINTL 무엇을 가르칠까…
{
CALL ASK_M(
	"역시 그만둔다",       1,
	"미약",   ITEM:미약   > 0,
	"이뇨제", ITEM:이뇨제 > 0,
	"춘약", ITEM:춘약 > 0,
	"수면제", ITEM:수면제 > 0)
}
SIF RESULT
	SETBIT TCVAR:MASTER:308, BIT_MIX_DRUG:RESULT
SELECTCASE RESULT
CASE 0
	RETURN
CASE 1
	PRINTFORML %조교자는% 품속에서 미약을 꺼내서는 %DISHNAME%에 섞었다…
	ITEM:미약 --
CASE 2
	PRINTFORML %조교자는% 품속에서 이뇨제를 꺼내서는 %DISHNAME%에 섞었다…
	ITEM:이뇨제 --
CASE 3
	PRINTFORML %조교자는% 품속에서 춘약을 꺼내서는 %DISHNAME%에 섞었다…
	ITEM:춘약 --
CASE 4
	PRINTFORML %조교자는% 품속에서 수면제를 꺼내서는 %DISHNAME%에 섞었다…
	ITEM:수면제 --
ENDSELECT
RETURN 1

license: mit


code:
;-------------------------------------------------
;회화
;일상계 커맨드 레벨 1
;-------------------------------------------------
@COM300

;회화 누적치가 반응을 일으키는 최소의 물리량을 넘으면(자) 실패
IF TCVAR:302 && !TALENT:연모&&!TALENT:MASTER:달변 ;KR판 오리지날 달변
	PRINTFORML %CALLNAME:TARGET%에게 말을 건네려고 했지만 말을 찾지 못햇다
	PRINTW 근처에 거북한 공기가 흘렀다…
	TIME += 10
	IF CHK_DATENOW(CFLAG:TARGET:데이트중)
		DOWNBASE:기력 += 50
		DOWNBASE:MASTER:기력 += 50
		TFLAG:193 = -1
		CALL DATE_GOES_ON(1)
	ELSE
		DOWNBASE:기력 += 100
		DOWNBASE:MASTER:기력 += 100
		TFLAG:193 = -1
	ENDIF
	RETURN 1
ENDIF
IF MARK:반발각인 >= 3
	PRINTFORML %타겟은% %마스터와%는 말도 하고 싶지 않은 것 같다
	SOURCE:반감 = 300
	BASE:MASTER:기력 -= 100
	RETURN -1
ENDIF
CALL REVEAL_YOUKAI(TARGET)

SELECTCASE TFLAG:192
	;通常
	CASE 0
		LOCAL = RAND:100
		LOCAL:1 = MIN(90 + GET_SUCCESS_RATE() / 5, 99)
		;상대가 만취시는 대성공도 실패도 하지 않는다
		SIF TCVAR:만취
			LOCAL = 50
		IF LOCAL < 7
			;7％で대성공
			TFLAG:193 = 1
			TFLAG:98 = 1
			EXP:MASTER:회화경험 ++
			IF CHK_DATENOW(CFLAG:TARGET:데이트중)
				;KR판 오리지날 붉은실
				CALL 붉은실발동
				EXP:MASTER:데이트경험 ++
				EXP:TARGET:데이트경험 ++
			ENDIF
		ELSEIF LOCAL >= LOCAL:1
			;10～1％で失敗
			TFLAG:193 = -1
			TFLAG:98 = -1
		ELSE
			;残りは成功
			TFLAG:193 = 0
			TFLAG:98 = 0
		ENDIF
	;強制成功or大成功
	CASE 1
		IF RAND:100 <= 9
			TFLAG:193 = 1
			TFLAG:98 = 1
			EXP:MASTER:회화경험 ++
			IF CHK_DATENOW(CFLAG:TARGET:데이트중)
				;KR판 오리지날 붉은실
				CALL 붉은실발동
				EXP:MASTER:데이트경험 ++
				EXP:TARGET:데이트경험 ++
			ENDIF
		ELSE
			TFLAG:193 = 0
			TFLAG:98 = 0
		ENDIF
	;強制失敗
	CASE -1
		TFLAG:193 = -1
		TFLAG:98 = -1
	;コマンド終了
	CASE -2
		TFLAG:193 = -1
		RETURN 0
ENDSELECT

;선제 발생시는 실패하지 않는다
SIF TCVAR:20
	TFLAG:193 = MAX(TFLAG:193,0)
IF CFLAG:TARGET:동침중
	DOWNBASE:MASTER:기력 += 10
	SOURCE:사랑 = 200
ELSE
	DOWNBASE:기력 += 20
	DOWNBASE:MASTER:기력 += 20
ENDIF

SIF ABL:교양 > ABL:MASTER:교양 + 3
	TFLAG:193 = -2

;고정으로 획득하는 소스
SOURCE:환락 = 200

;ABL:친밀을 본다
IF ABL:친밀 <= 1
	SOURCE:환락 += (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 3
	SOURCE:환락 += 200 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 5
	SOURCE:환락 += 500 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 8
	SOURCE:환락 += 750 + (ABL:친밀 * 50)
ELSEIF ABL:친밀 <= 10
	SOURCE:환락 += 1000 + (ABL:친밀 * 50)
ELSE
	SOURCE:환락 += 1600 + (ABL:친밀 * 30)
ENDIF

SOURCE:환락 = LIMIT(SOURCE:환락,0,5000)

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

IF TFLAG:193 == -1 || TFLAG:193 == -2
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF
SELECTCASE ABL:MASTER:화술기능
	CASE 0
		TIMES SOURCE:환락 , 0.20
		TIMES SOURCE:정복 , 0.20
		TIMES SOURCE:수동 , 0.20
	CASE 1
		TIMES SOURCE:환락 , 0.40
		TIMES SOURCE:정복 , 0.40
		TIMES SOURCE:수동 , 0.40
	CASE 2
		TIMES SOURCE:환락 , 0.70
		TIMES SOURCE:정복 , 0.70
		TIMES SOURCE:수동 , 0.70
	CASE 3
		TIMES SOURCE:환락 , 1.00
		TIMES SOURCE:정복 , 1.00
		TIMES SOURCE:수동 , 1.00
	CASE 4
		TIMES SOURCE:환락 , 1.20
		TIMES SOURCE:정복 , 1.20
		TIMES SOURCE:수동 , 1.20
	CASEELSE
		TIMES SOURCE:환락 , 1.50
		TIMES SOURCE:정복 , 1.50
		TIMES SOURCE:수동 , 1.50
ENDSELECT

;회화 누적치
IF CHK_DATENOW(CFLAG:TARGET:데이트중)
	TCVAR:301 += 100 / (2 + ABL:MASTER:화술기능)
ELSE
	TCVAR:301 += 200 / (2 + ABL:MASTER:화술기능)
ENDIF

TIME += 10
;IF TARGET == 110
;	PRINTFORML 필담했으므로 조금 시간이 걸렸다…
;	TIME += 15
;ENDIF
EXP:MASTER:회화경험 ++
IF CHK_DATENOW(CFLAG:TARGET:데이트중)
	;KR판 오리지날 붉은실
	CALL 붉은실발동
	EXP:MASTER:데이트경험 ++
	EXP:TARGET:데이트경험 ++
	CALL DATE_GOES_ON(1)
ENDIF

;상대가 만취중이라면 효과 대폭 저감
IF TCVAR:만취
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:정복 , 0.10
	TIMES SOURCE:수동 , 0.10
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE300
;회화 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(300)
	RETURN RESULT
;수면중
SIF CFLAG:수면 && !CFLAG:동침중
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF300 회화_t.ERB


code:
;-------------------------------------------------
;차를넣는
;일상계 커맨드 레벨 1
;-------------------------------------------------
@COM301
SELECTCASE TFLAG:192
	CASE 0
		LOCAL = RAND:100
		LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
		SIF LOCAL:1 > 99
			LOCAL:1 = 99
		IF LOCAL <= 9
			;10％で대성공
			EXP:MASTER:회화경험 ++
			TFLAG:193 = 1
			TFLAG:98 = 2
		ELSEIF LOCAL >= LOCAL:1
			;10～1％で실패
			TFLAG:193 = -1
			TFLAG:98 = -2
		ELSE
			;나머지 성공
			TFLAG:193 = 0
			TFLAG:98 = 0
		ENDIF
	CASE 1
		IF RAND:100 <= 9
			;10％で대성공
			EXP:MASTER:회화경험 ++
			TFLAG:193 = 1
			TFLAG:98 = 2
		ELSE
			;나머지 성공
			TFLAG:193 = 0
			TFLAG:98 = 0
		ENDIF
	CASE -1
		TFLAG:193 = -1
		TFLAG:98 = -1
	CASE -2
		RETURN 0
ENDSELECT

;선제 발생시는 실패하지 않는다
SIF TCVAR:20
	TFLAG:193 = MAX(TFLAG:193,0)
DOWNBASE:MASTER:기력 += 100
DOWNBASE:MASTER:체력 += 50
TFLAG:무드상승억제 = 1
;신뢰
TFLAG:98 += 3

;그 자리에 있는 TARGET 전원이 돌린다
LOCAL:1 = TARGET
FOR LOCAL, 1, GET_TARGETNUM() + 1
	SIF TARGET:LOCAL <= 0
		CONTINUE
	SIF CFLAG:(TARGET:LOCAL):수면
		CONTINUE
	TARGET = TARGET:LOCAL
	CALL COM301_1
NEXT
TARGET = LOCAL:1
SIF GETBIT(TCVAR:MASTER:특별한차, 0)
	CLEARBIT TCVAR:MASTER:특별한차, 0
TIME += 30
RETURN 1

@COM301_1

DOWNBASE:기력 += 10

;고정으로 획득하는 소스
SOURCE:환락 = 500

;ABL:순종을 본다
IF ABL:순종 <= 1
	SOURCE:환락 += (ABL:순종 * 60)
ELSEIF ABL:순종 <= 3
	SOURCE:환락 += 200 + (ABL:순종 * 60)
ELSEIF ABL:순종 <= 5
	SOURCE:환락 += 500 + (ABL:순종 * 60)
ELSEIF ABL:순종 <= 8
	SOURCE:환락 += 750 + (ABL:순종 * 75)
ELSEIF ABL:순종 <= 11
	SOURCE:환락 += 1000 + (ABL:순종 * 75)
ELSE
	SOURCE:환락 += 2000 + (ABL:순종 * 30)
ENDIF

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

SOURCE:수동 = 200 + 100 * ABL:순종
SOURCE:정복 = 200 + 100 * ABL:새드끼

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF

IF GETBIT(TCVAR:MASTER:특별한차, 0)
	SELECTCASE TARGET
		CASE 15, 16, 17, 38, 50, 54, 59, 75
			TIMES SOURCE:환락 , 2.00
			TIMES SOURCE:정복 , 2.00
			TIMES SOURCE:수동 , 2.00
		CASEELSE
			TIMES SOURCE:환락 , 1.50
			TIMES SOURCE:정복 , 1.50
			TIMES SOURCE:수동 , 1.50
	ENDSELECT
ENDIF

;차를 마신 플래그
TCVAR:300 = 1440 * DAY + TIME

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE301
;차를넣는 실행 판정
SIF !TFLAG:100
	RETURN 0
SIF TFLAG:131
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(301)
	RETURN RESULT
;2시간 간격
SIF TIME_PROGRESS(TCVAR:300) < 120
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;동침중
SIF CFLAG:동침중
	RETURN 0
;목욕탕
;SIF CFLAG:MASTER:현재위치 == 13 || CFLAG:MASTER:현재위치 == 24 || CFLAG:MASTER:현재위치 == 30 || CFLAG:MASTER:현재위치 == 39
SIF BATHCHECK(CFLAG:MASTER:현재위치)
	RETURN 0
;연회중
SIF CFLAG:350 == 49
	RETURN 0
;데이트중
SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
	RETURN 0
;외출처에서 실행시는 친밀 3을 요구
SIF (GET_MAPID(CFLAG:MASTER:현재위치) != MAIN_MAP) && ABL:친밀 < 3
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF301 차를탄다_t.ERB


code:
;-------------------------------------------------
;스킨십
;일상계 커맨드 레벨 1
;-------------------------------------------------
@COM302
SELECTCASE TFLAG:192
	;通常
	CASE 0
		LOCAL = RAND:100
		LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
		SIF LOCAL:1 > 99
			LOCAL:1 = 99
		IF LOCAL <= 9
			;10％で大成功
			TFLAG:193 = 1
			TFLAG:98 = 1
			IF CHK_DATENOW(CFLAG:TARGET:데이트중)
			;KR판 오리지날 붉은실
			CALL 붉은실발동
				EXP:MASTER:데이트경험 ++
				EXP:TARGET:데이트경험 ++
			ENDIF
		ELSEIF LOCAL >= LOCAL:1
			;10～1％で失敗
			TFLAG:193 = -1
			TFLAG:98 = -2
		ELSE
			;残りは成功
			TFLAG:193 = 0
		ENDIF
		;실패한 경우에도 연회석에서는 10%로 성공
		SIF TFLAG:193 == -1 && RAND:100 <= 9 && CFLAG:350 == 49
			TFLAG:193 = 0
	;強制成功or大成功
	CASE 1
		LOCAL = RAND:100
		IF LOCAL <= 9
			;10％で大成功
			TFLAG:193 = 1
		TFLAG:98 = 1
		IF CHK_DATENOW(CFLAG:TARGET:데이트중)
			;KR판 오리지날 붉은실
			CALL 붉은실발동
			EXP:MASTER:데이트경험 ++
			EXP:TARGET:데이트경험 ++
		ENDIF
		ELSE
			;残りは成功
			TFLAG:193 = 0
		ENDIF
	;強制失敗
	CASE -1
		TFLAG:193 = -1
		TFLAG:98 = -1
	;コマンド終了
	CASE -2
		TFLAG:193 = -1
		RETURN 0
ENDSELECT
;선제 발생시는 실패하지 않는다
SIF TCVAR:20
	TFLAG:193 = MAX(TFLAG:193,0)

DOWNBASE:기력 += 30
DOWNBASE:MASTER:기력 += 30

;고정으로 획득하는 소스
SOURCE:환락 = 100
SOURCE:사랑 = 100
SOURCE:노출 = 20
SOURCE:반감 = 50

;ABL:친밀을 본다
IF ABL:친밀 <= 1
	SOURCE:사랑 += (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 3
	SOURCE:환락 += 100 + (ABL:친밀 * 40)
	SOURCE:사랑 += 200 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 5
	SOURCE:환락 += 400 + (ABL:친밀 * 50)
	SOURCE:사랑 += 400 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 8
	SOURCE:환락 += 700 + (ABL:친밀 * 60)
	SOURCE:사랑 += 600 + (ABL:친밀 * 40)
ELSEIF ABL:친밀 <= 11
	SOURCE:환락 += 1200 + (ABL:친밀 * 80)
	SOURCE:사랑 += 800 + (ABL:친밀 * 40)
ELSE
	SOURCE:환락 += 2000 + (ABL:친밀 * 50)
	SOURCE:사랑 += 1800 + (ABL:친밀 * 20)
ENDIF

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

LOCAL = 0
;친밀이 낮으면 호감도 저하
IF ABL:친밀 == 0
	LOCAL -= 3
ELSEIF ABL:친밀 == 1
	LOCAL -= 2
ELSEIF ABL:친밀 == 2
	LOCAL -= 1
ENDIF
;호감도가 낮으면 호감도 저하
IF CFLAG:2 <= 50
	LOCAL -= 3
ELSEIF CFLAG:2 <= 100
	LOCAL -= 2
ELSEIF CFLAG:2 <= 250
	LOCAL -= 1
ENDIF

SOURCE:수동 = 100 + 200 * ABL:순종
SOURCE:정복 = 100 + 200 * ABL:새드끼

;호감도 변화
TFLAG:97 += LOCAL

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:사랑 , 0.50
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:사랑 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:사랑 , 2.00
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF
TIME += 10
IF CHK_DATENOW(CFLAG:TARGET:데이트중)
	;KR판 오리지날 붉은실
	IF TALENT:MASTER:붉은실&&(RAND:50==0)
		SETCOLOR C_RED
		PRINTFORML %CALLNAME:MASTER%의 운명의 붉은 실이 빛나고 있습니다.
		SETCOLOR C_PINK
		PRINTFORML %타겟은% %CALLNAME:MASTER%에게서 운명을 느낀듯 하다.
		RESETCOLOR
		SIF !RELATION:TARGET:MASTER
				RELATION:TARGET:MASTER=100
			RELATION:TARGET:MASTER+=20
	ENDIF
	EXP:MASTER:데이트경험 ++
	EXP:TARGET:데이트경험 ++
	CALL DATE_GOES_ON(1)
ELSE
	;스킨십 한 플래그
	TCVAR:303 = 1440 * DAY + TIME
ENDIF

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE302
;스킨십 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(302)
	RETURN RESULT
;1시간 간격
SIF TIME_PROGRESS(TCVAR:303) < 60 && !CHK_DATENOW(CFLAG:데이트중)
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;동침중
SIF CFLAG:동침중
	RETURN 0
;업무중
SIF CFLAG:행동 == 5
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF302 스킨쉽_t.ERB


code:
;-------------------------------------------------
;사과한다
;일상계 커맨드 레벨 1
;-------------------------------------------------
@COM303
IF CFLAG:패배자 && MARK:반발각인 >= 3
	PRINTFORMW %마스터가% 한 일은 사과한다고 해서 용서받을 일이 아니다
	RETURN -1
ENDIF
SELECTCASE TFLAG:192
	;通常
	CASE 0
		LOCAL = RAND:100
		LOCAL:1 = ABL:MASTER:화술기능 * 2 + ABL:친밀
		;大成功
		IF LOCAL < LOCAL:1
			TFLAG:193 = 1
			;信頼
			TFLAG:98 = 1
		;成功
		ELSEIF LOCAL < LOCAL:1 + 30
			TFLAG:193 = 0
		;失敗
		ELSE
			TFLAG:193 = -1
		ENDIF
	;強制成功or大成功
	CASE 1
		;大成功
		IF RAND:100 < ABL:MASTER:화술기능 * 2 + ABL:친밀
			TFLAG:193 = 1
			;信頼
			TFLAG:98 = 1
		;成功
		ELSE
			TFLAG:193 = 0
		ENDIF
	;強制失敗
	CASE -1
		TFLAG:193 = -1
	;コマンド終了
	CASE -2
		TFLAG:193 = -1
		RETURN 0
ENDSELECT

DOWNBASE:MASTER:체력 += 50
DOWNBASE:MASTER:기력 += 200

IF TARGET > 0 && CFLAG:빡침 && !CFLAG:수면
	;고정으로 획득하는 소스
	SOURCE:정복 = 400
	;ABL:순종 체크
	IF ABL:순종 <= 1
		SOURCE:정복 += 2000 - (ABL:순종 * 30)
	ELSEIF ABL:순종 <= 3
		SOURCE:정복 += 1000 - (ABL:순종 * 30)
	ELSEIF ABL:순종 <= 5
		SOURCE:정복 += 750 - (ABL:순종 * 40)
	ELSEIF ABL:순종 <= 8
		SOURCE:정복 += 500 - (ABL:순종 * 20)
	ELSEIF ABL:순종 <= 11
		SOURCE:정복 += 200 - (ABL:순종 * 20)
	ELSE
		SOURCE:정복 += 100 - (ABL:순종 * 10)
	ENDIF

	;ABL:친밀 체크
	IF ABL:친밀 <= 1
		SOURCE:정복 -= (ABL:친밀 * 60)
	ELSEIF ABL:친밀 <= 3
		SOURCE:정복 -= (ABL:친밀 * 60)
	ELSEIF ABL:친밀 <= 5
		SOURCE:정복 -= (ABL:친밀 * 60)
	ELSEIF ABL:친밀 <= 8
		SOURCE:정복 -= (ABL:친밀 * 50)
	ELSEIF ABL:친밀 <= 11
		SOURCE:정복 -= (ABL:친밀 * 40)
	ELSE
		SOURCE:정복 -= (ABL:친밀 * 30)
	ENDIF

	SIF SOURCE:정복 < 0
		SOURCE:정복 = 0
ENDIF
;성공하고 있으면(자) 분노 상태 해제
IF TFLAG:193 == 0
	CFLAG:빡침 = 0
	CFLAG:언짢음 = 0
	BASE:분노 /= 2
ELSEIF TFLAG:193 == 1
	CFLAG:빡침 = 0
	CFLAG:언짢음 = 0
	BASE:분노 = 0
ELSE
	;굳이 없음!유감!
ENDIF
SIF BASE:분노 < 0
	BASE:분노 = 0
IF ITEM:과자상자 && MARK:TARGET:반발각인 == 1
	IF TFLAG:193 == -1
		TFLAG:193 = -2
	ELSE
		MARK:TARGET:반발각인 = 0
		TFLAG:193 = 2
		ITEM:과자상자 --
	ENDIF
ENDIF

;소요시간
IF ABL:순종 <= 5
	TIME += 90
ELSEIF ABL:순종 <= 10
	TIME += 60
ELSE
	TIME += 45
ENDIF

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE303
;사과하는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(303)
	RETURN RESULT
;분노중이 아니다
SIF !CFLAG:빡침 && !(ITEM:과자상자 && MARK:TARGET:반발각인 == 1)
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF303 사과한다_t.ERB


code:
;-------------------------------------------------
;일을돕는다
;일상계 커맨드 레벨 1
;-------------------------------------------------
@COM304
#DIM JOBTYPE

JOBTYPE = CFLAG:TARGET:350

SIF FLAG:70 && JOBTYPE == 41
	RETURN 0

CALL JOB_EFFICIENCY(JOBTYPE)

IF FLAG:70
	IF BASE:일량 <= 0
		PRINTFORML 이미 %CALLNAME:TARGET%의 일은 정리되었다
		BASE:MASTER:TSP -= 10
		RETURN 0
	ELSE
		BASE:MASTER:TSP -= 200
	ENDIF
ELSE
	SELECTCASE JOBTYPE
		;청소
		CASE 40
			DOWNBASE:MASTER:체력 += 50
			DOWNBASE:MASTER:기력 += 100
			SIF TALENT:MASTER:청소중독
				DOWNBASE:MASTER:기력 -= 50
		;회화
		CASE 41
			DOWNBASE:MASTER:체력 += 50
			DOWNBASE:MASTER:기력 += 150
		;전투
		CASE 42
			DOWNBASE:MASTER:체력 += 200
			DOWNBASE:MASTER:기력 += 50
		;교양
		CASE 43
			DOWNBASE:MASTER:체력 += 50
			DOWNBASE:MASTER:기력 += 200
		;요리
		CASE 44
			DOWNBASE:MASTER:체력 += 50
			DOWNBASE:MASTER:기력 += 100
		CASE 46
			DOWNBASE:MASTER:체력 += 50
			DOWNBASE:MASTER:기력 += 50
		CASE 53
			DOWNBASE:MASTER:체력 += 50
			DOWNBASE:MASTER:기력 += 150
	ENDSELECT
	;소요시간
	IF JOBTYPE == 48 || JOBTYPE == 50
		TIME += 30
	ELSE
		SELECTCASE TARGET
			CASE [[케이네]]
				;케이네의 서당 수업 뒷정리 심부름 14시~14시 30분까지
				;케이네의 서당 수업 뒷정리 심부름 14시 10분 ~14시 30분까지
				;케이네의 서당 수업 뒷정리 심부름 14시 20분 ~14시 30분까지
				;차례적으로 노동시간 단축 처리가 기능하고 있지 않았기 때문에 수정
				IF INRANGE(TIME, CLOCK_TO_TIME(14, 20), CLOCK_TO_TIME(14, 30))
					TIME += 10
				ELSEIF INRANGE(TIME, CLOCK_TO_TIME(14, 10), CLOCK_TO_TIME(14, 30))
					TIME += 20
				ELSEIF INRANGE(TIME, CLOCK_TO_TIME(14, 00), CLOCK_TO_TIME(14, 30))
					TIME += 30
				ELSE
					TIME += 60
				ENDIF
			;엘렌의 유객 행위 심부름
			CASE [[엘렌]]
				IF TCVAR:TARGET:354 < 25
					TIME += 30
				ELSE
					TIME += 60
				ENDIF
			CASEELSE
				TIME += 60
		ENDSELECT
	ENDIF
	DOWNBASE:기력 += 10
	;신뢰
	TFLAG:98 += 5
	TFLAG:무드상승억제 = 1
	;고정으로 획득하는 소스
	SOURCE:환락 = 300
	SIF JOBTYPE == 49
		SOURCE:환락 += 200

	;ABL:순종을 본다
	IF ABL:순종 <= 1
		SOURCE:환락 += (ABL:순종 * 50)
	ELSEIF ABL:순종 <= 3
		SOURCE:환락 += 100 + (ABL:순종 * 40)
	ELSEIF ABL:순종 <= 5
		SOURCE:환락 += 200 + (ABL:순종 * 50)
	ELSEIF ABL:순종 <= 8
		SOURCE:환락 += 400 + (ABL:순종 * 70)
	ELSEIF ABL:순종 <= 11
		SOURCE:환락 += 500 + (ABL:순종 * 60)
	ELSE
		SOURCE:환락 += 800 + (ABL:순종 * 40)
	ENDIF

	;ABL:친밀 체크
	IF ABL:친밀 <= 1
		SOURCE:환락 += 70 + (ABL:친밀 * 50)
	ELSEIF ABL:친밀 <= 3
		SOURCE:환락 += 120 + (ABL:친밀 * 50)
	ELSEIF ABL:친밀 <= 5
		SOURCE:환락 += 200 + (ABL:친밀 * 50)
	ELSEIF ABL:친밀 <= 8
		SOURCE:환락 += 500 + (ABL:친밀 * 40)
	ELSEIF ABL:친밀 <= 11
		SOURCE:환락 += 800 + (ABL:친밀 * 40)
	ELSE
		SOURCE:환락 += 1200 + (ABL:친밀 * 30)
	ENDIF

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

	SOURCE:수동 = 230 + 80 * ABL:순종
	SOURCE:정복 = 150 + 200 * ABL:새드끼
ENDIF
SIF BASE:TARGET:일량 <= 0
	CALL CHARA_JOBEND(TARGET)
RETURN 1

@JOB_EFFICIENCY(ARG)
#DIM ABILITY
#DIM WorkP

WorkP = 0
IF INRANGE(ARG, 40, 45) || ARG == 53
	ABILITY = ABL:MASTER:ARG
	SIF ARG == 53
		ABILITY = TALENT:MASTER:조제Lv
	SELECTCASE TFLAG:192
		;통상
		CASE 0
			LOCAL = RAND:100
			LOCAL:1 = 75 + ABILITY * 5
			IF LOCAL <= 10 + ABILITY * 2
				;기능 나름으로 대성공
				TFLAG:193 = 1
				WorkP = (50 + (ABILITY) * 75) * 2
				TFLAG:98 = 2
			ELSEIF LOCAL >= LOCAL:1
				;10～1％로 실패
				TFLAG:193 = -1
				WorkP = 0
				TFLAG:98 = -1
			ELSE
				;나머지는 성공
				TFLAG:193 = 0
				WorkP = 50 + (ABILITY) * 75
				TFLAG:98 = 0
			ENDIF
		;강제 성공 or대성공
		CASE 1
			IF RAND:100 <= 10 + ABILITY * 2
				;기능 나름으로 대성공
				TFLAG:193 = 1
				WorkP = (50 + (ABILITY) * 75) * 2
				TFLAG:98 = 2
			ELSE
				;나머지는 성공
				TFLAG:193 = 0
				WorkP = 50 + (ABILITY) * 75
				TFLAG:98 = 0
			ENDIF
		;강제 실패
		CASE -1
			TFLAG:193 = -1
			TFLAG:98 = -2
		;커맨드 종료
		CASE -2
			TFLAG:193 = -1
			RETURN 0
	ENDSELECT
ELSEIF ARG == 46
	SELECTCASE TFLAG:192
		;통상
		CASE 0
			LOCAL = RAND:100
			LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
			SIF LOCAL:1 > 99
				LOCAL:1 = 99
			WorkP = 0
			IF LOCAL <= 9
				;10％로 대성공
				TFLAG:193 = 1
				TFLAG:98 = 2
				EXP:MASTER:회화경험 ++
			ELSEIF LOCAL >= LOCAL:1
				;10～1％로 실패
				TFLAG:193 = -1
				TFLAG:98 = -1
			ELSE
				;나머지는 성공
				TFLAG:193 = 0
				TFLAG:98 = 0
			ENDIF
		;강제 성공 or대성공
		CASE 1
			IF RAND:100 <= 9
				;10％로 대성공
				TFLAG:193 = 1
				TFLAG:98 = 2
				EXP:MASTER:회화경험 ++
			ELSE
				;나머지는 성공
				TFLAG:193 = 0
				TFLAG:98 = 0
			ENDIF
		;강제 실패
		CASE -1
			TFLAG:193 = -1
			TFLAG:98 = -2
		;커맨드 종료
		CASE -2
			TFLAG:193 = -1
			RETURN 0
	ENDSELECT
ENDIF

SELECTCASE ARG
	;청소
	CASE 40
		SIF TFLAG:193 == 1
			EXP:MASTER:청소경험 ++
		SIF !RAND:4
			EXP:MASTER:청소경험 ++
	;회화
	CASE 41
		SIF TFLAG:193 == 1
			EXP:MASTER:회화경험 ++
		SIF !RAND:4
			EXP:MASTER:회화경험 ++
	;전투
	CASE 42
		SIF TFLAG:193 == 1
			EXP:MASTER:전투경험 ++
		SIF !RAND:4
			EXP:MASTER:전투경험 ++
	;교양
	CASE 43
		SIF TFLAG:193 == 1
			EXP:MASTER:학습경험 ++
		SIF !RAND:4
			EXP:MASTER:학습경험 ++
	;요리
	CASE 44
		SIF TFLAG:193 == 1
			EXP:MASTER:요리경험 ++
		EXP:MASTER:요리경험 ++
	;음악
	;CASE 45
	;연회 정리
	CASE 50
		SIF TFLAG:193 == 1
			EXP:MASTER:청소경험 ++
		SIF !RAND:4
			EXP:MASTER:청소경험 ++
	CASE 53
		SIF TFLAG:193 == 1
			EXP:MASTER:조제경험 ++
		EXP:MASTER:조제경험 ++
ENDSELECT

;보수 배율
LOCAL:4 = TCVAR:TARGET:급료

;일한 만큼 일량 감소
LOCAL:3 = (WorkP + RAND:80 + RAND:80 + 10)

;당연히 시간정지중은 회화계의 심부름은 할 수 없다
SIF FLAG:70 && GROUPMATCH(ARG, 41)
	LOCAL:3 = 0
SIF TCVAR:TARGET:도울수없다 == 2 && FLAG:70
	LOCAL:3 /= 5
;조합지식
IF TARGET == [[우동게]] && YOUBI_MATCH(DAY, "목")
	EXP:MASTER:조제경험 += 2
	SIF ABL:MASTER:교양 > RAND:5
		EXP:MASTER:조제경험 ++
ENDIF

;유객 행위는 일량 적은(엘렌)
SIF TARGET == [[엘렌]] && CFLAG:직종 == 41
	LOCAL:3 /= 2
;-는 요리경험에 덤
SIF TARGET == [[미스티아]]
	EXP:MASTER:요리경험 ++
;TCVAR:315가 2가 아니면 일량 줄어든다
IF TCVAR:TARGET:도울수없다 != 2
	BASE:일량 = BASE:일량 - LOCAL:3
ENDIF
IF BASE:일량 < 0 && CFLAG:TARGET:20 > 0
	BASE:일량 = 1
ELSEIF BASE:일량 < 0
	BASE:일량 = 0
ENDIF
;일한 만큼 당신의 일량을 증가(보수에 영향)
TCVAR:MASTER:도운양 += LOCAL:3 * LOCAL:4
TCVAR:TARGET:도운양 += LOCAL:3
IF ARG != 46
	PRINTFORML 해낸 일량 {LOCAL:3}
ENDIF

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE304
;일을 돕는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(304)
	RETURN RESULT
;업무중이 아니다
SIF CFLAG:행동 != 5
	RETURN 0
;연회참가자는 별취급
SIF GROUPMATCH(CFLAG:직종, ENKAI_SANKA, 만취한다)
	RETURN 0
SIF TCVAR:315 == 1
	RETURN 0
SIF CFLAG:350 == 47
	RETURN 0
;일이 끝나 있다
SIF BASE:일량 <= 0
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;동침중
SIF CFLAG:동침중
	RETURN 0
;데이트중
SIF CHK_DATENOW(CFLAG:데이트중)
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF304 일을도움_t.ERB


code:
;-------------------------------------------------
;무릎베개받는다
;일상계 커맨드 레벨 2
;-------------------------------------------------
@COM305
IF TALENT:MASTER:체형 > TALENT:체형 + 2
	PRINTFORML %CALLNAME:MASTER%의 머리를 얹은 %타겟은% 개구리가 짓밟힌 것 같은 소리를 질렀다
	PRINTFORML %마스터는% 당황해 머리를 치웠다
	BASE:체력 -= 500
	BASE:기력 -= 500
	TFLAG:193 = -5
	TFLAG:호감도안들어감 = 1
	TFLAG:97 = -20
	RETURN -1
ELSE
	SELECTCASE TFLAG:192
		;通常
		CASE 0
			LOCAL = RAND:110
			LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
			SIF LOCAL:1 > 109
				LOCAL:1 = 109
			IF LOCAL <= 9
				;10％で大成功
				TFLAG:193 = 1
				;信頼
				TFLAG:98 = 5
			ELSEIF LOCAL >= LOCAL:1
				;10～1％で失敗
				TFLAG:193 = -1
				;信頼
				TFLAG:98 = -2
			ELSE
				;残りは成功
				TFLAG:193 = 0
				;信頼
				TFLAG:98 = 3
			ENDIF
		;強制成功or大成功
		CASE 1
			IF RAND:100 <= 9
				;10％で大成功
				TFLAG:193 = 1
				;信頼
				TFLAG:98 = 5
			ELSE
				;残りは成功
				TFLAG:193 = 0
				;信頼
				TFLAG:98 = 3
			ENDIF
		;強制失敗
		CASE -1
			TFLAG:193 = -1
			TFLAG:98 = -2
		;コマンド終了
		CASE -2
			TFLAG:193 = -1
			RETURN 0
	ENDSELECT
	;선제 발생시는 실패하지 않는다
	SIF TFLAG:102 == 3 && TFLAG:192 != -1
		TFLAG:193 = MAX(TFLAG:193,0)
	DOWNBASE:기력 += 100
	DOWNBASE:MASTER:기력 += 50

	;고정으로 획득하는 소스
	SOURCE:사랑 = 170
	SOURCE:노출 = 55
	SOURCE:반감 = 50
	SIF TFLAG:193 == -1
		SOURCE:반감 += 150

	;ABL:친밀을 본다
	IF ABL:친밀 <= 1
		SOURCE:사랑 += (ABL:친밀 * 20)
	ELSEIF ABL:친밀 <= 3
		SOURCE:사랑 += 200 + (ABL:친밀 * 20)
	ELSEIF ABL:친밀 <= 5
		SOURCE:사랑 += 400 + (ABL:친밀 * 20)
	ELSEIF ABL:친밀 <= 8
		SOURCE:사랑 += 600 + (ABL:친밀 * 30)
		SOURCE:노출 += 200 + (ABL:욕망 * 10)
	ELSEIF ABL:친밀 <= 11
		SOURCE:사랑 += 800 + (ABL:친밀 * 30)
		SOURCE:노출 += 300 + (ABL:욕망 * 10)
	ELSE
		SOURCE:사랑 += 1800 + (ABL:친밀 * 20)
		SOURCE:노출 += 700 + (ABL:욕망 * 10)
	ENDIF

	;호감 도를 본다
	IF CFLAG:2 <= 500
		SOURCE:복종 = CFLAG:2 / 5
	ELSEIF CFLAG:2 <= 5000
		SOURCE:복종 = 150 + CFLAG:2 / 20
	ELSE
		SOURCE:복종 = 400 + CFLAG:2 / 100
	ENDIF
	SIF SOURCE:복종 < 0
		SOURCE:복종 = 0

	LOCAL = 0
	;호감도가 낮으면 호감도 저하
	IF CFLAG:2 <= 50
		LOCAL -= 3
	ELSEIF CFLAG:2 <= 100
		LOCAL -= 2
	ELSEIF CFLAG:2 <= 250
		LOCAL -= 1
	ENDIF

	SOURCE:수동 = 120 + 240 * ABL:순종

	;호감도 변화
	TFLAG:97 += LOCAL

	IF TFLAG:193 == -1
		TIMES SOURCE:사랑 , 0.50
		TIMES SOURCE:수동 , 0.50
		TIMES SOURCE:노출 , 0.40
	ELSEIF TFLAG:193 == 0
		TIMES SOURCE:사랑 , 1.00
		TIMES SOURCE:수동 , 1.00
		TIMES SOURCE:노출 , 0.90
	ELSE
		TIMES SOURCE:사랑 , 1.50
		TIMES SOURCE:수동 , 2.00
		TIMES SOURCE:노출 , 1.80
	ENDIF
	TIME += 20
	CALL SET_DERAY(6,TARGET)
	;무릎베개 플래그
	TCVAR:310 = 1440 * DAY + TIME
	RETURN 1
ENDIF

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE305
;무릎베개 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(305)
	RETURN RESULT
;친해져 강도 1
SIF TCVAR:MASTER:친해져 < 1
	RETURN 0
;실내만
SIF !(INROOM(CFLAG:MASTER:현재위치))
	RETURN 0
;목욕탕
SIF BATHROOM()
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;업무중
SIF CFLAG:행동 == 5
	RETURN 0
;장난중, 동침중은 무리
SIF CFLAG:장난 || CFLAG:동침중
	RETURN 0
;1시간 간격
SIF TIME_PROGRESS(TCVAR:310) < 60
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;식스나인 몸의자세
SIF TEQUIP:식스나인
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF305 무릎베개_t.ERB


path: ERB/커맨드관련/COMF/일상계/COMF306 배를만짐_t.ERB


code:
;-------------------------------------------------
;뺨을집는다
;일상계 커맨드 레벨 2
;-------------------------------------------------
@COM307
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 20
	SOURCE:고통 = 150
ELSE
	TIME += 10

	SELECTCASE TFLAG:192
		;通常
		CASE 0
			LOCAL = RAND:110
			LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
			SIF LOCAL:1 > 109
				LOCAL:1 = 109
			IF LOCAL <= 9
				;大成功
				TFLAG:193 = 1
				TFLAG:98 = 2
			ELSEIF LOCAL >= LOCAL:1
				;失敗
				TFLAG:193 = -1
				TFLAG:98 = -2
			ELSE
				;残りは成功
				TFLAG:193 = 0
				TFLAG:98 = 0
			ENDIF
		;強制成功or大成功
		CASE 1
			IF RAND:100 <= 9
				;大成功
				TFLAG:193 = 1
				TFLAG:98 = 2
			ELSE
				;残りは成功
				TFLAG:193 = 0
				TFLAG:98 = 0
			ENDIF
		;強制失敗
		CASE -1
			TFLAG:193 = -1
			TFLAG:98 = -2
		;コマンド終了
		CASE -2
			TFLAG:193 = -1
			RETURN 0
	ENDSELECT

	;선제 발생시는 실패하지 않는다
	SIF TFLAG:102 == 3 && TFLAG:192 != -1
		TFLAG:193 = MAX(TFLAG:193,0)

	IF CFLAG:TARGET:수면
		DOWNBASE:MASTER:기력 += 50
	ELSE
		DOWNBASE:체력 += 20
		DOWNBASE:기력 += 50
		DOWNBASE:MASTER:기력 += 50
	ENDIF

;고정으로 획득하는 소스
SOURCE:환락 = 100
SOURCE:고통 = 150
SOURCE:반감 = 120

;ABL:친밀을 본다
IF ABL:친밀 <= 3
	SOURCE:환락 += 100 + (ABL:친밀 * 20)
	SOURCE:사랑 += 150 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 5
	SOURCE:환락 += 300 + (ABL:친밀 * 40)
	SOURCE:사랑 += 350 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 8
	SOURCE:환락 += 600 + (ABL:친밀 * 50)
	SOURCE:사랑 += 500 + (ABL:친밀 * 40)
ELSEIF ABL:친밀 <= 11
	SOURCE:환락 += 800 + (ABL:친밀 * 70)
	SOURCE:사랑 += 700 + (ABL:친밀 * 60)
ELSE
	SOURCE:환락 += 1200 + (ABL:친밀 * 40)
	SOURCE:사랑 += 1500 + (ABL:친밀 * 20)
ENDIF

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

;자고 있는 경우 효과
IF CFLAG:수면 && SOURCE:환락 > 0
	SOURCE:환락 = SOURCE:환락 / 2
	SOURCE:사랑 = SOURCE:사랑 / 2
	SOURCE:반감 = SOURCE:반감 * 2
ENDIF

LOCAL = 0
;수면중은 호감도 변화 없음
IF !CFLAG:수면
	;친밀이 낮으면 호감도 저하
	IF ABL:친밀 == 0
		LOCAL -= 3
	ELSEIF ABL:친밀 == 1
		LOCAL -= 2
	ELSEIF ABL:친밀 == 2
		LOCAL -= 1
	ENDIF
	;호감도가 낮으면 호감도 저하
	IF CFLAG:2 <= 50
		LOCAL -= 3
	ELSEIF CFLAG:2 <= 100
		LOCAL -= 2
	ELSEIF CFLAG:2 <= 250
		LOCAL -= 1
	ENDIF
ENDIF

;호감도 변화
TFLAG:97 += LOCAL

;신뢰도 변화
;TFLAG:98 += 1

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:사랑 , 0.50
	TIMES SOURCE:수동 , 0.50
	TIMES SOURCE:굴종 , 1.50
	TIMES SOURCE:반감 , 1.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:사랑 , 1.00
	TIMES SOURCE:수동 , 1.00
	TIMES SOURCE:굴종 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:사랑 , 2.00
	TIMES SOURCE:수동 , 2.00
	TIMES SOURCE:굴종 , 0.50
	TIMES SOURCE:반감 , 0.75
ENDIF

ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE307
;실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(307)
	RETURN RESULT
SIF TARGET == 0
	RETURN 0
;시간정지중은 스킵
IF !FLAG:70
	;친해져 강도 1
	SIF (TCVAR:MASTER:친해져 < 1)
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
	;데이트중
	SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
		RETURN 0
ENDIF
;기력 0
SIF BASE:MASTER:기력 <= 0
		RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF307 볼을잡아당김_t.ERB


code:
;-------------------------------------------------
;뺨을쿡쿡 찌른다
;일상계 커맨드 레벨 1
;-------------------------------------------------
@COM308
SELECTCASE TFLAG:192
	;通常
	CASE 0
		LOCAL = RAND:110
		LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
		SIF LOCAL:1 > 109
			LOCAL:1 = 109
		IF LOCAL <= 9
			;大成功
			TFLAG:193 = 1
		ELSEIF LOCAL >= LOCAL:1
			;失敗
			TFLAG:193 = -1
		ELSE
			;残りは成功
			TFLAG:193 = 0
		ENDIF
	;強制成功or大成功
	CASE 1
		IF RAND:100 <= 9
			;大成功
			TFLAG:193 = 1
		ELSE
			;残りは成功
			TFLAG:193 = 0
		ENDIF
	;強制失敗
	CASE -1
		TFLAG:193 = -1
	;コマンド終了
	CASE -2
		TFLAG:193 = -1
		RETURN 0
ENDSELECT
;선제 발생시는 실패하지 않는다
SIF TFLAG:102 == 3 && TFLAG:192 != -1
	TFLAG:193 = MAX(TFLAG:193,0)

IF CFLAG:TARGET:동침중
	DOWNBASE:MASTER:기력 += 50
ELSE
	DOWNBASE:기력 += 50
	DOWNBASE:MASTER:기력 += 50
ENDIF

;고정으로 획득하는 소스
SOURCE:환락 = 80
SOURCE:사랑 = 50
SOURCE:반감 = 200

;ABL:친밀을 본다
IF ABL:친밀 <= 3
	SOURCE:환락 += 100 + (ABL:친밀 * 20)
	SOURCE:사랑 += 150 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 5
	SOURCE:환락 += 300 + (ABL:친밀 * 40)
	SOURCE:사랑 += 350 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 8
	SOURCE:환락 += 600 + (ABL:친밀 * 50)
	SOURCE:사랑 += 500 + (ABL:친밀 * 40)
ELSEIF ABL:친밀 <= 11
	SOURCE:환락 += 800 + (ABL:친밀 * 70)
	SOURCE:사랑 += 700 + (ABL:친밀 * 60)
ELSE
	SOURCE:환락 += 1200 + (ABL:친밀 * 40)
	SOURCE:사랑 += 1500 + (ABL:친밀 * 20)
ENDIF

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

SOURCE:굴종 = 500
SOURCE:수동 = 100 + 200 * ABL:순종

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:사랑 , 0.50
	TIMES SOURCE:수동 , 0.50
	TIMES SOURCE:굴종 , 1.50
	TIMES SOURCE:반감 , 1.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:사랑 , 1.00
	TIMES SOURCE:수동 , 1.00
	TIMES SOURCE:굴종 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:사랑 , 2.00
	TIMES SOURCE:수동 , 2.00
	TIMES SOURCE:굴종 , 0.50
	TIMES SOURCE:반감 , 0.75
ENDIF
TIME += 10
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE308
;뺨을 쿡쿡 찌르는 실행 판정
SIF !TFLAG:100
	RETURN 0
;수면간중
SIF CFLAG:장난 > 1
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(308)
	RETURN RESULT
;수면중이 아니다
SIF !CFLAG:수면 && !CFLAG:동침중
	RETURN 0
;장난중이 아니다
SIF !CFLAG:장난 && !CFLAG:동침중
	RETURN 0
;업무중
SIF CFLAG:행동 == 5
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF308 볼을찌름_t.ERB


code:
;-------------------------------------------------
;머리를어루만진다
;일상계 커맨드 레벨 2
;-------------------------------------------------
@COM309
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 10
ELSE
	SELECTCASE TFLAG:192
		;통상
		CASE 0
			LOCAL = RAND:110
			LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
			SIF LOCAL:1 > 109
				LOCAL:1 = 109
			IF LOCAL <= 9
				;대성공
				TFLAG:193 = 1
				IF CHK_DATENOW(CFLAG:TARGET:데이트중)
					;KR판 오리지날 붉은실
					CALL 붉은실발동
					EXP:MASTER:데이트경험 ++
					EXP:TARGET:데이트경험 ++
				ENDIF
				TFLAG:98 = 2
			ELSEIF LOCAL >= LOCAL:1
				;실패
				TFLAG:193 = -1
				TFLAG:98 = -2
			ELSE
				;나머지 성공
				TFLAG:193 = 0
				TFLAG:98 = 0
			ENDIF
		;강제성공 or 대성공
		CASE 1
			IF RAND:110 <= 9
				IF CHK_DATENOW(CFLAG:TARGET:데이트중)
					;KR판 오리지날 붉은실
					CALL 붉은실발동
					EXP:MASTER:데이트경험 ++
					EXP:TARGET:데이트경험 ++
				ENDIF
			TFLAG:98 = 2
			ELSE
				;나머지 성공
				TFLAG:193 = 0
				TFLAG:98 = 0
			ENDIF
		;강제실패
		CASE -1
			TFLAG:193 = -1
			TFLAG:98 = -2
		;커맨드종료
		CASE -2
			TFLAG:193 = -1
			RETURN 0
	ENDSELECT

	;선제 발생시는 실패하지 않는다
	SIF TFLAG:102 == 3 && TFLAG:192 != -1
		TFLAG:193 = MAX(TFLAG:193,0)
	IF CFLAG:동침중
		DOWNBASE:MASTER:기력 += 50
	ELSEIF CHK_DATENOW(CFLAG:TARGET:데이트중)
		DOWNBASE:기력 += 30
		DOWNBASE:MASTER:기력 += 30
	ELSE
		DOWNBASE:기력 += 50
		DOWNBASE:MASTER:기력 += 50
	ENDIF

	TFLAG:98 += 1

	;고정으로 획득하는 소스
	SOURCE:환락 = 150
	SOURCE:사랑 = 150
	SOURCE:반감 = 100

	;ABL:친밀을 본다
	IF ABL:친밀 <= 3
		SOURCE:환락 += 150 + (ABL:친밀 * 50)
		SOURCE:사랑 += 180 + (ABL:친밀 * 40)
	ELSEIF ABL:친밀 <= 5
		SOURCE:환락 += 500 + (ABL:친밀 * 50)
		SOURCE:사랑 += 450 + (ABL:친밀 * 30)
	ELSEIF ABL:친밀 <= 8
		SOURCE:환락 += 800 + (ABL:친밀 * 50)
		SOURCE:사랑 += 700 + (ABL:친밀 * 50)
	ELSEIF ABL:친밀 <= 11
		SOURCE:환락 += 1000 + (ABL:친밀 * 90)
		SOURCE:사랑 += 900 + (ABL:친밀 * 50)
	ELSE
		SOURCE:환락 += 1800 + (ABL:친밀 * 40)
		SOURCE:사랑 += 2000 + (ABL:친밀 * 20)
	ENDIF

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

	;자고 있는 경우 효과 반액
	IF CFLAG:수면 && SOURCE:환락 > 0
		SOURCE:환락 = SOURCE:환락 / 2
		SOURCE:사랑 = SOURCE:사랑 / 2
	ENDIF

	LOCAL = 0
	;수면중은 호감도 변화 없음
	IF !CFLAG:수면
		;친밀이 낮으면 호감도 저하
		IF ABL:친밀 == 0
			LOCAL -= 3
		ELSEIF ABL:친밀 == 1
			LOCAL -= 2
		ELSEIF ABL:친밀 == 2
			LOCAL -= 1
		ENDIF
		;호감도가 낮으면 호감도 저하
		IF CFLAG:2 <= 50
			LOCAL -= 3
		ELSEIF CFLAG:2 <= 100
			LOCAL -= 2
		ELSEIF CFLAG:2 <= 250
			LOCAL -= 1
		ENDIF
	ENDIF

	SOURCE:욕정 = 50 + 150 * ABL:욕망
	SOURCE:수동 = 100 + 200 * ABL:순종

	;호감도 변화
	TFLAG:97 += LOCAL

	IF TFLAG:193 == -1
		TIMES SOURCE:환락 , 0.10
		TIMES SOURCE:사랑 , 0.50
		TIMES SOURCE:수동 , 0.50
		TIMES SOURCE:욕정 , 0.50
		TIMES SOURCE:반감 , 1.50
	ELSEIF TFLAG:193 == 0
		TIMES SOURCE:환락 , 1.00
		TIMES SOURCE:사랑 , 1.00
		TIMES SOURCE:수동 , 1.00
		TIMES SOURCE:욕정 , 1.00
	ELSE
		TIMES SOURCE:환락 , 2.00
		TIMES SOURCE:사랑 , 2.00
		TIMES SOURCE:수동 , 2.00
		TIMES SOURCE:욕정 , 2.00
		TIMES SOURCE:반감 , 0.75
	ENDIF

	IF CHK_DATENOW(CFLAG:TARGET:데이트중)
		TIME += 10
		;KR판 오리지날 붉은실
		CALL 붉은실발동
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
		;머리를어루만진다 플래그
		TCVAR:304 = 1440 * DAY + TIME
		CALL DATE_GOES_ON(1)
	ELSE
		TIME += 20
		;머리를어루만진다 플래그
		TCVAR:304 = 1440 * DAY + TIME
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE309
;머리를 어루만지는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(309) && !CFLAG:장난 && !CFLAG:동침중
	RETURN RESULT
;시간정지중은 스킵
IF !FLAG:70
	;친해져 강도 1
	SIF (TCVAR:MASTER:친해져 < 1) && !CFLAG:수면
		RETURN 0
	;수면중
	SIF CFLAG:수면 && !CFLAG:장난 && !CFLAG:동침중
		RETURN 0
	;수면간중
	SIF CFLAG:장난 > 1
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
	;1시간 간격
	SIF TIME_PROGRESS(TCVAR:304) < 60 && !CFLAG:장난 && !CFLAG:동침중
		RETURN 0
ENDIF
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF309 머리를만진다_t.ERB


code:
;-------------------------------------------------
;엉덩이를어루만진다
;일상계 커맨드 레벨 1
;-------------------------------------------------
@COM310
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 10
ELSE
	IF FLAG:생활능력무 && !CFLAG:우후후
		DRAWLINE
		PRINTFORMW %CALLNAME:MASTER%에게 그런 담력은 없다
		RETURN -1
	ENDIF
	DOWNBASE:기력 += 50
	DOWNBASE:MASTER:기력 += 50
	TFLAG:이성깎기 = 1
	;신뢰
	TFLAG:98 = -3

	;고정으로 획득하는 소스
	SOURCE:환락 = 100
	SOURCE:사랑 = 100
	SOURCE:노출 = 100
	SOURCE:반감 = 1000
	SOURCE:욕정 = 100
	SOURCE:수동 = 100
	LOCAL = RAND:110
	LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
	SIF LOCAL:1 > 109
		LOCAL:1 = 109
	IF LOCAL <= 9
		;대성공
		TFLAG:193 = 3
	ELSEIF LOCAL >= LOCAL:1
		;실패
		TFLAG:193 = 1
	ELSE
		;나머지 성공
		TFLAG:193 = 2
	ENDIF

	;ABL:친밀을 본다
	IF ABL:친밀 <= 5
		SOURCE:반감 -= (ABL:친밀 * 5)

	ELSEIF ABL:친밀 <= 7
		SOURCE:환락 += 400 + (ABL:친밀 * 5)
		SOURCE:사랑 += 400 + (ABL:친밀 * 10)
		SOURCE:반감 -= (ABL:친밀 * 10)
		TFLAG:193 = RAND:2 + 2
	ELSEIF ABL:친밀 <= 9
		SOURCE:환락 += 700 + (ABL:친밀 * 10)
		SOURCE:사랑 += 600 + (ABL:친밀 * 15)
		SOURCE:반감 -= (ABL:친밀 * 15)
		SOURCE:욕정 += 200 * ABL:욕망
		SOURCE:수동 += 200 * ABL:순종
		TFLAG:193 = RAND:2 + 2
	ELSEIF !TALENT:연모
		SOURCE:환락 += 1200 + (ABL:친밀 * 20)
		SOURCE:사랑 += 800 + (ABL:친밀 * 25)
		SOURCE:반감 -= (ABL:친밀 * 20)
		SOURCE:욕정 += 250 * ABL:욕망
		SOURCE:수동 += 250 * ABL:순종
		TFLAG:193 = RAND:2 + 2
	ELSE
		SOURCE:환락 += 2000 + (ABL:친밀 * 20)
		SOURCE:사랑 += 1800 + (ABL:친밀 * 30)
		SOURCE:욕정 += 1000 + 250 * ABL:욕망
		SOURCE:수동 += 1000 + 250 * ABL:순종
		SOURCE:반감 -= (ABL:친밀 * 50)
		TFLAG:193 = RAND:2 + 3
	ENDIF
	SIF SOURCE:반감 < 0
		SOURCE:반감 = 0

	SIF SOURCE:환락 < 0
		SOURCE:환락 = 0
	;선제 발생시는 실패하지 않는다
	SIF TFLAG:102 == 3 && TFLAG:192 != -1
		TFLAG:193 = MAX(TFLAG:193,2)

	LOCAL = 0
	;친밀이 낮으면 호감도 저하
	IF ABL:친밀 <= 5
		LOCAL -= 10
	ELSEIF ABL:친밀 <= 7
		LOCAL -= 5
	ELSEIF ABL:친밀 <= 9
		LOCAL -= 3
	ELSEIF TALENT:연모
		LOCAL -= 1
	ENDIF
	;호감도 변화
	TFLAG:97 += LOCAL

	IF TFLAG:193 == 1
		TIMES SOURCE:환락 , 0.10
		TIMES SOURCE:사랑 , 0.50
		TIMES SOURCE:수동 , 0.50
		TIMES SOURCE:욕정 , 0.50
		TIMES SOURCE:반감 , 1.50
	ELSEIF TFLAG:193 == 2
		TIMES SOURCE:환락 , 1.00
		TIMES SOURCE:사랑 , 1.00
		TIMES SOURCE:수동 , 1.00
		TIMES SOURCE:욕정 , 1.00
	ELSEIF TFLAG:193 == 3
		TIMES SOURCE:환락 , 1.50
		TIMES SOURCE:사랑 , 1.50
		TIMES SOURCE:수동 , 1.50
		TIMES SOURCE:욕정 , 1.50
	ELSE
		TIMES SOURCE:환락 , 2.00
		TIMES SOURCE:사랑 , 2.00
		TIMES SOURCE:수동 , 2.00
		TIMES SOURCE:욕정 , 2.00
		TIMES SOURCE:반감 , 0.75
	ENDIF
	TIME += 10
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE310
;엉덩이를 어루만지는 실행 판정
SIF !TFLAG:100
	RETURN 0
SIF !TARGET
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(310)
	RETURN RESULT
;시간정지중은 스킵
IF !FLAG:70
	SIF CFLAG:수면 == 0 && GET_TARGETNUM() == 0
		RETURN 0
	;수면중
	SIF CFLAG:수면 && !CFLAG:장난
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
	;동침중
	SIF CFLAG:동침중
		RETURN 0
	;데이트중
	SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
		RETURN 0
ENDIF
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;팔사용중
SIF TFLAG:61
	RETURN 0
SIF GETBIT (TCVAR:26,1)
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF310 엉덩이를만진다_t.ERB


code:
;-------------------------------------------------
;달라붙는다
;일상계 커맨드 레벨 2
;-------------------------------------------------
@COM311
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 10
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ELSE
	IF FLAG:생활능력무 && !CFLAG:우후후
		DRAWLINE
		PRINTFORMW %CALLNAME:MASTER%에게 그런 담력은 없다
		RETURN -1
	ENDIF
	TFLAG:이성깎기 = 1
	SELECTCASE TFLAG:192
		;통상
		CASE 0
			LOCAL = RAND:110
			LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
			SIF LOCAL:1 > 109
				LOCAL:1 = 109
			IF LOCAL <= 9
				;10％で대성공
				TFLAG:193 = 1
				IF CHK_DATENOW(CFLAG:TARGET:데이트중)
					;KR판 오리지날 붉은실
					CALL 붉은실발동
					EXP:MASTER:데이트경험 ++
					EXP:TARGET:데이트경험 ++
				ENDIF
			ELSEIF LOCAL >= LOCAL:1
				;10～1％で실패
				TFLAG:193 = -1
			ELSE
				;나머지 성공
				TFLAG:193 = 0
			ENDIF
		;強制成功or대성공
		CASE 1
			IF RAND:110 <= 9
				;10％で대성공
				TFLAG:193 = 1
				IF CHK_DATENOW(CFLAG:TARGET:데이트중)
					;KR판 오리지날 붉은실
					CALL 붉은실발동
					EXP:MASTER:데이트경험 ++
					EXP:TARGET:데이트경험 ++
				ENDIF
			ELSE
				;나머지 성공
				TFLAG:193 = 0
			ENDIF
		;강제실패
		CASE -1
			TFLAG:193 = -1
		;커맨드 종료
		CASE -2
			TFLAG:193 = -1
			RETURN 0
	ENDSELECT
	;선제 발생시는 실패하지 않는다
	SIF TFLAG:102 == 3 && TFLAG:192 != -1
		TFLAG:193 = MAX(TFLAG:193,0)
	IF CFLAG:TARGET:동침중
		DOWNBASE:MASTER:기력 += 50
	ELSE
		DOWNBASE:기력 += 100
		DOWNBASE:MASTER:기력 += 50
	ENDIF

	;고정으로 획득하는 소스
	SOURCE:환락 = 120
	SOURCE:사랑 = 160
	SOURCE:노출 = 55
	SOURCE:반감 = 250

	;ABL:친밀을 본다
	IF ABL:친밀 <= 1
		SOURCE:사랑 += (ABL:친밀 * 30)
	ELSEIF ABL:친밀 <= 3
		SOURCE:사랑 += 200 + (ABL:친밀 * 30)
	ELSEIF ABL:친밀 <= 5
		SOURCE:사랑 += 400 + (ABL:친밀 * 30)
	ELSEIF ABL:친밀 <= 8
		SOURCE:사랑 += 600 + (ABL:친밀 * 40)
		SOURCE:노출 += 200 + (ABL:욕망 * 15)
	ELSEIF ABL:친밀 <= 11
		SOURCE:사랑 += 800 + (ABL:친밀 * 40)
		SOURCE:노출 += 300 + (ABL:욕망 * 15)
	ELSE
		SOURCE:사랑 += 1800 + (ABL:친밀 * 20)
		SOURCE:노출 += 700 + (ABL:욕망 * 10)
	ENDIF

	;호감 도를 본다
	IF CFLAG:2 <= 1000
	ELSEIF CFLAG:2 <= 5000
		SOURCE:복종 = CFLAG:2 / 5
	ELSEIF CFLAG:2 <= 10000
		SOURCE:복종 = 100 + CFLAG:2 / 20
	ELSE
		SOURCE:복종 = 350 + CFLAG:2 / 100
	ENDIF
	SIF SOURCE:복종 < 0
		SOURCE:복종 = 0

	LOCAL = 0
	;호감도가 낮으면 호감도 저하
	IF CFLAG:2 <= 50
		LOCAL -= 3
	ELSEIF CFLAG:2 <= 100
		LOCAL -= 2
	ELSEIF CFLAG:2 <= 250
		LOCAL -= 1
	ENDIF

	SOURCE:수동 = 120 + 240 * ABL:순종
	SOURCE:정복 = 120 + 240 * ABL:새드끼

	;호감도 변화
	TFLAG:97 += LOCAL

	IF TFLAG:193 == -1
		TIMES SOURCE:환락 , 0.10
		TIMES SOURCE:사랑 , 0.50
		TIMES SOURCE:정복 , 0.50
		TIMES SOURCE:수동 , 0.50
		TIMES SOURCE:노출 , 0.40
	ELSEIF TFLAG:193 == 0
		TIMES SOURCE:환락 , 1.00
		TIMES SOURCE:사랑 , 1.00
		TIMES SOURCE:정복 , 1.00
		TIMES SOURCE:수동 , 1.00
		TIMES SOURCE:노출 , 0.90
	ELSE
		TIMES SOURCE:환락 , 2.00
		TIMES SOURCE:사랑 , 2.00
		TIMES SOURCE:정복 , 2.00
		TIMES SOURCE:수동 , 2.00
		TIMES SOURCE:노출 , 1.80
	ENDIF
	TIME += 10

	IF CHK_DATENOW(CFLAG:TARGET:데이트중)
		;KR판 오리지날 붉은실
		CALL 붉은실발동
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
		CALL DATE_GOES_ON(1)
	ENDIF

	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE311
;달라붙는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(311)
	RETURN RESULT
;시간정지중은 스킵
IF !FLAG:70
	;친해져 강도 1
	SIF TCVAR:MASTER:친해져 < 1 && !CFLAG:동침중
		RETURN 0
	;수면중
	SIF CFLAG:수면 && !CFLAG:동침중
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
ENDIF
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;팔사용중
SIF TFLAG:61
	RETURN 0
SIF GETBIT (TCVAR:26,1)
	RETURN 0
;식스나인 몸의자세
SIF TEQUIP:식스나인
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF311 달라붙는다_t.ERB


code:
;-------------------------------------------------
;키스한다
;일상계 커맨드 레벨 2
;-------------------------------------------------
@COM312
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 10
	SOURCE:쾌M = ABL:PLAYER:혀 * 2 + 10
	EXP:MASTER:키스경험 += 1
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 2
	ENDIF
ELSE
	TFLAG:이성깎기 = 1
	IF FLAG:생활능력무 && !GETBIT(CFLAG:기정사실 ,0)
		DRAWLINE
		PRINTFORMW %CALLNAME:MASTER%에게 그런 담력은 없다
		RETURN -1
	ENDIF
	;거절 판정
	IF REJECT_CHECK(SELECTCOM) && !CFLAG:수면
		TFLAG:193 = 99
		LOCAL = 0
		;고정 획득 소스
		SOURCE:반감 = 500
		SOURCE:공포 = 300
		;호감도가 낮으면 호감도 저하
		IF CFLAG:2 <= 500
			LOCAL -= 50
		ELSEIF CFLAG:2 <= 1000
			LOCAL -= 30
		ELSEIF CFLAG:2 <= 1500
			LOCAL -= 10
		ENDIF
		;호감도 변화
		TFLAG:97 += LOCAL
		TIME += 10
		RETURN 1
	ENDIF

	SELECTCASE TFLAG:192
		;통상
		CASE 0
			LOCAL = RAND:110
			LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
			SIF LOCAL:1 > 109
				LOCAL:1 = 109
			IF LOCAL <= 9
				;10%로 대성공
				TFLAG:193 = 1
				IF CHK_DATENOW(CFLAG:TARGET:데이트중)
					;KR판 오리지날 붉은실
					IF TALENT:MASTER:붉은실&&(RAND:50==0)
						SETCOLOR C_RED
						PRINTFORML %CALLNAME:MASTER%의 운명의 붉은 실이 빛나고 있습니다.
						SETCOLOR C_PINK
						PRINTFORML %타겟은% %CALLNAME:MASTER%에게서 운명을 느낀듯 하다.
						RESETCOLOR
						RELATION:MASTER:TARGET+=10
					ENDIF
					EXP:MASTER:데이트경험 ++
					EXP:TARGET:데이트경험 ++
				ENDIF
			ELSEIF LOCAL >= LOCAL:1
				;10~1%로 실패
				TFLAG:193 = -1
			ELSE
				;나머지는 성공
				TFLAG:193 = 0
			ENDIF
		;강제 성공 or대성공
		CASE 1
			IF RAND:110 <= 9
				TFLAG:193 = 1
				IF CHK_DATENOW(CFLAG:TARGET:데이트중)
					;KR판 오리지날 붉은실
					CALL 붉은실발동
					EXP:MASTER:데이트경험 ++
					EXP:TARGET:데이트경험 ++
				ENDIF
			ELSE
				TFLAG:193 = 0
			ENDIF
		;강제 실패
		CASE -1
			TFLAG:193 = -1
		;커맨드 종료
		CASE -2
			TFLAG:193 = -1
			RETURN 0
	ENDSELECT

	;선제 발생시는 실패하지 않는다
	SIF TFLAG:102 == 3 && TFLAG:192 != -1
		TFLAG:193 = MAX(TFLAG:193,0)

	IF CFLAG:TARGET:동침중
		DOWNBASE:MASTER:기력 += 50
	ELSEIF CHK_DATENOW(CFLAG:TARGET:데이트중)
		DOWNBASE:기력 += 30
		DOWNBASE:MASTER:기력 += 50
	ELSE
		DOWNBASE:기력 += 70
		DOWNBASE:MASTER:기력 += 100
	ENDIF

	;고정으로 획득하는 소스
	SOURCE:PLAYER:성행동= (ABL:PLAYER:혀 * 2 + 10)/20
	SOURCE:쾌M = ABL:PLAYER:혀 * 2 + 10
	SOURCE:PLAYER:쾌M = ABL:혀 * 2 + 10
	SOURCE:환락 = 150
	SOURCE:사랑 = 150
	SOURCE:노출 = 80
	SOURCE:반감 = 300
	SIF CFLAG:수면
		SOURCE:반감 = 200

	;ABL:친밀을 본다
	IF ABL:친밀 <= 1
		SOURCE:사랑 += (ABL:친밀 * 30)
	ELSEIF ABL:친밀 <= 3
		SOURCE:환락 += 150 + (ABL:친밀 * 30)
		SOURCE:사랑 += 150 + (ABL:친밀 * 30)
		SOURCE:욕정 += 65 + (ABL:친밀 * 20)
	ELSEIF ABL:친밀 <= 5
		SOURCE:환락 += 300 + (ABL:친밀 * 40)
		SOURCE:사랑 += 280 + (ABL:친밀 * 30)
		SOURCE:욕정 += 130 + (ABL:친밀 * 26)
		SOURCE:노출 += 80 + (ABL:친밀 * 15)
	ELSEIF ABL:친밀 <= 8
		SOURCE:환락 += 450 + (ABL:친밀 * 70)
		SOURCE:사랑 += 380 + (ABL:친밀 * 40)
		SOURCE:욕정 += 170 + (ABL:친밀 * 30)
		SOURCE:노출 += 110 + (ABL:친밀 * 18)
	ELSEIF ABL:친밀 <= 11
		SOURCE:환락 += 500 + (ABL:친밀 * 85)
		SOURCE:사랑 += 480 + (ABL:친밀 * 50)
		SOURCE:욕정 += 230 + (ABL:친밀 * 35)
		SOURCE:노출 += 160 + (ABL:친밀 * 20)
	ELSE
		SOURCE:환락 += 800 + (ABL:친밀 * 80)
		SOURCE:사랑 += 760 + (ABL:친밀 * 45)
		SOURCE:욕정 += 350 + (ABL:친밀 * 30)
		SOURCE:노출 += 260 + (ABL:친밀 * 17)
	ENDIF

	;호감 도를 본다
	IF CFLAG:2 <= 500
		SOURCE:사랑 += CFLAG:2
	ELSEIF CFLAG:2 <= 5000
		SOURCE:사랑 += 400 + (CFLAG:2 - 500) / 5
		SOURCE:환락 += 400 + (CFLAG:2 - 500) / 4
	ELSE
		SOURCE:사랑 += 1200 + (CFLAG:2 - 5000) / 7
		SOURCE:환락 += 1200 + (CFLAG:2 - 5000) / 4
	ENDIF
	SIF SOURCE:사랑 < 0
		SOURCE:사랑 = 0

	LOCAL = 0
	;호감도가 낮으면 호감도 저하
	IF CFLAG:2 <= 100
		LOCAL -= 3
	ELSEIF CFLAG:2 <= 300
		LOCAL -= 2
	ELSEIF CFLAG:2 <= 500
		LOCAL -= 1
	ENDIF

SIF CFLAG:몸목적
	SOURCE:사랑 *= 3

	SOURCE:수동 = 150 + 300 * ABL:순종
	SOURCE:정복 = 150 + 300 * ABL:새드끼

	;호감도 변화
	SIF !CFLAG:수면
		TFLAG:97 += LOCAL

	;둘이서라면 효과 업, 그렇지 않으면 노출 이외 다운=============
	FOR LOCAL,1,CHARANUM
		SIF CFLAG:LOCAL:동실
			LOCAL:2 ++
	NEXT
	IF LOCAL:2 == 1
		TIMES SOURCE:환락 , 1.20
		TIMES SOURCE:사랑 , 1.20
		TIMES SOURCE:정복 , 1.20
		TIMES SOURCE:수동 , 1.20
	ELSE
		TIMES SOURCE:환락 , 0.70
		TIMES SOURCE:사랑 , 0.80
		TIMES SOURCE:정복 , 0.80
		TIMES SOURCE:수동 , 0.90
		TIMES SOURCE:노출 , 1.10
	ENDIF
	;무드의 영향=====================================================
	IF BASE:무드 == MAXBASE:무드
		TIMES SOURCE:환락 , 1.30
		TIMES SOURCE:사랑 , 1.30
		TIMES SOURCE:정복 , 1.20
		TIMES SOURCE:수동 , 1.20
		TIMES SOURCE:노출 , 1.30
	ELSEIF BASE:무드 < 600 && BASE:무드 > 200 && !TALENT:키스마
		TIMES SOURCE:환락 , 0.70
		TIMES SOURCE:사랑 , 0.75
		TIMES SOURCE:정복 , 0.70
		TIMES SOURCE:수동 , 0.60
		TIMES SOURCE:노출 , 0.50
	ELSEIF BASE:무드 <= 200 && !TALENT:키스마
		TIMES SOURCE:환락 , 0.40
		TIMES SOURCE:사랑 , 0.40
		TIMES SOURCE:정복 , 0.40
		TIMES SOURCE:수동 , 0.40
		TIMES SOURCE:노출 , 0.35
	ENDIF
	;키스마===============================================================
	IF TALENT:키스마
		TIMES SOURCE:환락 , 1.40
		TIMES SOURCE:사랑 , 1.40
	ENDIF
	;=====================================================================
	IF TFLAG:193 == -1
		TIMES SOURCE:환락 , 0.10
		TIMES SOURCE:사랑 , 0.50
		TIMES SOURCE:정복 , 0.50
		TIMES SOURCE:수동 , 0.50
		TIMES SOURCE:노출 , 0.40
	ELSEIF TFLAG:193 == 0
		TIMES SOURCE:환락 , 1.00
		TIMES SOURCE:사랑 , 1.00
		TIMES SOURCE:정복 , 1.00
		TIMES SOURCE:수동 , 1.00
		TIMES SOURCE:노출 , 0.90
	ELSE
		TIMES SOURCE:환락 , 2.00
		TIMES SOURCE:사랑 , 2.00
		TIMES SOURCE:정복 , 2.00
		TIMES SOURCE:수동 , 2.00
		TIMES SOURCE:노출 , 1.80
	ENDIF
	TIME += 10
	SIF !CFLAG:수면
		EXP:키스경험 += 1
	;SOURCE 설정하고 있으면, SOURCE 처리로 CVABM 경험은 플러스 되므로 코멘트 아웃
	;EXP:M경험 += 1
	;전술
	;EXP:MASTER:M경험 += 1
	EXP:MASTER:키스경험 += 1
	IF CHK_DATENOW(CFLAG:TARGET:데이트중)
		;KR판 오리지날 붉은실
		CALL 붉은실발동
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
		CALL DATE_GOES_ON(1)
	ENDIF
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 2
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 2
	ENDIF
	;키스 한 플래그
	SIF !TALENT:연모 && !TALENT:연인 && !TALENT:애욕 && !TALENT:섹프
		TCVAR:314 = 1440 * DAY + TIME
ENDIF
TCVAR:FK상실 = 1

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE312
;키스 하는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(312)
	RETURN RESULT
;시간정지중은 스킵
IF !FLAG:70
	;친해져 강도 1
	SIF (TCVAR:MASTER:친해져 < 1) && !CFLAG:수면
		RETURN 0
	;수면중
	SIF CFLAG:수면 && !CFLAG:장난 && !CFLAG:동침중
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
	;1시간 간격
	SIF TIME_PROGRESS(TCVAR:314) < 60 && CFLAG:우후후 != 2
		RETURN 0
ENDIF
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;입사용중
SIF TFLAG:60 && MASTER_POSE(SET_M, SET_M) != TARGET
	RETURN 0
SIF GETBIT (TCVAR:26,2)
	RETURN 0
;식스나인 몸의자세
SIF TEQUIP:식스나인
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF312 키스한다_t.ERB


path: ERB/커맨드관련/COMF/일상계/COMF313 가슴애무_t.ERB


code:
;-------------------------------------------------
;애널애무
;일상계 커맨드 레벨 3
;-------------------------------------------------
@COM314
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
TFLAG:이성깎기 = 1
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 40
	SOURCE:쾌A = 80
	IF ABL:PLAYER:손가락 >= 4
		SOURCE:쾌A += 50
	ELSE
		SOURCE:쾌A += ABL:PLAYER:손가락 * 10
	ENDIF
	;손을 돌진할 수 없는 의상
	IF TEQUIP:0 & 16
		TIMES SOURCE:쾌A , 0.60
		TIMES SOURCE:욕정 , 0.60
		TIMES SOURCE:노출 , 0.60
	;치마이외의무엇인가를 신고 있다
	ELSEIF TEQUIP > 1
		TIMES SOURCE:쾌A , 0.80
		TIMES SOURCE:욕정 , 0.80
		TIMES SOURCE:노출 , 0.80
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	ENDIF
	SIF TFLAG:60 < 2
		EXP:PLAYER:수음경험 ++
	ENDIF
ELSE
	IF FLAG:생활능력무 && !CFLAG:우후후
		DRAWLINE
		PRINTFORMW %CALLNAME:MASTER%에게 그런 담력은 없다
		RETURN -1
	ENDIF
	DOWNBASE:체력 += 40
	DOWNBASE:기력 += 100

	SOURCE:쾌A = 80
	SOURCE:고통 = 50
	SOURCE:굴종 = 100
	SOURCE:노출 = 120
	SOURCE:욕정 = 170
	SOURCE:환락 = 50
	SOURCE:일탈 = 80
	SOURCE:반감 = 60
	SOURCE:수동 = 150 + 300 * ABL:순종
	IF ABL:PLAYER:손가락 >= 4
		SOURCE:쾌A += 50
	ELSE
		SOURCE:쾌A += ABL:PLAYER:손가락 * 10
	ENDIF
	;손을 돌진할 수 없는 의상
	IF TEQUIP:0 & 16
		TIMES SOURCE:쾌A , 0.60
		TIMES SOURCE:욕정 , 0.60
		TIMES SOURCE:노출 , 0.60
	;치마이외의무엇인가를 신고 있다
	ELSEIF TEQUIP > 1
		TIMES SOURCE:쾌A , 0.80
		TIMES SOURCE:욕정 , 0.80
		TIMES SOURCE:노출 , 0.80
	ENDIF

	;신뢰
	TFLAG:98 = -7

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 100
ENDIF
;A에의 고통은 먼저 처리해 둔다
SIF TCVAR:20 == 72 && !TEQUIP:식스나인
	CALL PAIN_CHECK_A(TARGET)

;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
IF TCVAR:20 == 72 && !TEQUIP:식스나인
	;노예의 A⇔조교자의 손가락의 더러움이 이동
	STAIN:PLAYER:0 |= STAIN:4
	STAIN:4 |= STAIN:PLAYER:0
ELSE
	;노예의 A⇔조교자의 손가락의 더러움이 이동
	STAIN:PLAYER:1 |= STAIN:4
	STAIN:PLAYER:1 |= STAIN:7
	STAIN:4 |= STAIN:PLAYER:1
	STAIN:7 |= STAIN:PLAYER:1
ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
IF FLAG:70 == 1
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	ENDIF
	SIF TFLAG:60 < 2
		EXP:PLAYER:수음경험 ++
	SIF TEQUIP:식스나인 || TCVAR:20 == 72
		EXP:PLAYER:펠라티오경험 ++
ELSE
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 4
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 4
	ENDIF
	SIF TFLAG:60 < 2
		EXP:PLAYER:수음경험 ++
	SIF TEQUIP:식스나인 || TCVAR:20 == 72
		EXP:PLAYER:펠라티오경험 ++
	TIME += 10
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE314
;애널애무 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(314)
	RETURN RESULT
;시간정지중은 스킵
IF !FLAG:70
	;친해져 강도 1
	SIF TCVAR:MASTER:친해져 < 2
		RETURN 0
	;수면중
	SIF CFLAG:수면
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
	;동침중
	SIF CFLAG:동침중
		RETURN 0
	;데이트중
	SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
		RETURN 0
ENDIF
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
SIF TEQUIP:51 >= 0
	RETURN 0
;안면승마 애널(팔판정 회피)
SIF TCVAR:20 == 72
	RETURN 1
;식스나인 몸의자세(팔판정 회피)
SIF TEQUIP:식스나인
	RETURN 1
;팔사용중
SIF TFLAG:61 && MASTER_POSE(SET_A,SET_YUBI) != TARGET
	RETURN 0
SIF GETBIT (TCVAR:26,4)
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF314 애널애무_t.ERB


code:
;-------------------------------------------------
;구리 애무
;일상계 커맨드 레벨 3
;-------------------------------------------------
@COM315

;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
TFLAG:이성깎기 = 1
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 20
	SOURCE:쾌C = 80
	IF ABL:PLAYER:손가락 >= 4
		SOURCE:쾌C += 50
	ELSE
		SOURCE:쾌C += ABL:PLAYER:손가락 * 10
	ENDIF
	;손을 돌진할 수 없는 의상
	IF TEQUIP:0 & 16
		TIMES SOURCE:쾌C , 0.80
		TIMES SOURCE:욕정 , 0.80
		TIMES SOURCE:노출 , 0.80
	;치마이외의무엇인가를 신고 있다
	ELSEIF TEQUIP > 1
		TIMES SOURCE:쾌C , 0.90
		TIMES SOURCE:욕정 , 0.90
		TIMES SOURCE:노출 , 0.90
	ENDIF
ELSE
	IF FLAG:생활능력무 && !CFLAG:우후후
		DRAWLINE
		PRINTFORMW %CALLNAME:MASTER%에게 그런 담력은 없다
		RETURN -1
	ENDIF
	DOWNBASE:체력 += 5
	DOWNBASE:기력 += 50

	SOURCE:환락 = 100
	SOURCE:사랑 = 150
	SOURCE:욕정 = 150
	SOURCE:노출 = 100
	SOURCE:반감 = 370
	SOURCE:쾌C = 80
	SOURCE:수동 = 145 + 270 * ABL:순종
	IF ABL:PLAYER:손가락 >= 4
		SOURCE:쾌C += 50
	ELSE
		SOURCE:쾌C += ABL:PLAYER:손가락 * 10
	ENDIF
	;손을 돌진할 수 없는 의상
	IF TEQUIP:0 & 16
		TIMES SOURCE:쾌C , 0.80
		TIMES SOURCE:욕정 , 0.80
		TIMES SOURCE:노출 , 0.80
	;치마이외의무엇인가를 신고 있다
	ELSEIF TEQUIP > 1
		TIMES SOURCE:쾌C , 0.90
		TIMES SOURCE:욕정 , 0.90
		TIMES SOURCE:노출 , 0.90
	ENDIF

	;신뢰
	TFLAG:98 = -5

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 20
ENDIF
;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
;노예의 V⇔조교자의 입의 더러움이 이동
STAIN:3 |= STAIN:PLAYER:1
STAIN:PLAYER:1 |= STAIN:3
IF FLAG:70 == 1
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 3
	ENDIF
ELSE
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 3
		EXP:MASTER:레즈경험 += 3
	ENDIF
	TIME += 10
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE315
;구리 애무 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(315)
	RETURN RESULT
;시간정지중은 스킵
IF !FLAG:70
	;친해져 강도 2
	SIF (TCVAR:MASTER:친해져 < 2)  && CFLAG:수면 == 0
		RETURN 0
	;수면중
	SIF CFLAG:수면 && !CFLAG:장난
		RETURN 0
	;동침중
	SIF CFLAG:동침중
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
	;데이트중
	SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
		RETURN 0
ENDIF
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;팔사용중
SIF TFLAG:61 && MASTER_POSE(SET_C,3) != TARGET && MASTER_POSE(SET_P,SET_YUBI) != TARGET && MASTER_POSE(SET_V,SET_YUBI) != TARGET && MASTER_POSE(SET_A,SET_YUBI) != TARGET
	RETURN 0
SIF GETBIT (TCVAR:26,5)
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF315 클리애무_t.ERB


path: ERB/커맨드관련/COMF/일상계/COMF316 손가락삽입_t.ERB


path: ERB/커맨드관련/COMF/일상계/COMF317 허리를움직인다_t.ERB


path: ERB/커맨드관련/COMF/일상계/COMF318 허리를움직인다（Ａ）_t.ERB


path: ERB/커맨드관련/COMF/일상계/COMF325 로터를 삽입시킨다(V).ERB


path: ERB/커맨드관련/COMF/일상계/COMF326 로터를 삽입시킨다(A).ERB


code:
;-------------------------------------------------
;치마를넘기는
;일상계 커맨드, 레벨 1
;-------------------------------------------------
@COM330
#DIM MEKURI
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 10
ELSE
	IF FLAG:생활능력무
		DRAWLINE
		PRINTFORMW %CALLNAME:MASTER%에게 그런 담력은 없다
		RETURN -1
	ENDIF
	;고정으로 획득하는 소스
	SOURCE:노출 = 300
	SOURCE:반감 = 700
	IF FLAG:이상기상 == 6
		MEKURI = MAX(0,5000 - 500 * ABL:친밀)
		SELECTCASE MARK:반발각인
			CASE 0
				MEKURI /= 2
			CASE 2
				MEKURI *= 2
			CASE 3
				MEKURI *= 4
		ENDSELECT
		[IF_DEBUG]
		PRINTFORMW 치마넘김으로{MEKURI}
		[ENDIF]
		CUP:쾌V += MEKURI
	ENDIF
	;호감도를 본다
	SELECTCASE CFLAG:2
		CASE 1000 TO 3000
			SOURCE:사랑 += CFLAG:2 / 100
			SOURCE:반감 -= (ABL:친밀 * 10)
		CASE 3001 TO 5000
			SOURCE:사랑 += 100 + (CFLAG:2 - 500) / 5
			SOURCE:환락 += 100 + (CFLAG:2 - 500) / 4
			SOURCE:욕정 += (ABL:친밀 * 10)
			SOURCE:노출 += (ABL:친밀 * 15)
			SOURCE:반감 -= (ABL:친밀 * 15)
		CASE IS > 5000
			SOURCE:사랑 += 500 + (CFLAG:2 - 5000) / 7
			SOURCE:환락 += 500 + (CFLAG:2 - 5000) / 4
			IF !TALENT:연모
				SOURCE:욕정 += (ABL:친밀 * 15)
				SOURCE:노출 += (ABL:친밀 * 20)
				SOURCE:반감 -= (ABL:친밀 * 25)
			ELSE
				SOURCE:욕정 += (ABL:친밀 * 20)
				SOURCE:노출 += (ABL:친밀 * 30)
				SOURCE:반감 -= (ABL:친밀 * 40)
			ENDIF
	ENDSELECT
	SIF SOURCE:반감 < 0
		SOURCE:반감 = 0
	SIF SOURCE:사랑 < 0
		SOURCE:사랑 = 0

	LOCAL = 0
	;호감도가 낮으면 호감도 저하
	IF CFLAG:2 <= 100
		TFLAG:193 = -5
		DOWNBASE:MASTER:체력 -= ABL:전투능력 * 100
		TFLAG:치마걷어올리기지나고 += RAND:30
	ELSEIF CFLAG:2 <= 1000
		TFLAG:193 = -3
		DOWNBASE:MASTER:체력 -= ABL:전투능력 * 30
		TFLAG:치마걷어올리기지나고 += RAND:20
	ELSEIF CFLAG:2 <= 3000
		TFLAG:193 = -1
		TFLAG:치마걷어올리기지나고 += RAND:10
	ELSEIF CFLAG:2 <= 5000
		TFLAG:193 = 0
		TFLAG:치마걷어올리기지나고 += RAND:10
	ELSE
		TFLAG:193 = 1
		TFLAG:치마걷어올리기지나고 += RAND:5
	ENDIF

	SOURCE:수동 = 100 + 150 * ABL:순종
	SOURCE:정복 = 100 + 150 * ABL:새드끼

	;둘이서라면 효과 업, 그렇지 않으면 노출 이외 다운=============
	FOR LOCAL, 1, CHARANUM
		SIF CFLAG:LOCAL:동실
			LOCAL:2 ++
	NEXT
	IF LOCAL:2 == 1
		TIMES SOURCE:욕정 , 1.20
		TIMES SOURCE:노출 , 0.80
		LOCAL:3 = 1
	ELSE
		TIMES SOURCE:욕정 , 0.50
		TIMES SOURCE:노출 , 2.00
		TIMES SOURCE:반감 , 1.50
	ENDIF
	;무드의 영향=====================================================
	IF BASE:무드 == MAXBASE:무드
		TIMES SOURCE:욕정 , 1.20
		TIMES SOURCE:노출 , 1.20
		TIMES SOURCE:반감 , 0.50
	ELSEIF BASE:무드 < 600 && BASE:무드
		TIMES SOURCE:욕정 , 1.00
		TIMES SOURCE:노출 , 1.00
		TIMES SOURCE:반감 , 1.00
	ELSEIF BASE:무드 <= 200
		TIMES SOURCE:욕정 , 0.80
		TIMES SOURCE:노출 , 0.80
		TIMES SOURCE:반감 , 1.50
	ENDIF

	TIME += 5
	IF CHK_DATENOW(CFLAG:TARGET:데이트중)
		;KR판 오리지날 붉은실
		CALL 붉은실발동
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
		CALL DATE_GOES_ON(1)
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE330
;치마걷어 올리기 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(330)
	RETURN RESULT
;시간정지중은 스킵
IF !FLAG:70
	;수면중
	SIF CFLAG:수면
		RETURN 0
	;업무중
	SIF CFLAG:행동 == 5
		RETURN 0
	;데이트중
	SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
		RETURN 0
	;동침중
	SIF CFLAG:동침중
		RETURN 0
ENDIF
;복장 제한
SIF !(EQUIP:치마|| EQUIP:원피스|| EQUIP:기모노|| EQUIP:바지) || EQUIP:0 == 0
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
SIF !TARGET
	RETURN 0
;밀어넘어뜨려지고 안의 제어
SIF GETBIT (TCVAR:26,7)
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF330 스커트를넘김_t.ERB


code:
;-------------------------------------------------
;차를넣는(약넣은)
;일상계 커맨드, 레벨 1
;-------------------------------------------------
@COM331
#DIM 후끈응
#DIM 발각확률
#DIM 성공확률
후끈응 = 0
성공확률 = RAND:100
IF 성공확률 <= 9
	;10%로 대성공
	EXP:MASTER:회화경험 ++
	TFLAG:193 = 1
	TFLAG:98 = 2
ELSE
	;나머지는 일시적으로 성공
	TFLAG:193 = 0
	TFLAG:98 = 0
ENDIF
LOCAL:2 = 0
LOCAL:1 = TARGET
발각확률 = TALENT:MASTER:조합지식 ?  5 # 3
;IF TALENT:MASTER:조합지식
;	발각확률 = 5
;ELSE
;	발각확률 = 3
;ENDIF
FOR LOCAL, 1, GET_TARGETNUM() + 1
	;자고 있는 사람에게 먹일 수 없다
	SIF CFLAG:(TARGET:LOCAL):수면
		CONTINUE
	TARGET = TARGET:LOCAL
	CALL KOJO_MESSAGE_SEND("SUCCESS",-1, TARGET,-1,-1)
	SELECTCASE TFLAG:192
		;통상
		CASE 0
			;수면제 아이스티는 졸음을 느끼고 있으면(자) 마시지 않는다
			IF TCVAR:TARGET:수면제강도 >= 2 && TFLAG:131 == 252
				;PRINTFORML %타겟은% 하품을 하면서 차를 끊었다
				TCVAR:TARGET:수면제차사용 = 0
				CONTINUE
			;[악취 민감][결벽증]은 차이를 아는 사람
			;발각될 가능성은 조합지식의 유무로1/2인가1/1
			ELSEIF TALENT:TARGET:61 < 0
				IF (발각확률 - 3) ?  !RAND:(발각확률 - 3) # 1
					;LOCAL:2 ++
					;PRINTFORML %타겟은% 차에 입을 대지 않았다
					CONTINUE
				ENDIF
			;악취내성의 소질이 없으면 발각될 가능성은 조합지식의 유무로1/5인가1/3
			ELSEIF TALENT:TARGET:61 == 0
				IF !RAND:발각확률
					;LOCAL:2 ++
					;PRINTFORML %타겟은% 차에 입을 대지 않았다
					CONTINUE
				ENDIF
			ENDIF
		;강제 성공 or대성공
		CASE 1
			;수면제 아이스티는 졸음을 느끼고 있으면(자) 마시지 않는다
			IF TCVAR:TARGET:수면제강도 >= 2 && TFLAG:131 == 252
				;PRINTFORML %타겟은% 하품을 하면서 차를 끊었다
				TCVAR:TARGET:수면제차사용 = 0
				CONTINUE
			ENDIF
		;강제 실패
		CASE -1,-2
			CONTINUE
		;커맨드 종료
		;CASE -2
			;RETURN 0
	ENDSELECT
	;[악취 둔감][더러움 무시]가 있으면 확정으로 마시는, 잘되었네
	;SIF LOCAL:2
		;BREAK
	CALL COM331_1
	;TFLAG:193의 성공 여부 판정은 COM의 TARGET 전용이므로 수정
	SIF TARGET == LOCAL:1
		후끈응 = 1
NEXT
;SIF TCVAR:TARGET:미약 != 210 && TCVAR:TARGET:이뇨제 != 210 && TCVAR:TARGET:춘약 != 1 && !TCVAR:TARGET:수면제강도 >= 2
SIF !후끈응
	TFLAG:193 = -1
TFLAG:98 += 3
SIF TFLAG:193 == -1
	TFLAG:98 = 0
;SIF LOCAL:2 > 0
	;TFLAG:98 = 0
DOWNBASE:MASTER:기력 += 100
DOWNBASE:MASTER:체력 += 50
TIME += 30
TARGET = LOCAL:1
TFLAG:131 = 0
RETURN 1

@COM331_1

DOWNBASE:기력 += 10

;고정으로 획득하는 소스
SOURCE:환락 = 500

;ABL:순종을 본다
IF ABL:순종 <= 1
	SOURCE:환락 += (ABL:순종 * 60)
ELSEIF ABL:순종 <= 3
	SOURCE:환락 += 200 + (ABL:순종 * 60)
ELSEIF ABL:순종 <= 5
	SOURCE:환락 += 500 + (ABL:순종 * 60)
ELSEIF ABL:순종 <= 8
	SOURCE:환락 += 750 + (ABL:순종 * 75)
ELSEIF ABL:순종 <= 11
	SOURCE:환락 += 1000 + (ABL:순종 * 75)
ELSE
	SOURCE:환락 += 2000 + (ABL:순종 * 30)
ENDIF

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

SOURCE:수동 = 200 + 100 * ABL:순종
SOURCE:정복 = 200 + 100 * ABL:새드끼

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF
IF TFLAG:131 == 41
	TCVAR:TARGET:미약 = 210
	DOWNBASE:TARGET:기력 += 150
	DOWNBASE:TARGET:체력 += 150
	;PRINTFORML %타겟은% 미약들이의 차를 말했다
ELSEIF TFLAG:131 == 42
	TCVAR:TARGET:이뇨제 = 210
	DOWNBASE:TARGET:기력 += 150
	DOWNBASE:TARGET:체력 += 150
	;PRINTFORML %타겟은% 이뇨제들이의 차를 말했다
ELSEIF TFLAG:131 == 250
	;PRINTFORML %타겟은% 춘약들이의 차를 말했다
	TCVAR:TARGET:춘약 = 210
	DOWNBASE:TARGET:기력 += 150
	DOWNBASE:TARGET:체력 += 150
ELSEIF TFLAG:131 == 252
	;PRINTFORML %타겟은% 수면제들이의 차를 말했다
	IF TCVAR:TARGET:수면제강도 < 2
		TCVAR:TARGET:수면제강도 = 2
		TCVAR:TARGET:수면제차사용 = 1
	ENDIF
ENDIF
;차를 마신 플래그
TCVAR:300 = 1440 * DAY + TIME

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE331
;차를넣는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(301)
	RETURN RESULT
;2시간 간격
SIF TIME_PROGRESS(TCVAR:300) < 120
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;동침중
SIF CFLAG:동침중
	RETURN 0
SIF !TFLAG:131
	RETURN 0
;목욕탕
;SIF CFLAG:MASTER:현재위치 == 13 || CFLAG:MASTER:현재위치 == 24 || CFLAG:MASTER:현재위치 == 30 || CFLAG:MASTER:현재위치 == 39
SIF BATHCHECK(CFLAG:MASTER:현재위치) && GET_MAPID(CFLAG:MASTER:현재위치) == MAIN_MAP
	RETURN 0
;데이트중
SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF331 차를 탄다_약넣음_t.ERB


code:
;-------------------------------------------------
;술을대접한다
;일상계 커맨드, 레벨 1
;-------------------------------------------------
@COM332
VARSET LOCALS

PRINTL 무엇을 권할까?
CALL 술일람표시(1)
IF RESULT
	;마시는 술의 종류
	TFLAG:194 = RESULT
	ITEM:RESULT --
ELSE
	RETURN -1
ENDIF
PRINTFORML %마스터는% %조사처리(ITEMNAME:RESULT,"를")% 따라%CALLNAME:TARGET%에게 내밀었다…

;잠정적으로 성공 플래그를 세운다
TFLAG:193 = 0

IF !TALENT:TARGET:연모 && CFLAG:TARGET:만취간 == 2
	PRINTFORML %타겟은% 이제 %마스터와%는 술을 마실 생각이 없는 것 같다…
	SOURCE:반감 += 3000
	BASE:무드 = 0
	BASE:분노 = 1500
;	TFLAG:193 = -2
	RETURN -1
ENDIF
IF BASE:술기운 > MAXBASE:술기운 * 2 / 3
	PRINTFORML %타겟은% 더 이상 마실 생각이 없는 것 같다
;	TFLAG:193 = -1
	RETURN -1
ELSEIF TALENT:TARGET:술내성 == -2 && CFLAG:TARGET:술을못함 < 5
	SELECTCASE CFLAG:TARGET:술을못함
		CASE IS < -10
			LOCALS = %타겟은% 불쾌감을 노골적으로 나타냈다
		CASE IS <= -3
			LOCALS = 이전 불쾌한 기분이 든 %타겟은% 마시고 싶지 않을 것 같다…
		CASEELSE
		IF TARGET == 55
			LOCALS = %타겟은% 술을 마실 수는 없다며 거절했다
		ELSE
			LOCALS = 술을 못하는 %타겟은% 술 생각이 없는 것 같다…
		ENDIF
	ENDSELECT
	PRINTFORML %LOCALS%
	PRINTFORML [0] 포기한다
	PRINTFORML [1] 설득한다
	$LOOP
	INPUT
	IF RESULT == 0 || TARGET == 55
	;히자리는 종교적 신조이므로 절대 마시지 않는다
		PRINTFORML %타겟이% 술을 마실 기색이 없어 포기했다…
		TFLAG:193 = -5
		RETURN 0
	ELSEIF RESULT == 1
		IF (ABL:친밀 * 200 + ABL:MASTER:화술기능 * 100 + MIN(3, CFLAG:술을못함) * 300) * BASE:무드 / MAXBASE:무드 >= 1500
			PRINTFORML %CALLNAME:MASTER%의 설득에 의해 %타겟은% 흠칫흠칫 술에 입을 대기 시작했다…
			CFLAG:술을못함 += 1
			TFLAG:193 = 1
		ELSEIF CFLAG:술을못함 < -10
			PRINTFORML %타겟은% 마침내 화를 내고 말았다
			SOURCE:반감 += 3000
			BASE:무드 = 0
			BASE:분노 = 1500
			TFLAG:호감도마이너스 = 5
			TFLAG:193 = -2
			RETURN 1
		ELSE
			PRINTFORML %마스터가% 뭐라고 하든, %타겟은% 술에 입을 대지 않았다…
			SOURCE:반감 += 500
			BASE:무드 /= 2
			TFLAG:호감도마이너스 = 1
			TFLAG:193 = -1
			RETURN 1
		ENDIF
	ELSE
		GOTO LOOP
	ENDIF
ENDIF

;약주, 감주때만, 회복 효과를 부여
IF (TFLAG:194 == 59 || TFLAG:194 == 56) && TFLAG:193 >= 0
	SELECTCASE TFLAG:194
		CASE 56		;감주　100미만의 회복량이므로 별도 표기
			;KR판 오리지날. 일판에서는 "감주" 가 아닌 "표시첨부"
			CALL RECOVER(MASTER, 50, "체력", "감주")
			CALL RECOVER(MASTER, 80, "기력", "감주")
			CALL RECOVER(TARGET, 50, "체력", "감주")
			CALL RECOVER(TARGET, 80, "기력", "감주")
		CASE 59		;약주
			CALL RECOVER(MASTER, 100, "체력", "약주")
			CALL RECOVER(MASTER, 150, "기력", "약주")
			CALL RECOVER(TARGET, 100, "체력", "약주")
			CALL RECOVER(TARGET, 150, "기력", "약주")
		ENDSELECT
ELSE
	DOWNBASE:MASTER:기력 += 100
	DOWNBASE:MASTER:체력 += 50
ENDIF
CALL DRUNKEN(MASTER,TFLAG:194)

CALL COM332_1

TIME += 30
RETURN 1

@COM332_1
#DIM 술기운증가량
#DIM 미보정
DOWNBASE:기력 += 10

;고정으로 획득하는 소스
SOURCE:환락 = 500

CALL DRUNKEN(TARGET,TFLAG:194)

;연속실행시는 반감이 발생
SIF PREVCOM == SELECTCOM
	SOURCE:반감 = 100

;ABL:순종을 본다
IF ABL:순종 <= 1
	SOURCE:환락 += (ABL:순종 * 30)
ELSEIF ABL:순종 <= 3
	SOURCE:환락 += 400 + (ABL:순종 * 30)
ELSEIF ABL:순종 <= 5
	SOURCE:환락 += 600 + (ABL:순종 * 30)
ELSEIF ABL:순종 <= 8
	SOURCE:환락 += 800 + (ABL:순종 * 50)
ELSEIF ABL:순종 <= 11
	SOURCE:환락 += 1000 + (ABL:순종 * 70)
ELSE
	SOURCE:환락 += 1500 + (ABL:순종 * 40)
ENDIF

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

SOURCE:수동 = 200 + 100 * ABL:순종
SOURCE:정복 = 200 + 100 * ABL:새드끼

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF

;맛에 의한 보정
미보정 = ALCOHOL_TASTE(TFLAG:194)
IF TALENT:TARGET:술내성 == -2 && ALCOHOL_TASTE(TFLAG:194) < 15
	IF CFLAG:TARGET:술을못함 < 3
		미보정 /= 2
		PRINTFORML %타겟은% 조금 입을 붙인 것만으로 그만두어 버렸다
	ELSEIF CFLAG:TARGET:술을못함 < 5
		미보정 = 미보정 / 3 * 2
		PRINTFORML %타겟은% 이전부터 음주에 저항이 없어진 것 같다
	ELSE
		PRINTFORML %타겟은% 깨끗이 잔을 비웠다
	ENDIF
ENDIF

SOURCE:환락 = SOURCE:환락 * 미보정 / 10
SOURCE:정복 = SOURCE:정복 * 미보정 / 10
SOURCE:수동 = SOURCE:수동 * 미보정 / 10

;신뢰
TFLAG:98 = ALCOHOL_TASTE(TFLAG:194) / 5

IF ALCOHOL_TASTE(TFLAG:194) < 10
	PRINTFORMW %CALLNAME:TARGET%의 입에는 맞지 않았던 것 같다…
	IF TALENT:TARGET:술내성 == -2
		CFLAG:TARGET:술을못함 --
		TFLAG:호감도마이너스 = 1
		TFLAG:98 = -1
	ENDIF
ELSEIF ALCOHOL_TASTE(TFLAG:194) >= 15
	SELECTCASE TFLAG:194
		CASE 513	;하룻밤의쿠시나다의 특수 텍스트
			SELECTCASE TALENT:TARGET:술내성
				CASE 3
					PRINTFORMW %타겟은% %조사처리(ITEMNAME:(TFLAG:194),"를")% 마시기 쉽다며 술고래에 맞게 벌컥벌컥 과음하고 있다…
				CASE 2
					PRINTFORMW %타겟은% %조사처리(ITEMNAME:(TFLAG:194),"를")% 마시기 쉽다며 꿀꺽꿀꺽 삼키고 있다…
				CASE 1
					PRINTFORMW %타겟은% %조사처리(ITEMNAME:(TFLAG:194),"를")% 마시기 쉽다며 훌쩍 마셔 버렸다…
				CASEELSE
					PRINTFORMW %타겟은% %조사처리(ITEMNAME:(TFLAG:194),"를")% 마음에 들어하는 것 같다…
			ENDSELECT
		CASEELSE
			PRINTFORMW %타겟은% %조사처리(ITEMNAME:(TFLAG:194),"를")% 마음에 들어하는 것 같다…
	ENDSELECT
	SIF CFLAG:TARGET:술을못함 < 5
		CFLAG:TARGET:술을못함 ++
	CALL KIGEN_CHANGE(TARGET,40,1)
ENDIF

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE332
;술소지 판정
SIF !ITEM:51 && !ITEM:52 && !ITEM:53 && !ITEM:54 && !ITEM:55 && !ITEM:56 && !ITEM:57 && !ITEM:58 && !ITEM:59
	RETURN 0
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(332)
	RETURN RESULT
;수면중
SIF CFLAG:수면
	RETURN 0
;동침중
SIF CFLAG:동침중
	RETURN 0
;임신자각상태는 불가
SIF CFLAG:임신자각상태 == 1
	RETURN 0
;목욕탕
SIF BATHCHECK(CFLAG:MASTER:현재위치)
	RETURN 0
;데이트중
SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
	RETURN 0
;외출처에서 실행시는 친밀 3을 요구
SIF CFLAG:MASTER:현재위치 > 99 && ABL:친밀 < 3
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
SIF TARGET < 1
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF332 술을대접_t.ERB


code:
;-------------------------------------------------
;푸념을듣는다
;일상계 커맨드, 레벨 2
;-------------------------------------------------
@COM333
VARSET LOCAL

;고정으로 획득하는 소스
SOURCE:환락 = 400

LOCAL = 50 + ABL:MASTER:화술기능 * 5 + ABL:친밀 * 2

SIF BASE:술기운 > MAXBASE:술기운 / 2
	LOCAL -= 15

SELECTCASE TFLAG:192
	;통상
	CASE 0
		SELECTCASE RAND:LOCAL
			CASE IS < 20
				TFLAG:193 = 1
			CASE 20 TO 50
				TFLAG:193 = 2
			CASEELSE
				TFLAG:193 = 3
		ENDSELECT
	;강제성공 or 대성공
	CASE 1
		SELECTCASE RAND:LOCAL
			CASE IS < 50
				TFLAG:193 = 2
			CASEELSE
				TFLAG:193 = 3
		ENDSELECT
	;강제실패
	CASE -1
		TFLAG:193 = 1
	;커맨드종료
	CASE -2
		TFLAG:193 = -1
		RETURN 0
ENDSELECT
SIF BASE:술기운 > MAXBASE:술기운 / 2
	TFLAG:193 += 3

SELECTCASE TFLAG:193
	CASE 1
		SOURCE:반감 = 100
	CASE 2
		SOURCE:환락 += ABL:친밀 * 30
		TALENT:기분 ++
		BASE:분노 /= 2
		CFLAG:언짢음 = 0
	CASE 3
		SOURCE:환락 += ABL:친밀 * 50
		SOURCE:사랑 = 200
		TALENT:기분 ++
		BASE:분노 /= 2
		CFLAG:언짢음 = 0
	CASE 4
		SOURCE:반감 = 1000
		SOURCE:환락 += ABL:친밀 * 30
	CASE 5
		SOURCE:환락 += ABL:친밀 * 50
	CASE 6
		SOURCE:환락 += ABL:친밀 * 75
		SOURCE:사랑 = 300
		TALENT:기분 = 1
		BASE:분노 /= 2
		CFLAG:언짢음 = 0
ENDSELECT

TIME += 20

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE333
;푸념을 (듣)묻는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(333)
	RETURN RESULT
SIF FLAG:70
	RETURN 0
SIF ABL:친밀 < 3
	RETURN 0
SIF MARK:반발각인
	RETURN 0
SIF CFLAG:우후후
	RETURN 0
SIF TALENT:기분 >= 0
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/일상계/COMF333 푸념을들음_t.ERB