code:
eraTheWorld　朱鷺子口上 ver1.0

TW4.730用の朱鷺子口上です。
--------------------------------------------------
※注意・コンセプト

朱鷺子はちょっと生意気で、少し気の強い、でも根は良い子。あと可愛い。そんな名無しの妖怪です。

この口上の朱鷺子像はあくまで口上作者のイメージから出来たものです。大半（というより8，9割方）が口上作者のイメージと偏見と妄想で出来ています。ご了承ください。
あと作者の性癖が暴走してる所がある可能性があります。ごめんなさい。

＊テストプレイは軽くしか出来ていないので、動作しない部分がある恐れがあります＊

以上の注意を呼んで了承される方は導入して下さい。
--------------------------------------------------
※Q＆A
Q.%UNICODE(0x2665)%とかはお使いにならなかったんですか？

A.勉強不足で%UNICODE(0x2665)%の存在を知らず、手打ちで♥を打っていました。気づいたころにはもう引き返せなかった。（改めて最初から直す気力が無かった）

Q.今後の予定は？

A.イベントとか文のレパートリーを増やしてもっと充実させていきたい（やる気と時間があれば）

--------------------------------------------------
※反省点

もうちょっと語彙力の無さを実感しました。あと構文は他の口上様の物を真似したのが結構多いので、もうちょっと自分で工夫して作りたいと思いました。また口上を作るにあたって日常パートから取り掛かったのですが、そこで燃え尽きてしまい肝心の性行為パートが不完全燃焼・・・。そこらへんは改善していけたらいいな・・・と思います。（持ってくれ気力と体力）
--------------------------------------------------
※加筆・修正・改造・口上まとめ等

基本的に全然やってくれてOKです。ですが加筆・修正・改造に関しては更新履歴に
加筆・修正・改造した箇所と加筆・修正・改造した人の名前を明記していただけると嬉しいです。
（加筆・修正・改造する時にどこが変わったのか分からなくなるため）

--------------------------------------------------
※苦情・バグ報告等

したらば掲示板のera板避難所eratoho総合スレにいることが多いのでそちらで
ご報告お願いします。

※私事で申し訳ありませんが2020年3月頃までは不在の事が多いです。
--------------------------------------------------
※参考にさせて頂いた方々

eraTheWorld用のテンプレを利用させていただきました、ありがとうございます。
TW久侘歌様、TW雷鼓様、TW小傘様、TWルナサ様、YMルーミア＆EXルーミア様、カウンターお空様の口上を特に参考にさせていただきました。
その他eraに関わる皆様方、ありがとうございます。

--------------------------------------------------
※更新履歴

2019/12/31
ver.1.0公開
2020/01/01
ver.1.01（エラーの修正）

--------------------------------------------------
※作者
Cancer

path: ERB/대사_메시지관련/개인대사/101 토키코/りどみ.txt


code:
;  ���q����
;  ��ҁFCancer
;  �����ς����ꍇ�͂����ɉ��ώ҂̖��O�E�A�����ǉ����遄
;
;  �����̌���ɂ��Č�����肷��X�y�[�X��
;
;  ���C�Z���X�F
;  ��҂͈ȉ��Ł��������s�ׂɂ��āA�N�ł����f�ōs������̂Ƃ��A�ᔽ���Ȃ����苖��P�񂵂Ȃ����̂Ƃ��܂��B
;    ���F��ɋ��@���F�v���k�A��L�̍�҂Ɖ��ώґS���ɘA�������Ȃ��ꍇ�͕s���@�~�F�s���A���k���󂯂Ă������Ȃ�
;
;  +----+-----------------------------------+
;  | ����̍Ĕz�z                           |
;  +----+-----------------------------------+
;  | �� | �P�̂ł̍ăA�b�v���[�h            |
;  | �� | �{�̂ւ̓����E����܂Ƃ߂ւ̎��^  |
;  +----+-----------------------------------+
;  | �Ĕz�z��������ꍇ�̉���             |
;  +----+-----------------------------------+
;  | �� | ����̉��M                        |
;  | �� | ����̉��ρE���̑�����            |
;  +----+-----------------------------------+
;  | ���̑�                                 |
;  +----+-----------------------------------+
;  | �� | ���̌���ł̗��p                  |
;  | �� | ����era�o���A���g�ł̗��p         |
;  | �� | era�ȊO�ւ̗��p                   |
;  | �� | �|��E������Ńo���A���g�ւ̗��p  |
;  | �~ | ���p���p�E���K�̂����𔺂����p|
;  | �� | �񎟑n��                          |
;  +----+-----------------------------------+
;  �E�ȉ��̍s�ׂɊւ��Ă�L�Ɗ֌W�Ȃ��A���f�ōs������̂Ƃ��܂��B
;    �P�F�o�O�E�뎚�E���̏C���E�{��VerUp�ւ̑Ή��̂��߂̉���
;  �E�ȉ��̍s�ׂɊւ��Ă�L�Ɗ֌W�Ȃ��A��҂ł����Ă��֎~�Ƃ��܂��B
;    �P�F�ȉ��̗�O�������A���̌��ォ�烉�C�Z���X���E�Y�t���́i�t�@�C�����������j�̓��e��ύX�E�폜���邱��
;        �E�����o�[�W��������A���C�Z���X�́��E�����~�ɕύX���邱��
;        �E�����o�[�W��������A��L�̍�҂Ɖ��ώґS���̋�������΁A����ȊO�̕ύX��
;    �Q�F���̌��オ�񎟑n�쓙�̏ꍇ�ɁA����҂��֎~��錾���Ă���s��
;  �E���ώ҂͎����̖��O���폜���邱�Ƃ��ł��A����ɂ�肱�̌���Ɋւ����؂̌�����������A�����ł��Ȃ������ɂ��čs�g���Ȃ����Ƃ�錾�������̂Ƃ��܂��B
;  �E���̌�����g�p�������Ƃɂ�鑹�Q���ɂ��āA�o���A���g�E����̍�ҁA���ώ҂͈�؂̐ӔC�𕉂��܂���B

repo_name: purugi/eraTWKR

path: ERB/대사_메시지관련/개인대사/101 토키코/ライセンステンプレ.txt

license: mit


code:
;******************************************************************
;口上専用使用変数定義
;******************************************************************
#DIM CONST K103_TC_バージョン		= 31;0.31

;一時保管用変数のためのDIM
#DIM CONST K103_TC_時止め判定		= 350
#DIM CONST K103_TC_時止め位置		= 351
#DIM CONST K103_TC_時止め解除位置	= 352
#DIM CONST K103_TC_前回体位			= 353

;キャラフラグ用DIM
#DIM CONST K103_CF_潜在的母乳体質	= 1001

;現状個人口上使用枠が定まっていないので、なんか競合したらここを変えることで対応
;SAVEDATA変数にしてしまうことも想定
#DIM CONST K103_CS_ペニス		= 81
#DIM CONST K103_CS_ヴァギナ		= 82
#DIM CONST K103_CS_アヌス		= 83
#DIM CONST K103_CS_ザーメン		= 84
;CSTR:103:CONST K103_CS_ペニス = おちんちん
;CSTR:103:CONST K103_CS_ヴァギナ = おまんこ
;CSTR:103:CONST K103_CS_アヌス = おしりの穴
;CSTR:103:CONST K103_CS_ザーメン = 精液


code:
;-------------------------------------------------
; eraTheWorld用 夢子口上
;
; おっぱいが敏感になる夢子の口上です!（ば―ん!
; 子供なしでも噴乳ができるように調整する予定です。
;-------------------------------------------------
;他者による修正, 加筆, 改変については, 同梱のライセンス条項に従ってください。

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;TCVAR:103:350				時止め時邂逅判定
;TCVAR:103:351				時止め位置（あなた）
;TCVAR:103:352				時止め解除位置（あなた）
;TCVAR:103:353				前回体位
;CFLAG:103:1001 			潜在的母乳体質フラグ
;CSTR:103:K103_CS_ペニス	ペニスの呼び方
;CSTR:103:K103_CS_ヴァギナ	ヴァギナの呼び方
;CSTR:103:K103_CS_アヌス 	アヌスの呼び方
;CSTR:103:K103_CS_ザーメン	ザーメンの呼び方
;CFLAG:103:1100	バージョン	管理番号
;
;K103_TC_*, K103_CF_*, K103_CS_* については, 同梱のERHファイルを参照してください
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K103(ARG)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

;と設定すると, "EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K103_1() とかで呼ばれる…はず。（未テスト機能）

;ここでCFLAG等のキャラ変数を使う場合, キャラ番号の指定が必要になります

;コメントアウトを外して眠姦口上有, 時間停止口上有に1を入れると, それぞれ時間停止時, 眠姦時, なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時, 眠姦時, なりきり時は一切喋りません

;破瓜キャンセル口上有に1を入れると, @M_KOJO_EVENT_K103_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れるとM_KOJO_EVENT_K103_PERMISSIONで押し倒しの成否を操作できます

;Xにはキャラ番号を入れてください

;CFLAG:X:면간대사있음 = 0
CFLAG:103:시간정지대사있음 = 1
;CFLAG:X:역극대사있음 = 0
;CFLAG:X:파과캔슬대사있음 = 0
;CFLAG:X:대사내껴안기판정_첫회 = 0
;CFLAG:X:대사내껴안기판정_통상 = 0

;CFLAG:덮침금지に1を入れると自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
;IF !TALENT:X:연모 && !TALENT:X:섹프
;	CFLAG:X:덮침금지 = 1
;ELSE
;	CFLAG:X:덮침금지 = 0
;ENDIF

;口上存在判定です, けしてコメントアウトしないでください
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K103
;ここでSETCOLORすることで口上に色を付けられます
SETCOLOR 0xFF1177

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K103
#DIM VERSION
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合, キャラ番号の指定が必要になります
VERSION = K103_TC_バージョン
IF CFLAG:103:1100 == VERSION
	PRINTFORML 최신 버젼입니다(ver.{CFLAG:103:1100 / 100}.{CFLAG:103:1100 % 100})
ELSE
	PRINTFORML 유메코의 성격을 강하게 합니다만 좋습니까?(특징에【다부짐】이 붙습니다. 새디즘이 아닙니다.)
	PRINTFORML
	PRINTL [1] - 좋다
	PRINTL [0] - 싫다
	INPUT
	IF RESULT
		TALENT:103:담력 = 1
		PRINTFORMW 유메코의 성격을 강하게 했습니다
	ENDIF
	PRINTFORML
	PRINTFORML 아이가 없다고 하더라도 열심히 노력하면 모유가 나오게 할 수 있도록 하시겠습니까?
	PRINTFORML (누적 질내사정양과 B경험 & B절정경험이 일정량 쌓이면【모유 체질】 및 【B민감】을 얻습니다)
	PRINTFORML
	PRINTL [1] - YES!
	PRINTL [0] - 아니, 아이가 있어야만 모유다
	INPUT
	IF RESULT
		CFLAG:103:1001 = 1
		PRINTFORMW 유메코를 잠재적 모유 체질로 만들었습니다
	ENDIF
	CFLAG:103:1100 = VERSION
	PRINTFORML
	PRINTFORML 업데이트가 완료되었습니다(ver.{CFLAG:103:1100 / 100}.{CFLAG:103:1100 % 100})
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;現在関係判定
;10の桁で陥落素質判断
;	10=他人 20=同行許可 30=思慕 40=恋慕 50=恋人 60=セフレ 70=愛欲
;1の桁で不機嫌度合いを判断
;	4=怒り 3=不機嫌 2=上機嫌 1=普通
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_KANKEI()
#FUNCTION
VARSET LOCAL
IF TALENT:연인
	;あなたと恋仲である
	LOCAL = 50
ELSEIF TALENT:연모
	;あなたに対して恋慕を抱いている
	LOCAL = 40
ELSEIF TALENT:사모
	;あなたに対して思慕を抱いている
	LOCAL = 30
ELSEIF TALENT:애욕
	;あなたに溺れている
	LOCAL = 70
ELSEIF TALENT:섹프 > 0
	;あなたとはセフレである
	LOCAL = 60
ELSEIF !TALENT:연모 && !TALENT:사모 && CFLAG:태도
	;あなたに対して特別な感情は抱いていないが同行を許可している
	LOCAL = 20
ELSE
	;あなたに対して何の感情も抱いていない。
	LOCAL = 10
ENDIF
IF CFLAG:빡침
	LOCAL += 4
ELSE
	SELECTCASE TALENT:기분
	CASE -1
		LOCAL += 3
	CASE 1
		LOCAL += 2
	CASE 0
		LOCAL += 1
	ENDSELECT
ENDIF
RETURNF LOCAL

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;挨拶
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_AISATSU
#FUNCTIONS
SELECTCASE TIME
CASE CLOCK_TO_TIME(4, 0) TO CLOCK_TO_TIME(10, 0)
	RETURNF "좋은 아침"
CASE CLOCK_TO_TIME(10, 0) TO CLOCK_TO_TIME(16, 0)
	RETURNF "좋은 낮"
CASEELSE
	RETURNF "좋은 밤"
ENDSELECT

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;神綺, もしくはアリスと一緒にいるかどうかの判定 結果はビット
;0:神綺と一緒　1：アリスと一緒　2：神綺とデ―ト中　3：アリスとデ―ト中
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_ISTOGETHER
#FUNCTION
LOCAL = 0
SIF CFLAG:현재위치 == CFLAG:102:현재위치
	LOCAL += 1p0
SIF CFLAG:현재위치 == CFLAG:17:현재위치
	LOCAL += 1p1
SIF FLAG:데이트상대 == 102
	LOCAL += 1p2
SIF FLAG:데이트상대 == 17
	LOCAL += 1P3
RETURNF LOCAL

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;邂逅時処理
;時止め時に使用する, 出会った処理
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_MEET
SIF !CFLAG:18
	CFLAG:18 = 1
SIF !TCVAR:182
	TCVAR:182 = 1
CFLAG:384 = DAY:0
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;時止め判定処理
;ARG=時止め後状態（※イベント口上17番参照）
;射精箇所等には対応していないので, 改造したい人うぇるかむです
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_PREVTW(ARG)
IF !CFLAG:18 && ARG == 2
	;面識無&絶頂
	TCVAR:350 = 9
ELSEIF !CFLAG:18 && ARG == 1
	;面識無&快感
	TCVAR:350 = 8
ELSEIF !CFLAG:18 && ARG == 3
	;面識無&パンツが無い
	TCVAR:350 = 7
ELSEIF !CFLAG:18 && ARG == 0
	;面識無
	TCVAR:350 = 6
ELSEIF !TCVAR:182 && ARG == 2
	;今日初&絶頂
	TCVAR:350 = 5
	CALL M_KOJO_K103_MEET
ELSEIF !TCVAR:182 && ARG == 1
	;今日初&快感
	TCVAR:350 = 4
	CALL M_KOJO_K103_MEET
ELSEIF !TCVAR:182 && ARG == 3
	;今日初&パンツが無い
	TCVAR:350 = 3
	CALL M_KOJO_K103_MEET
ELSEIF !TCVAR:182 && ARG == 0
	;今日初
	TCVAR:350 = 2
	CALL M_KOJO_K103_MEET
ELSE
	;目の前で時止め&解除したかの分岐
	;時止め直後
	IF TCVAR:351 != TCVAR:352
		;突然現れた
		SELECTCASE ARG
		CASE 2 ;絶頂
			TCVAR:350 = 14
		CASE 1 ;快感
			TCVAR:350 = 13
		CASE 3 ;パンツが無い
			TCVAR:350 = 12
		CASEELSE ;何もしてない
			TCVAR:350 = 11
		ENDSELECT
	ELSE
		;目の前での時止め&解除
		SELECTCASE ARG
		CASE 2 ;絶頂
			TCVAR:350 = 18
		CASE 1 ;快感
			TCVAR:350 = 17
		CASE 3 ;パンツが無い
			TCVAR:350 = 16
		CASEELSE ;何もしてない
			TCVAR:350 = 15
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;時止め判定リセット
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_RESETTW
TCVAR:350 = 0
TCVAR:351 = 0
TCVAR:352 = 0
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;ハ―トマ―ク記述用式中関数
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_HEART(ARG = 1)
#FUNCTIONS
LOCALS = %UNICODE(0x2764) * ARG%
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;母乳体質獲得関数
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_BONYU_SET
IF CFLAG:1001 && TALENT:모유체질
	;潜在的母乳体質であり、母乳体質でない場合のみ判定
	IF EXP:B절정경험 > 200 && EXP:B경험 > 1000
		PRINTFORMDL
		PRINTFORMW 「에, 잠깐, 이건…」
		PRINTFORMDL
		;恋慕
		IF TALENT:연모
			PRINTFORMDW 유메코는 몸을 흠칫 떨더니, 자기 젖꼭지를 집어 들고 보고 있다
			PRINTFORMDW 자세히 보니, 그 끝에서 하얀 액체가 배어나오고 있었다
			PRINTFORMDL
			PRINTFORMW 「아기도 없는데…이럴 수가 있네……아, 떨어진다…」
			PRINTFORMDL
			PRINTFORMDL %마스터는% 유메코의 가슴에 뛰어들어 방울져 떨어질 뻔한 모유를 핥았다
			PRINTFORMDL
			PRINTFORMW 「아앙……정말………응, 좀 부풀어 오른거 같기도……」
			PRINTFORMW 「책임지고 %마스터가% 마셔……」
		;それ以外
		ELSE
			PRINTFORMDW 유메코는 몸을 흠칫 떨더니, 자기 가슴을 들어올려 보고 있다
			PRINTFORMDW 자세히 보니, 그 앞은 촉촉하게 젖어 보였다
			PRINTFORMDL
			PRINTFORMW 「……에? 아니, 기다려 기다려…거짓말, 이런거…」
			PRINTFORMDL
			PRINTFORMDL %마스터는% 유메코의 가슴에서 스며드는 모유를 보면서, 손수건을 꺼내 유메코에게 건네준다
			PRINTFORMDL
			PRINTFORMW 「고…고마워……이런 걸 보여줘서……그런데 이거, 어떻게 하지………」
			PRINTFORMDL
			PRINTFORMDW 유메코는 난처한 표정을 지으며, 우선 지금 옷을 어떻게 입을지 생각하기 시작했다…
		ENDIF
		PRINTFORMDL

		TALENT:모유체질 = 1

		PRINTFORMDW 유메코는 모유가 나오게 되었다…
		PRINTFORMDL
			RETURN 1
	ENDIF
ENDIF
RETURN 1
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;固有文字列変数ゲッタ―
;UPDATEされてない状態だと文字列系が空なのでワンクッション置かないといけない
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_GET(ARGS)
#FUNCTIONS
LOCALS = ""
SELECTCASE ARGS
	CASE "ペニス","ちんこ","ちんぽ"
		SIF CSTR:103:K103_CS_ペニス == ""
			CSTR:103:K103_CS_ペニス = 자지
		LOCALS = %CSTR:103:K103_CS_ペニス%
	CASE "ヴァギナ","まんこ","おまんこ"
		SIF CSTR:103:K103_CS_ヴァギナ == ""
			CSTR:103:K103_CS_ヴァギナ = 보지
		LOCALS = %CSTR:103:K103_CS_ヴァギナ%
	CASE "アヌス","アナル","尻の穴","おしりの穴"
		SIF CSTR:103:K103_CS_アヌス == ""
			CSTR:103:K103_CS_アヌス = 엉덩이 구멍
		LOCALS = %CSTR:103:K103_CS_アヌス%
	CASE "ザーメン","スペルマ","精液","子種汁"
		SIF CSTR:103:K103_CS_ザーメン == ""
			CSTR:103:K103_CS_ザーメン = 정액
		LOCALS = %CSTR:103:K103_CS_ザーメン%
ENDSELECT
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;パンツチェッカ―関数
;RETURN -3:바지 -2:ずらせない下着 -1:상반신윗도리2だけどずらせない下着 0:노팬티ズボン 1:상반신윗도리2かつずらせる 2:노팬티スカ―ト 3:フリ―ダム
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_PANTSU()
#FUNCTION
IF CFLAG:노팬티
	SIF GETBIT(TEQUIP:하반신착의상황, 0)
		RETURNF 2							;ノ―パンスカ―ト
	SIF GETBIT(TEQUIP:하반신착의상황, 3)
		RETURNF 0							;ノ―パンズボン
	RETURNF 3								;フリ―ダム
ELSE
	IF GETBIT(TEQUIP:하반신착의상황, 0)
		SIF GETBIT(TEQUIP:하반신착의상황, 0)
			RETURNF 1							;スカ―トかつずらせる下着
		RETURNF -1								;スカ―トだけどずらせない下着
	ENDIF
	SIF GETBIT(TEQUIP:하반신착의상황, 3)
		RETURNF -3							;ズボン
	RETURNF -2								;ずらせない下着
ENDIF

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;めくりずらし関数
;めくったりずらしたりしてる描写の文字列を返す
;ズボンの描写に関しては多分大体実行判定で辿り着けない
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_ZURASHI()
#FUNCTIONS
LOCALS = ""
SELECTCASE M_KOJO_K103_PANTSU()
CASE 3
	;フリ―ダム
	;何もないから何もしない
CASE 2
	;ノ―パンスカ―ト
	LOCALS = %조사처리(SHOW_BOTTOM(TARGET, 1),"를")% 젖혀올라고
CASE 1
	;スカ―トかつずらせる下着
	LOCALS = %조사처리(SHOW_BOTTOM(TARGET, 1),"를")% 젖혀올리고 %조사처리(SHOW_BOTTOM(TARGET, 2),"를")% 비키어 놓고,
CASE 0
	;ノ―パンズボン
	LOCALS = %SHOW_BOTTOM(TARGET, 4)% 위에
CASE -1
	;스커트 벗기지 않는 속옷
	LOCALS = %조사처리(SHOW_BOTTOM(TARGET, 1),"를")% 젖혀올리고 %SHOW_BOTTOM(TARGET, 3)% 위에
CASE -2
	;비켜지지 않는 속옷
	LOCALS = %SHOW_BOTTOM(TARGET, 3)% 위에
CASE -3
	;바지
	LOCALS = %SHOW_BOTTOM(TARGET, 4)% 위에
CASEELSE
ENDSELECT
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;ランダムセレクタ用, RANDOM NOT REPEATの略 連続同数回避用共通ランダム関数
;引数 =>(ランダム範囲, 管理番号※一応コマンド毎に分けられるように1～999まで。省略すると1)
;DIMが静的変数であることを利用してRAND変数繰り返し時の同数取得を回避する
;すごい無駄が多い…可変長配列って無いのかな…
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_RANDNR(ARG, ARG:1 = 1)
#FUNCTION
#DIM PRELOCAL,999
IF ARG > 2 || (ARG:1 > 0 && ARG:1 < 1000)
	LOCAL = RAND:ARG
	WHILE LOCAL == PRELOCAL:(ARG:1)
		LOCAL = RAND:ARG
	WEND
	PRELOCAL:(ARG:1) = LOCAL
	RETURNF PRELOCAL:(ARG:1)
ELSE
	PRINTFORMDL M_KOJO_K103_RANDNR의 인수의 값이 범위외입니다
	RETURNF 0
ENDIF

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;口上内共通喘ぎ声ランダムセレクタ
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_AEGI
#FUNCTIONS
LOCAL = M_KOJO_K103_RANDNR(19,1)
SELECTCASE LOCAL
CASE 1
	LOCALS = 앗…앗…
CASE 2
	LOCALS = 앗…읏…
CASE 3
	LOCALS = 아앙…
CASE 4
	LOCALS = 아…안돼…앗…
CASE 5
	LOCALS = 후앗…앗…
CASE 6
	LOCALS = 응…응앗……
CASE 7
	LOCALS = ……핫………핫…
CASE 8
	LOCALS = 응, 안돼…안돼……
CASE 9
	LOCALS = …앗…아아아……
CASE 10
	LOCALS = 아…아아아앗…
CASE 11
	LOCALS = 힉…아앗앗…
CASE 12
	LOCALS = 아……좀 더…앗…
CASE 13
	LOCALS = 핫……앗…앗…
CASE 14
	LOCALS = 으응읏……으읏…
CASE 15
	LOCALS = 앗……아앙…
CASE 16
	LOCALS = 아힉……읏…
CASE 17
	LOCALS = 아응……아앙…
CASE 18
	LOCALS = 앗…아응…아읏…
CASEELSE
	LOCALS = 아응……아아읏…
ENDSELECT
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;口上内共通フェラ声ランダムセレクタ
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_FELLA
#FUNCTIONS
LOCAL = M_KOJO_K103_RANDNR(18,2)
SELECTCASE LOCAL
CASE 1
	LOCALS = 응…응츄…하아…
CASE 2
	LOCALS = 할짝…응무……
CASE 3
	LOCALS = 츄…하웁…
CASE 4
	LOCALS = 낼름…훕츄…
CASE 5
	LOCALS = 읏……츗…
CASE 6
	LOCALS = 아웁…뭄…푸훗……
CASE 7
	LOCALS = 핥짝…핥짝……낼름낼름…
CASE 8
	LOCALS = 츗…훕…츄…훕…
CASE 9
	LOCALS = …응…후하아…
CASE 10
	LOCALS = 하웁…아웁…
CASE 11
	LOCALS = 응츄…후아……
CASE 12
	LOCALS = …읏……츄훕…읏…
CASE 13
	LOCALS = …츗……후―……아웁…
CASE 14
	LOCALS = 암…음…
CASE 15
	LOCALS = 구웁…구웁…구웁……후웁…
CASE 16
	LOCALS = 낼름……츄…
CASE 17
	LOCALS = 쮸웁…쮸웁…
CASEELSE
	LOCALS = 낼름…낼름……응츄……
ENDSELECT

IF (TALENT:사모 || TALENT:연모) && RAND:(MAX(20 - ABL:친밀, 5)) == 1
	LOCAL = M_KOJO_K103_RANDNR(16,3)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = %LOCALS %%M_KOJO_K103_GET("ペニス")% 맛있어…
	CASE 2
		LOCALS = %LOCALS% %M_KOJO_K103_GET("ペニス")%, %M_KOJO_K103_GET("ペニス")%…
	CASE 3
		LOCALS = %LOCALS% %CALLNAME:MASTER%의 %M_KOJO_K103_GET("ペニス")% 마씨혀어…
	CASE 4
		LOCALS = %LOCALS% %M_KOJO_K103_GET("ペニス")%…귀여워…
	CASE 5
		LOCALS = %LOCALS% %M_KOJO_K103_GET("ペニス")%…이 냄새…좋아…
	ENDSELECT
ENDIF
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;口上内共通苦しみ声ランダムセレクタ
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_KURUSHIMI
#FUNCTIONS
LOCAL = M_KOJO_K103_RANDNR(9,4)
SELECTCASE LOCAL
CASE 1
	LOCALS = 으゛읏…
CASE 2
	LOCALS = 아읏…
CASE 3
	LOCALS = 아゛읏…아゛앗…
CASE 4
	LOCALS = 아…꺗…
CASE 5
	LOCALS = 으읏…
CASE 6
	LOCALS = 읏…끗……
CASE 7
	LOCALS = ……하앗…하앗…하앗…
CASE 8
	LOCALS = 으긋!?……
CASEELSE
	LOCALS = 갓……으읏…
ENDSELECT
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;口上内共通イき声ランダムセレクタ ARG=強度
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_IKU(ARG)
#FUNCTIONS
SELECTCASE ARG
CASE 1
	LOCAL = M_KOJO_K103_RANDNR(6,5)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = 간닷…
	CASE 2
		LOCALS = 핫…가, 가버려…
	CASE 3
		LOCALS = 으으으응, 간다…앗
	CASE 4
		LOCALS = 아…간다아…앗…아앗 가버려…읏
	CASE 5
		LOCALS = 더는 안돼, 가버려, 아, 아, 앗…
	CASEELSE
		LOCALS = 아, 간다…읏 간다…읏
	ENDSELECT
CASE 2
	LOCAL = M_KOJO_K103_RANDNR(6,6)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = 간다…간다간다…앗…멈추지마…앗…
	CASE 2
		LOCALS = 앗…간다간다간다, 가버려, 아, 아아아아아…
	CASE 3
		LOCALS = 안됏! …이제 간다, 가버려어! 아앙…간닷……
	CASE 4
		LOCALS = 아…간다…앗…간다……앗…이미 가버렸는데…아…간닷…
	CASE 5
		LOCALS = 이제 안돼, 가버려, 가버려, 가버려!!!
	CASEELSE
		LOCALS = 아, 간다 간다 간다 간다 가버려…읏
	ENDSELECT
CASE 3
	LOCAL = M_KOJO_K103_RANDNR(6,7)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = 간닷…간닷…아゛읏…멈추지마…아゛읏…기분 좋은거 멈추지마…아゛읏…
	CASE 2
		LOCALS = 아…간다 간다 갓, 가버려, 아아아아아, 머리가 이상해져버려, 가아…으읏
	CASE 3
		LOCALS = 안됏! …이제 간다, 가버려어! 아앙…아직 가앗, 앗, 이제 안돼, 안됀는데…앗…간닷…
	CASE 4
		LOCALS = 아…간닷…아゛읏…가앗……아゛읏…벌써 가고있는데……아…가앗…
	CASE 5
		LOCALS = 이제 안돼, 가버려, 가버려 가버려 가버려 가버렷, 아아아아아아!!!
	CASEELSE
		LOCALS = 아, 간다 간다 간다 간다, 안돼, 이제 안돼, 안돼는데, 아, 간다, 간닷…으읏
	ENDSELECT
ENDSELECT
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;各部位絶頂用記述用式中関数
;ARG= 1:クリ 2:おっぱい 3:口 4:おまんこ 5:おしりの穴
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_OG(ARG)
#FUNCTIONS
LOCALS =
SELECTCASE ARG
CASE 1
	LOCAL = M_KOJO_K103_RANDNR(6,8)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = 콩알, 콩알 기분좋아
	CASE 2
		LOCALS = 아, 크리토리스가 저릿해서…읏
	CASE 3
		LOCALS = 콩알, 콩알이잇, 앗
	CASE 4
		LOCALS = 아― 크리토리스 안돼, 아, 아, 아
	CASE 5
		LOCALS = 크리토리스 기분좋아, 기분좋아아
	CASEELSE
		LOCALS = 아, 콩알 저려, 앗
	ENDSELECT
CASE 2
	LOCAL = M_KOJO_K103_RANDNR(9,9)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = 가슴, 가슴 기분좋아아
	CASE 2
		LOCALS = 아, 젖꼭지 안돼앳…
	CASE 3
		LOCALS = 젖꼭지, 젖꼭지가, 앗
	CASE 4
		LOCALS = 아, 젖꼭지가 큐―웃 하고있어, 아, 아
	CASE 5
		LOCALS = 가슴 기분좋아, 가슴 기분좋아아
	CASE 6
		LOCALS = 가슴 굉장해, 굉장해애
	CASE 7
		LOCALS = 가슴 느껴버려엇
	CASE 8
		LOCALS = 가슴 좀 더, 좀 더어엇
	CASEELSE
		LOCALS = 젖꼭지, 젖꼭지로 느껴버려엇
	ENDSELECT
CASE 3
	LOCAL = M_KOJO_K103_RANDNR(5,10)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = 입으로 했을 뿐인데
			;おくひでひてるだけなのにぃ
	CASE 2
		LOCALS = 아, 아, 아, 아
	CASE 3
		LOCALS = 으무웃…으으으으응…
	CASE 4
		LOCALS = 입이 찌릿찌릿해
	CASE 5
		LOCALS = 빠는 것까지 기분 좋앗
			;わらひまで気持ちひいっ
	ENDSELECT
CASE 4
	LOCAL = M_KOJO_K103_RANDNR(9,11)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")%, %M_KOJO_K103_GET("ヴァギナ")% 기분좋아아…
	CASE 2
		LOCALS = 아아, %M_KOJO_K103_GET("ヴァギナ")% 안쪽으로…왔…읏
	CASE 3
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")%, %조사처리(M_KOJO_K103_GET("ヴァギナ"),"가")%, 앗…
	CASE 4
		LOCALS = 아, %M_KOJO_K103_GET("ヴァギナ")% 기분좋아, 아, 아아아아…
	CASE 5
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")% 부서져버려, 부서져버려어
	CASE 6
		LOCALS = 아아아아, 안돼, 안돼, %M_KOJO_K103_GET("ヴァギナ")% 질척질척…
	CASE 7
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")% 더 휘저어줘…
	CASE 8
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")% 굉장해, 앗, 안쪽에서 느껴어…
	CASEELSE
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")% 기분좋아… 앗…앗…앗…읏
	ENDSELECT
CASE 5
	LOCAL = M_KOJO_K103_RANDNR(6,12)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = %M_KOJO_K103_GET("アナル")%, %M_KOJO_K103_GET("アナル")% 기분좋아앗
	CASE 2
		LOCALS = 아, %조사처리(M_KOJO_K103_GET("アナル"),"가")% 으읏…읏
	CASE 3
		LOCALS = %M_KOJO_K103_GET("アナル")%, %조사처리(M_KOJO_K103_GET("アナル"),"가")%, 앗…
	CASE 4
		LOCALS = %M_KOJO_K103_GET("アナル")%의 속이 뜨거워, 뜨거워어…
	CASE 5
		LOCALS = %M_KOJO_K103_GET("アナル")% 기분좋아, %조사처리(M_KOJO_K103_GET("アナル"),"가")% 기분좋아아
	CASEELSE
		LOCALS = %M_KOJO_K103_GET("アナル")% 휘저어줘
	ENDSELECT
ENDSELECT
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;各部位射精記述用式中関数
;ARG= 1:손 2:おっぱい 3:口 4:おまんこ 5:おしりの穴
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_ZAMEN(ARG)
#FUNCTIONS
#DIMS 射精音
#DIMS 射精量
IF NOWEX:MASTER:사정 > 2
	LOCAL = M_KOJO_K103_RANDNR(5,13)
	SELECTCASE LOCAL
	CASE 1
		射精音 = 퓨―웃, 퓨―웃
	CASE 2
		射精音 = 퓨류루루루룻
	CASE 3
		射精音 = 도퓨도퓨도퓻
	CASE 4
		射精音 = 퓨웃퓨웃
	CASEELSE
		射精音 = 도퓨도퓨웃
	ENDSELECT
ELSEIF NOWEX:MASTER:사정 > 1
	LOCAL = M_KOJO_K103_RANDNR(5,13)
	SELECTCASE LOCAL
	CASE 1
		射精音 = 퓨―웃퓨―웃
	CASE 2
		射精音 = 퓨류퓨류룻
	CASE 3
		射精音 = 도퓨도퓻
	CASE 4
		射精音 = 퓨웃퓨웃
	CASEELSE
		射精音 = 도퓨웃
	ENDSELECT
ELSE
	LOCAL = M_KOJO_K103_RANDNR(5,13)
	SELECTCASE LOCAL
	CASE 1
		射精音 = 퓨―웃
	CASE 2
		射精音 = 퓨류퓨륫
	CASE 3
		射精音 = 도퓨도퓻
	CASE 4
		射精音 = 퓨웃퓨웃
	CASEELSE
		射精音 = 도퓨웃
	ENDSELECT
ENDIF

IF NOWEX:MASTER:사정 > 2
	LOCAL = M_KOJO_K103_RANDNR(3,14)
	SELECTCASE LOCAL
	CASE 1
		射精量 = 잔―안뜩
	CASE 2
		射精量 = 빠져 버릴 정도로
	CASEELSE
		射精量 = 굉장히 많―이
	ENDSELECT
ELSEIF NOWEX:MASTER:사정 > 1
	LOCAL = M_KOJO_K103_RANDNR(3,14)
	SELECTCASE LOCAL
	CASE 1
		射精量 = 잔뜩
	CASE 2
		射精量 = 많이
	CASEELSE
		射精量 = 굉장한 기세로
	ENDSELECT
ELSE
	LOCAL = M_KOJO_K103_RANDNR(3,14)
	SELECTCASE LOCAL
	CASE 1
		射精量 = 건강하게
	CASE 2
		射精量 = 힘차게
	CASEELSE
		射精量 = 기분 좋은 듯이
	ENDSELECT
ENDIF
LOCALS = ""
SELECTCASE ARG
CASE 1
	LOCAL = M_KOJO_K103_RANDNR(5,15)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = %射精音%하면서 %射精量% 나왔네, 기분 좋았어?
	CASE 2
		LOCALS = %射精音%하면서 %射精量% 나와아……%M_KOJO_K103_GET("ペニス")% 그렇게 기분이 좋았어?
	CASE 3
		LOCALS = %射精音% %射精音%하면서, 대단히 엄청나, 더 나올까…
	CASE 4
		LOCALS = %射精音%하면서……%CALLNAME:MASTER% 기분 좋은 것 같아……
	CASEELSE
		LOCALS = %조사처리(M_KOJO_K103_GET("ペニス"),"가")% 날뛰고 있어, %射精音%하면서………봐봐, %M_KOJO_K103_GET("ザーメン")% 투성이야…?
	ENDSELECT
CASE 2
	LOCAL = M_KOJO_K103_RANDNR(5,15)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = %射精音%하면서 %射精量% 나왔네, 가슴 기분 좋았어?
	CASE 2
		LOCALS = %射精音%하면서 %射精量% 나와아……%M_KOJO_K103_GET("ペニス")% 그렇게 기분이 좋았어?
	CASE 3
		LOCALS = %射精音% %射精音%하면서, 대단히 엄청나, 더 나올까…
	CASE 4
		LOCALS = %射精音%하면서……%CALLNAME:MASTER% 기분 좋은 것 같아……
	CASEELSE
		LOCALS = %조사처리(M_KOJO_K103_GET("ペニス"),"가")% 날뛰고 있어, %射精音%하면서………아아, 가슴이 %조사처리(M_KOJO_K103_GET("ザーメン"),"로")% 끈적끈적…
	ENDSELECT
CASE 3
	IF ABL:정액중독 > 4
		LOCAL = M_KOJO_K103_RANDNR(5,15)
		SELECTCASE LOCAL
		CASE 1
			LOCALS = 응, 으읏…엄처엉…마있어…
		CASE 2
			LOCALS = 응……응읏…으읏…푸앗…다 먹었다고?
		CASE 3
			LOCALS = 응뭅…으응―…꿀꺽꿀꺽…엄청난 양…
		CASE 4
			LOCALS = 응…꿀꺽…꿀꺽……낼름………이제 그마안?
		CASEELSE
			LOCALS = 응……응읏…츄―………후웃……응, 안에 있는 것도 전―부 마셨어
		ENDSELECT
	ELSE
		LOCAL = M_KOJO_K103_RANDNR(5,15)
		SELECTCASE LOCAL
		CASE 1
			LOCALS = 응, 응훗…
		CASE 2
			LOCALS = 응…응뭅…
		CASE 3
			LOCALS = 응뭅…으응―…
		CASE 4
			LOCALS = 응…크흡…콜록…콜록…
		CASEELSE
			LOCALS = 응……에훗……
		ENDSELECT
	ENDIF
CASE 4
	LOCAL = M_KOJO_K103_RANDNR(9,15)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")% 안에 %射精量% %조사처리(M_KOJO_K103_GET("ザーメン"),"가")% %射精音%하면서…
	CASE 2
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")% 속에 %조사처리(M_KOJO_K103_GET("ザーメン"),"가")% %射精音% 오고 있어엇…읏
	CASE 3
		LOCALS = %조사처리(M_KOJO_K103_GET("ザーメン"),"로")% %M_KOJO_K103_GET("ヴァギナ")% 속이 \@ NOWEX:ARG:사정 > 2 ? “빠져 버릴 것 같이” # “잔뜩” \@……
	CASE 4
		LOCALS = 아, 아, %M_KOJO_K103_GET("ヴァギナ")%에서 %M_KOJO_K103_GET("ザーメン")% \@ NOWEX:ARG:사정 > 2 ? “도퓨도퓨” # “질척질척” \@ 나오고 있어……
	CASE 5
		LOCALS = 질내에 %M_KOJO_K103_GET("ザーメン")% %射精音%하면서 %射精量% 나오고 있어…
	CASE 6
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")%에 %射精音%하면서……배가 불러…
	CASE 7
		LOCALS = 지금 %M_KOJO_K103_GET("ヴァギナ")%에서 %M_KOJO_K103_GET("ペニス")% 뽑으면 안돼……%M_KOJO_K103_GET("ザーメン")% 도퓨도퓨 나올거야……
	CASE 8
		LOCALS = %M_KOJO_K103_GET("ヴァギナ")% 굉장해, 앗, 안쪽에서 %M_KOJO_K103_GET("ザーメン")% %射精音%하면서…
	CASEELSE
		LOCALS = %M_KOJO_K103_GET("ザーメン")% %射精音%하는게 느껴져…%M_KOJO_K103_GET("ヴァギナ")% 따뜻해애…
	ENDSELECT
CASE 5
	LOCAL = M_KOJO_K103_RANDNR(4,15)
	SELECTCASE LOCAL
	CASE 1
		LOCALS = %M_KOJO_K103_GET("アナル")% 안에서 %M_KOJO_K103_GET("ザーメン")% %射精音%하면서 나오고 있어…
	CASE 2
		LOCALS = 아, %M_KOJO_K103_GET("ザーメン")% %射精音%하면서…뱃속 따뜻해……
	CASE 3
		LOCALS = %M_KOJO_K103_GET("アナル")%에 %M_KOJO_K103_GET("ザーメン")% %射精量% 나오고 있어……
	CASEELSE
		LOCALS = %M_KOJO_K103_GET("アナル")% 안쪽에 뜨거운 게 %射精音% 오고 있어…
	ENDSELECT
ENDSELECT
SIF !(ARG == 3 && ABL:정액중독 <= 4)
	LOCALS = 「%LOCALS%%M_KOJO_K103_HEART(1)%」
RETURNF LOCALS

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;各部位絶頂用記述用式中呼び出し関数
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_K103_CALL_ZAMEN()
IF NOWEX:MASTER:사정 > 0
	;TCVAR:2 射精箇所フラグ（-1=コンド―ム 1=膣内 2=アナル 3=手淫 4=口淫 5=パイズリ 6=素股 7=足コキ 8=体表 9=アナル奉仕 10=道具 11=触手 12=Ａ責め 13=Ｖ責め）
	SELECTCASE TCVAR:PLAYER:2
	CASE 4
		PRINTFORMW %M_KOJO_K103_ZAMEN(3)%
	CASE 5
		PRINTFORMW %M_KOJO_K103_ZAMEN(2)%
	CASE 1
		PRINTFORMW %M_KOJO_K103_ZAMEN(4)%
	CASE 2
		PRINTFORMW %M_KOJO_K103_ZAMEN(5)%
	CASEELSE
		PRINTFORMW %M_KOJO_K103_ZAMEN(1)%
	ENDSELECT
ENDIF
RETURN 1

path: ERB/대사_메시지관련/개인대사/103 유메코/M_KOJO_K103_00_専用関数.ERB