code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K58, ARGS

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定必須です。一定の確率で着用します
;もしも普段は付けない、という事ならCSTR:胖次 = と等号の右側を書き込まない事で出来ます
;CFLAG:随机内衣OFF = 1とした場合には、ここで設定した内衣のみを身に着けるようになります
CASE "内衣"
	CSTR:胖次 = 內褲/淡色/简约/
	CSTR:胸罩 = 简约胸罩/淡色/

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CALL SET_OTHER, ""

;学園での便装です。設定必須です。
;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 背心,美式校服など
;黑色水手服を着せたい場合には CALL SET_COSTUME, "水手服/黒" のように書き込むことで色を変えることが出来ます
;(RESOURCES→MAIDFACE→13服 フォルダ内にある MAIDFACE13.csv の該当衣装を見て色を選ばないとならないため上級者向きです)
;また、女式衬衫等の上に裤吊带を着けたい場合には CALL SET_OTHER, "裤吊带" として下さい
CASE "制服"
	CALL SET_COSTUME, "露脐装超短裙水手服"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服高開衩布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;死库水, 競泳泳装, 白比基尼, 黒比基尼など
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	SELECTCASE TEXTS("季節")
	CASE "春", "夏"
		CALL SET_SHIRT, "露脐吊帯背心"
		CALL SET_OUTER, "短褲"
		CALL SET_SHOES, "凉鞋"
		CALL SET_PANTIES, "Ｈ的内衣"
		CALL SET_BRA, "Ｈ的胸罩"
	CASEELSE
		CALL SET_SHIRT, "毛衣"
		CALL SET_SKIRT, "紧身迷你裙"
		CALL SET_SHOES, "長靴"
		CALL SET_OTHER, "围巾"
		CALL SET_PANTIES, "Ｈ的内衣"
		CALL SET_BRA, "Ｈ的胸罩"
	ENDSELECT

;自分的房間(not主人公的房間)で着ます
CASE "居家服"

;约会以外で家から外出際に着ます。ラブホ呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"

;朝Ｈの際に着ます
CASE "朝袭衣装"
	IF COND("同居中")

	ELSE

	ENDIF
;夜袭Ｈの際に着ます
CASE "夜袭衣装"

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;CALL SETFLAG, "普段の髪型復元", TARGET で変化させた髪型などを普段のものに戻すことが出来る
;-------------------------------------------------
@MAIDFACE_K58
IF COND("约会中")

ELSEIF PLACE("自宅")

ELSE

ENDIF

path: ERB/EVENT_K/58 魔華/EVENT_58_CLOTHES.ERB

license: unknown


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPLAYERとして呼ばれる
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K58, ARGS
#DIM MEMO_LINECOUNT
;対話相手にしたい角色の名前を/区切りでこれに突っ込んでFIND_TaiTa(EVENT_TABLE)とするとそのうち一人が選ばれる
#DIMS EVENT_TABLE

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;話しかける側のセリフ。COND("対話可能")を満たす相手を選んでPLAYERにする事で、特定の相手に話しかけることもできる
CASE "お誘いする"
	;特定の相手に話しかける場合はEVENT_TABLEに対話相手の呼び名(CALLNAME)を / 区切りで並べて ; を消す
	;例１）弗理希艾尔or濡烏の君or杏珠から一人選ぶ場合
	;EVENT_TABLE = 弗理希艾尔/濡烏の君/杏珠
	;例２）部員全てから一人選ぶ場合
	;EVENT_TABLE = 全員

	IF FIND_TaiTa(EVENT_TABLE)
		PLAYER = FIND_TaiTa(EVENT_TABLE)
		CALL EMOTION_PLUS, "交流中", TARGET, PLAYER
	ENDIF

;話しかけられる側のセリフ。括弧は『』を使うのが望ましい
CASE "誘われた"

ENDSELECT

path: ERB/EVENT_K/58 魔華/EVENT_58_COMM.ERB


code:
;-------------------------------------------------
;各種打招呼
;注意！ここのセリフは基本的に颜绘が付きます！！
;颜绘に変化を付けたい場合にはセリフの前でEMOTION_PLUSを用いる事で変えられます。
;例）恥じらった顔にさせたい場合には CALL EMOTION_PLUS, "害羞", TARGET
;-------------------------------------------------
@KOJO_GREETING_K58, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色のデフォのCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		PRINTFORMW 「%CNAME("二人称")%の朝一番の%CNAME("精液")%いただきに来ました！」
	CASE "朝騎乗位"
		PRINTFORMW 「…%CNAME("一人称")%の%CNAME("膣")%はもう%CNAME("二人称")%の%CNAME("精液")%%CNAME("射精音")%するためにあるようなものですからね」
		PRINTFORMW 「朝一番のお勤めというわけです」
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
	IF COND("水泳")
		PRINTFORML 「実は水泳の授業ってかなり楽しみなんですよね」
		PRINTFORMW 「男子の目線だけじゃなくて、うっすら勃起てるのがわかって優越感というか」
		PRINTFORMW 「%CNAME("一人称")%の体を思い出して一人でシコシコするんだろうなって」
	ELSEIF COND("体育")
		PRINTFORMW 「いや～、今日は体操服ですから胸が目立っちゃいますね」
		PRINTFORMW 「男子のエロい目線がいっぱい集まること間違い无です」
		PRINTFORMW 「今日も誰かのズリネタに使われちゃうんだろうなぁ」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、おはようございます」
		PRINTFORMW 「今日は何人のエロい目線を惹きつけられるか楽しみです」
	ENDIF
CASE "一番乗り"
	PRINTFORMW 「あれ？%CNAME("一人称")%が一番最初みたいですね」
	PRINTFORMW 「まあ、とりあえず賑やかになるまで待ちますか」
	;部活の標語
	IF CFLAG:標語実践
		SELECTCASE SAVESTR:標語
		CASE "注意口渴"
			PRINTFORMW 「自販機でアクエリでも買ってきますか」
		CASE "学生服は超短迷你に限る"
			PRINTFORMW 標語を横目で確認した%CALLNAME:TARGET%はどこか生真面目な表情を浮かべた
			PRINTFORMW 「いや、%CNAME("一人称")%は長裙でも十分みんなをエロい目つきにできますけど？」
		CASEELSE
		ENDSELECT
	ENDIF
CASE "ただいま"
	PRINTFORMW 「ただいまです。今日も归途で何人か%CNAME("一人称")%の胸部ジロジロ見られちゃいました」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「おかえりなさい、こんな時間まで「部活」ですか？」
	ELSE
		PRINTFORMW 「おかえりなさい」
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「まぁ%CNAME("一人称")%ほどのムチムチ美少女をいつでも好き放題できるとなると呼んじゃいますよねぇ・・・」
	;你が現在的partnerにＨ的悪戯をしている最中に入室した（partnerへの呼びかけはCNAME("partner")で出来る）
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		PRINTFORMW 「そういうこと、普通の男子は思っててもできないのに、何人も侍らせて贅沢ですねぇ・・・」
	ELSE
		PRINTFORMW 「あら、%CNAME("二人称")%もう居たんですか？」
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「あら？%CNAME("一人称")%遅れてしまいましたか？すいません」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「%CNAME("二人称")%、お疲れ大人です」
	ELSE
		PRINTFORMW 「あ、%CNAME("二人称")%お疲れ大人です」
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色のデフォのCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 「あ、どうもお疲れ大人です」
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「%CNAME("二人称")%、お疲れ大人です。皆桑待ってましたよ。」
	ELSE
		PRINTFORMW 「あ、%CNAME("二人称")%お疲れ大人です」
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW 「今日も飛機杯を使うくらいの気軽さで女の子を連れ出してらっしゃいますね」
CASE "便当"
	PRINTFORMW 「%CNAME("一人称")%なんかの弁当でほんとうにいいんですか？」
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"
	PRINTFORMW 「まるで性欲まみれの男子の妄想みたいな性活してますよね%CNAME("二人称")%は・・・」
ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;动画ーションの関係上、１ターンに何度も呼ばれたりするのでフラグ操作をする場合には
;IF CFLAG:KOJO_DAILY済 == 0
;で分岐させるのが良いでしょう
;-------------------------------------------------
@KOJO_DAILY_K58, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「じゃあ、%CNAME("二人称")%、早速はじめてもいいですよ」
CASE "浑身是汗"
	PRINTFORML 「汗でベタつくと制服が透けちゃって・・・いつもより視線が向いちゃう気がします」
CASE "刚睡醒"
	PRINTFORML 「もうちょっと・・・」
CASE "Cosplay中"
	PRINTFORML 「どうですか？みんなシコりたくなり是这様吗？」
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K58
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「他の女の子との兼ね合いも有ますし、都合のいい飛機杯でもいいですよ」
CASE "约会的约定"
	PRINTFORML 「周りの人が「あいつら交尾するんだ！」って勃起そうな约会にしましょうね」
CASE "摆脱"
	PRINTFORML 「いいですよ、行きましょう」
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「結構片付いてますね、弗理希艾尔桑に片付けさせてるんですか？まぁ、今から汚すようなことするんでしょうけれど」
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	PRINTFORML 「いつでも%CNAME("二人称")%の相手ができるように床はしっかりするようにしてるんですよ？」
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「・・・なにかご用件でしょうか？」
	ELSE
		PRINTFORML 「あれれ？ひょっとして性欲溜まっちゃってます？妄想でシコらなくても、こうやって押しかけちゃえる御身分ですもんね%CNAME("二人称")%は」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML 「どうも、失礼します」
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML 「只今戻りました～」
CASE "オナバレ"
	PRINTFORML 「いや、その、%CNAME("一人称")%だってたまにはそういう気分になりますよ」
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「こうやってさり気なく胖次を見てもらって男子をシコらせたいですね」
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML 「流石に%CNAME("二人称")%だけですよ、こんなふうにあから大人に裙めくっていいのは」
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML 「どうですか？一瞬しか見えなくても脳裏に焼き付くエロさですか？」
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「%CNAME("二人称")%にしか裸のままのココは見せませんからね」
	ENDIF
CASE "拜托処理性欲"
	PRINTFORML 「クラスの男子は妄想でシコシコするしかない%CNAME("一人称")%が、%CNAME("二人称")%の性欲処理の道具になってあげました」
CASE "进行性処理"
	PRINTFORML 「別に手でシコシコしても、たまに是いんじゃないですか？」
CASE "帮忙消除性欲"
	PRINTFORML 「やっぱり%CNAME("二人称")%のテクニック、すごいですよね・・・」
CASE "清洁口交"
	PRINTFORML 「%CNAME("精液")%残さずいただきました」
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「別に正面から好きなだけ撮影していいんですけど」
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「他に人がいるところでなんて、まぁ%CNAME("一人称")%の「お仲間」ばっかりだからいいんですけど」
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML 「もし見られたら・・・絶対ズリネタにされちゃいますね・・・一人くらいなら覗き見してても許せるかもしれません」
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「そんなに「みんなのオナペット」にしたいんですか？外ですよ？いやいいですけれども」
	;個室で二人きり
	ELSE
		PRINTFORML 「じゃあ、しましょうか。%CNAME("二人称")%」
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「いやぁ、エッチ目的の施設に学生の身分で入るのはちょっと緊張ですね」
	ELSE
		PRINTFORML 「何人の女の子をここで食べちゃったんですか？」
	ENDIF
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
		CASE "体操服はやっぱり运动短褲"

		CASE "体操服はやっぱり紧身短褲"

		CASE "体操服はやっぱり运动衫"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「やっぱりすぐすぐには魅力上昇しませんね・・・ライバルに目線奪われちゃいました」
	PRINTFORML 「でも、確実に基礎能力は上昇してる実感がするのでがんばります」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「なんでしょう、%CNAME("一人称")%だけが成長してるわけではないって感じですね・・・」
	PRINTFORML 「いままでノーマークだった娘が急にエロさ増してきたっていうか・・・」
	PRINTFORML 「ひょっとして%CNAME("一人称")%と同じで誰か「相手」ができたのかな」
	PRINTFORML 「まぁいいや、とにかく%CNAME("二人称")%と一緒に頑張りますよ」
	CALL SET_DEVENT, "質問２"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	PRINTFORML 「えぇ、他の娘で溜まった性欲を%CNAME("一人称")%で解消するつもりだったりします？流石に可愛そうじゃないですか？」
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	;二人きりでの何かする前のセリフ
	IF CFLAG:调戏数 == 0 && CFLAG:刚睡醒 == 0
		PRINTFORML 「・・・します？二人だけですし」
	ELSE
		PRINTFORML 「そろそろ、いいんじゃないですか？ねぇ」
	ENDIF
ELSEIF STATE("酔酒")
	PRINTFORML 「中等部なのにふらふらさせて犯罪ですよ～」
ELSEIF COND("夜")
	PRINTFORML 「ねぇ、%CNAME("二人称")%も性欲溜まっちゃってるんじゃないですか？抜いてあげてもいいですよ」
ELSE
	PRINTFORML 「・・・ひょっとして、今ならできそうな感じじゃ有ません？」
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K58
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「すぴー」
ELSEIF RAND:2
	PRINTFORML 「んにゃ・・・」
ELSE
	PRINTFORML 「ふーーーー」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "掀起裙子"の地の文の前に喋らせたりスキップさせたい場合にはCASE "掀起裙子：地の文前"を用意すればよい
;例）CASE "掀起裙子：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_DAILYCOM_K58, ARGS
;打招呼
#DIMS GREETING
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORMW 『%CNAME("精液")%を処理したいからいますぐ来いってことですね。その最低の誘い方は他の女の子にはしないほうがいいですよ。今すぐ行きます。』
	;做爱房
	ELSE
		PRINTFORMW 『あの%CNAME("二人称")%の%CNAME("精液")%の气味が带污迹的付いた部屋をまた使うんですね。すぐ行きますよ。』
	ENDIF
CASE "学園での日常"
	IF CHECK_SKIRT("超短迷你") && CEVENT("学園：超短迷你１") == 0
		PRINTFORMW 魔華は同班同学の目線を集めている
		PRINTL
		PRINTFORML 男子Ａ
		PRINTFORMW 『……短すぎるよな』
		PRINTFORMW ジロジロと魔華の太腿を見つめながらつぶやく
		PRINTL
		PRINTFORML 男子Ｂ
		PRINTFORMW 『もうちょっとで胖次見えるんじゃないか』
		PRINTFORMW 目を凝らして挙動を伺っている
		PRINTL
		PRINTFORML 男子Ｃ
		PRINTFORMW 『やっぱりエロいよな』"
		PRINTL
		PRINTFORML 魔華
		PRINTFORMW （みんな見てる見てる。後で思い出して自慰してくれるかな…）

		CALL SET_CEVENT, "学園：超短迷你１"
	ELSEIF COND("水泳") && CEVENT("学園：水泳") == 0
		PRINTFORMW 魔華は水泳の授業で同班同学たちとプールにいる。
		PRINTL
		PRINTFORML 男子Ａ
		PRINTFORML 『うちのクラスのレベル高いよな・・・』
		PRINTFORMW 男子たちは同級生たちの泳装を見比べている
		PRINTL
		PRINTFORML 男子Ｂ
		PRINTFORMW 『６人も死库水の胸元がはちきれそうな女子いるもんな』
		PRINTL
		PRINTFORML 男子Ｃ
		PRINTFORML 『イメージビデオの撮影かよ』
		PRINTFORMW それぞれ思い思いの女子に注目している

		PRINTL
		PRINTFORML 魔華
		PRINTFORMW （本当は視線を独占したいんですけどね…）
		PRINTFORMW 魔華は自分に目線を集めようと目立つ場所にあえて陣取っている

		CALL SET_CEVENT, "学園：水泳"
	ELSEIF CFLAG:Ｖ已中出 && CEVENT("学園：中出し１") == 0
		PRINTFORMW 魔華が机に上体を寝かし的同时、さり気なく尻を揺らせる
		PRINTFORMW 何人かの男子がチラチラと見ている
		PRINTFORMW （酱と見てくれてる男子がいますね…）
		PRINTFORML （いま男子が見てる女の子の腰の奥に・・・）
		PRINTFORMW 新鮮な精液がたっぷり泳いでるって…彼らが知ったら）
		PRINTFORML （がっかりして意気消沈するかな…
		PRINTFORMW それとも、俺の精液も注がせろってもっと元気になるかな・・・）
		PRINTFORMW 魔華の膣から愛液と精液が混ざったモノが带污迹的出し、胖次にシミを作った

		CALL SET_CEVENT, "学園：中出し１"
	ELSEIF COND("妊娠中：妊娠発覚済み") && CEVENT("学園：妊娠") == 0
		PRINTFORMW 魔華の膨らんだお腹はクラスで大いに話題变成了。
		PRINTL
		PRINTFORML 男子Ａ
		PRINTFORML 『妊娠って、つまり誰かと性交したってことだよな』
		PRINTL
		PRINTFORML 男子Ｂ
		PRINTFORMW 『正直かなりショックだけど想像したら普通にシコれたわ』
		PRINTL
		PRINTFORML 男子Ｃ
		PRINTFORML 『ヤリマンだとしたら俺にもヤラせてくれねえかな』
		PRINTFORMW 男子たちは好き勝手なことを噂している

		PRINTL
		PRINTFORML 魔華
		PRINTFORMW （見てる見てる…種付けの様子を想像してシコシコしたいのかな）
		PRINTFORMW 魔華は男子たちの很强性欲を感じて満足している
		CALL SET_CEVENT, "学園：妊娠"
	ELSEIF EXP:性処理経験 >= 5 && CEVENT("学園：性処理") == 0
		PRINTFORMW 魔華の同班同学が雑談をしている
		PRINTL
		PRINTFORML 男子Ａ
		PRINTFORML 『昨日は○○酱のオッ餡餅チラ見えを思い出してシコったわ』
		PRINTL
		PRINTFORML 男子Ｂ
		PRINTFORMW 『俺は魔華酱くらいのサイズが好きだな』
		PRINTL
		PRINTFORML 男子Ｃ
		PRINTFORML 『魔華といえば最近は高等部に走っていくらしいぞ。何してるんだろうな。』

		PRINTL
		PRINTFORML 魔華
		PRINTFORMW （前輩の精液を浴びに行ってるって教えてあげたら…どんな反応するかな）
		CALL SET_CEVENT, "学園：性処理"
	ELSEIF EXP:ＡＶ出演経験 >= 1 && CEVENT("学園：ＡＶ出演経験") == 0
		PRINTFORMW 魔華のクラスでは男子にとあるアダルトビデオが人気を博していた
		PRINTFORMW クラスでも5指に入るズリネタの魔華に似ている女優が出演しているのだ
		PRINTL
		PRINTFORML 男子Ａ
		PRINTFORML 『本人には申し訳ないけど魔華だと思ってシコったらいっぱい出たわ』
		PRINTL
		PRINTFORML 男子Ｂ
		PRINTFORMW 『そういうの抜きでもメチャクチャエロいよな、ここんところ毎日使ってるわ』
		PRINTL
		PRINTFORML 男子Ｃ
		PRINTFORML 『魔華酱もあんな感じの声で喘ぐのかなぁ・・・』

		PRINTL
		PRINTFORML 魔華
		PRINTFORMW （男子たち・・・みんなあのビデオで自慰过了んだ・・・）
		PRINTFORMW 魔華は満足そうにニヤニヤ笑着いる
		CALL SET_CEVENT, "学園：ＡＶ出演経験"

	ENDIF

CASE "お仕事"

CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなくラブホに行こっかとなった際のセリフです
;STR:Ｈする場所 で場所をラブホ以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"
	IF COND("Ｐ汚れの相手", MASTER) != TARGET
		PRINTFORMW 「%CNAME("二人称")%、いったいどの女の子でチンポを汚したんですか？」
	ELSE
		PRINTFORMW 「チンポから气味させて、中学生の%CNAME("膣")%で気持ちよくなったぞってアピールですか？」
	ENDIF
		PRINTFORMW 「みっともないからキレイにしてください。中学生の唇でキレイにしてあげますから。」

CASE "清洁口交：射精後"
	PRINTFORML %CALLNAME:TARGET%は阴茎の根本に接吻を繰り返すように中学生的柔软的唇で先端から根本まで往復して掃除してくれた。
	PRINTFORMW 「今度は%CNAME("一人称")%の唾液でベトベトですけれど・・・そこは我慢してください」
CASE "清洁口交：断った"
	PRINTFORMW 「ふーん、時間が経ってエグくなった气味を他の女の子に嗅がせて嫌われても知りませんよ」
CASE "清洁口交よりＶ性処理：地の文前", "清洁口交よりＡ性処理：地の文前", "清洁口交より尿道性処理"
	PRINTFORML 「%CNAME("二人称")%って女の子を性欲処理の道具としか思ってないんですか？」
	PRINTFORML 「%CNAME("膣")%をティッシュの代わりに使いたいなんて本人に面と向かっていうなんて。」
	PRINTFORMW 「%CNAME("一人称")%じゃなかったら訴訟モノですからね。%CNAME("膣")%ですか？お尻にしますか？」
	PRINTFORMW %CALLNAME:TARGET%は胖次を脱ぎながら準備をしている
CASE "清洁口交よりＶ性処理"
	CALL PRINT_STRL, @"「%CNAME("二人称")%にとっては・・・女子中学生じゃなくて・・・%CNAME("膣")%で自慰过了だけですもんね_HH_」"
CASE "清洁口交よりＡ性処理"
	CALL PRINT_STRL, @"「%CNAME("二人称")%にお菊門を自慰の道具にされちゃいました_HH_」"

;ココの分岐西西莉亚流用
;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所", "女子廁所"
		;この場所は初めて
		IF DEVENT(SAVESTR:現在位置) == 0
			PRINTFORMW 「まぁ%CNAME("一人称")%なんて%CNAME("二人称")%にとっては精液廁所なのかもしれませんけれど、本当に廁所でするのは気が引けますね」
		ELSEIF COND("授業直前")
			PRINTFORMW 「%CNAME("一人称")%の老师って授業の時間が割と厳しいんですよ」
			PRINTFORMW 「遅刻したら、いつものエロい視線と違って普通の遅刻者として視線が集まっちゃいます」
			PRINTFORMW 「いつものズリネタが、%CNAME("二人称")%の%CNAME("精液")%を受け入れたばっかりとは思いもしないでしょうね」
		ELSE
			PRINTFORMW 「そういえば一部の男子は廁所で自慰するらしいですよ」
			PRINTFORMW 「%CNAME("二人称")%も後輩を使った自慰をするという意味では一緒ですね」
		ENDIF
	;体育のある日限定
	CASE "体育倉庫"
		IF DEVENT(SAVESTR:現在位置) == 0
			PRINTFORMW 「色んな人達が使う場所でやるんですか」
		ELSEIF COND("授業直前")
			PRINTFORMW 「%CNAME("一人称")%って次の授業すぐ運動なんですよ？」
			PRINTFORMW 「%CNAME("二人称")%の%CNAME("精液")%の气味が带污迹的付いたらどうするんですか？」
			PRINTFORMW 「%CNAME("一人称")%がナニをしてたのか気づく人がいたら責任とってくださいね」
		ELSE
		ENDIF
	;体育か水泳のある日限定
	CASE "更衣室"
		IF DEVENT(SAVESTR:現在位置) == 0
			PRINTFORMW 「男子更衣室って当たり前ですけど男の人の气味がしますね・・・」
			PRINTFORMW 「クラスの男子たちもこんな气味させながらシコシコ自慰するんでしょうかね」
			PRINTFORMW 「まぁ%CNAME("二人称")%は一人で自慰なんかしなくても女の子を使えるわけですが」
		ELSEIF COND("授業直前")
		ELSE
		ENDIF
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
	ENDSELECT

	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
		;RETURN 1

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		PRINTFORMW 「手でシコシコして%CNAME("精液")%を廃棄しちゃいますからね」
	CASE "口交"
		PRINTFORMW 「中学生の唇でチンポをシコシコして%CNAME("射精音")%させてあげますからね」
	CASE "乳交"
		PRINTFORMW 「この男子たちが揉みてーってズリネタにしてる胸で%CNAME("射精音")%させてあげます」
	CASE "Ｖ性交"
		PRINTFORMW 「%CNAME("二人称")%の%CNAME("膣")%を好きに使ってください」
	CASE "Ａ性交"
		PRINTFORMW 「どうぞ、%CNAME("二人称")%のチンポを気持ちよくできる「排泄口」を使ってください」
	CASE "尿道挿入"
	CASE "乳頭奸"
	ENDSELECT

	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
		;RETURN 1
	SIF COND("自撮り送信済み")
		PRINTFORMW 「もちろん%CNAME("二人称")%にあんな写真を送って自慰させたくなった%CNAME("一人称")%も悪いんですが」
	PRINTFORMW 「いまは%CNAME("二人称")%の性欲処理マシーンになってあげますよ」
CASE "性処理：後"
	IF COND("予鈴")
		PRINTFORMW 「専用の性欲処理マシーンの使い心地はどうでしたか？」
	ELSEIF SAVESTR:現在位置 == "男子廁所"
		PRINTFORMW 「%CNAME("精液")%排泄用の廁所の使い心地はよかったですか？」
	ELSEIF COND("授業直前") && NOWEX:Ｖ中出し + NOWEX:Ａ中出し + NOWEX:尿道内射精
		IF COND("体育")
			PRINTFORMW 「体操服姿ってエッチに思う男子が多いみたいで注目されるんですよ」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%は次は水泳で泳装になるんですけど・・・」
			PRINTFORMW 「单薄的泳装の生地だけで%CNAME("二人称")%の%CNAME("精液")%が垂れるのを防ぐわけですよ」
		ENDIF
		PRINTFORMW 「もしバレちゃったら責任とってくださいね」
	ENDIF
	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
		;RETURN 1

	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW 「%CNAME("二人称")%の%CNAME("精液")%で一杯の避孕套は、そうですね、胖次にでも括り付けましょうか？」
	ELSE
		PRINTFORMW 「じゃあスッキリして用済み变成了性欲処理装置は中等部に帰りますね」
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはようございます
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORML 「どうしました？」
	ELSE
		PRINTFORML 「ちょっと付き合ってもいいですか？」
	ENDIF
CASE "叫醒"
	PRINTFORMW 「%CNAME("二人称")%、時間ですよ～」
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORML 「ごめんなさい限界です寝ます休息なさい」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW 「いつも男子を躁动难忍させる服の着脱を研究してますからね、見てください」
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW 「どうです？躁动难忍しますか？この姿には」
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		PRINTFORMW 「美味しいですね、誰のでしたっけ？」
	CASE "夸奖"
		PRINTFORMW 「さすがですね・・・」
	CASE "甜言蜜语"
		IF TALENT:恋慕
			PRINTFORMW 「お気に入りだからってラブドールにそんなコト言ったら…勘違いしちゃいますよ？」
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「もう、%CNAME("二人称")%の性欲処理へのモチベーションを高めてるつもりですか？いいですよ、ちょっと気合い入れましょう。」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、ひょっとして口はあまりうまくないですね？」
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			PRINTFORMW 「そういえば%CNAME("二人称")%って勉強とか教えられます？」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("二人称")%って結構いろいろな人脈有ますよね・・・」
		ELSE
			PRINTFORMW 「なんか唐突にサボりたくなってきました」
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORMW 「こんなふうに胸のボタンを緩めて谷間の汗を拭うと…チラチラ見る男子がいっぱいいるんですね」
CASE "淋浴独り言"
	PRINTFORMW 「にゃにゃにゃ～温度調整が優秀ですねこれ～」
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORML 「学校で初めて内衣を盗まれた件を思い出しますね」
		PRINTFORMW 「あの胖次は今頃誰か的家で保管されてるんでしょうか」
	ELSE
		PRINTFORML 「%CNAME("一人称")%の淋浴が頭に浮かんで勃起てしまいましたか？」
		PRINTFORMW 「%CNAME("二人称")%なら自分の手で自慰なんかしませんよね・・・」
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML 「これは・・・なるほど、この格好がシコりやすいということですか」
		PRINTFORMW 「今後の参考に着ておくのも悪くはないですね」
	ELSE
		PRINTFORMW 「今日も%CNAME("二人称")%の要望に付き合って给ことにしますか。」
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K58
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		PRINTFORMW
	CASE "托一托胸部"
		PRINTFORMW
	CASE "按摩"
		PRINTFORMW
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		PRINTFORMW
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		PRINTFORMW
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW 「なんの料金ですか？%CNAME("一人称")%に娼婦ごっこなんかさせなくても、%CNAME("二人称")%ならタダでいいですよ」
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW 「あ、有がとうございます」
	CASE "送一份普通的礼物"
		PRINTFORMW 「これはどうも、有がとうございます」
	CASE "送一份高价的礼物"
		PRINTFORMW 「これ結構高かったんじゃないですか？有がとうございます。」
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K58
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		IF CFLAG:汗 || CFLAG:MASTER:汗
			PRINTFORML 「汗を書いたので一緒に淋浴でも浴びませんか？」
			PRINTFORMW 「流しながらなら汗をかくようなことをしても気になりませんしね」
		ELSEIF COND("夜")
			PRINTFORMW 「これから浴室に入ろうと思うんですけれど、%CNAME("二人称")%も一緒に行きませんか？」
		ELSE
			PRINTFORMW 「淋浴ルームを使わせてもらいますね。…%CNAME("二人称")%もきますか？」
		ENDIF
	CASE "Ｈ的邀请"
		;ここ玛丽桑から借用
		SELECTCASE DAILYCOMNAME_SELECT("卖个破绽")
		CASE "观察股间"
			IF TALENT:恋慕 && (STATE("烂醉", TARGET) || STATE("酔酒", TARGET))
			PRINTFORML 「中学生を酔わせてどうするつもりなんですか・・・强奸の手口ですよ」
			PRINTFORMW 「%CNAME("二人称")%に强奸されちゃうんですか？」
			ELSE
				IF STRCOUNT(CSTR:DAILYCOM履歴, "Ｖ中出し") && RAND:5 == 0
					PRINTFORML 「%CNAME("二人称")%の%CNAME("精液")%だらけの%CNAME("膣")%ですよ」
					PRINTFORMW 「せっかくなんですから、もっともっと注いでみませんか？」
					;非処女
				ELSEIF RAND:4 == 0 !& TALENT:処女
					PRINTFORML 「%CNAME("二人称")%のチンポ・・・そろそろ大変じゃないですか？」
					PRINTFORMW 「いつでも%CNAME("二人称")%のための%CNAME("膣")%をつかってくれていいんですよ？」
					;A非処女
				ELSEIF RAND:3 == 0 !& TALENT:Ａ処女
					PRINTFORML 「%CNAME("二人称")%、女の子に%CNAME("精液")%%CNAME("射精音")%したいって顔してますよ」
					PRINTFORMW 「犯罪を犯す前に%CNAME("一人称")%のお尻飞机杯ででも性欲処理しておいたほうがいいじゃないですか」
				ELSEIF RAND:2 == 0
					PRINTFORML 「%CNAME("二人称")%、%CNAME("一人称")%のこと立派な淫魔にしてくれるんですよね・・・」
					PRINTFORMW 「%CNAME("一人称")%で%CNAME("精液")%%CNAME("射精音")%しませんか？」
				ELSE
					PRINTFORML 「%CNAME("二人称")%、他の女子にはそんな性欲丸出しの目つきをしないほうがいいですよ」
					PRINTFORMW 「嫌われる前に%CNAME("一人称")%でとりあえず性欲処理したほうがいいと思います」
				ENDIF
			ENDIF
		CASE "沉浸在余韻里"
				PRINTFORML 「%CNAME("二人称")%の%CNAME("精液")%はこんな量では出したりませんよね・・・」
				PRINTFORMW 「中学生の体でもっと%CNAME("射精音")%したいですよね？」
		CASEELSE
			SELECTCASE CONDS("直前行動")
			CASE "抱住", "亲脸頬"
				PRINTFORMW 「そんなふうに甘えても、結局はチンポを出すつもりだってわかってますよ。ほら、さっさと出してください。」
			CASE "把胸部压了上去"
				PRINTFORMW 「中学男子のズリネタ胸部、%CNAME("二人称")%是つでも随便いいんですよ」
			CASE "摩擦股間"
				PRINTFORMW 「中学生の%CNAME("膣")%のさわり心地はどうですか？もっと触ってもいいですよ」
			CASE "接吻"
				PRINTFORMW 「中学生の唇、美味しいですか？もっと%CNAME("二人称")%と接吻させてもらっていいですか？それとも、チンポしゃぶってあげたほうがいいですか？」
			CASE "口淫"
				PRINTFORMW 「中学生の唇を%CNAME("膣")%として使って%CNAME("射精音")%しても、%CNAME("二人称")%は１回くらいじゃ物足りないですよね？」
			CASE "手淫"
				PRINTFORMW 「二人称は手で%CNAME("射精音")%だけじゃちょっと物足りないんじゃないですか？」
			CASEELSE
				PRINTFORML 「%CNAME("二人称")%、他の女子にはそんな性欲丸出しの目つきをしないほうがいいですよ」
				PRINTFORMW 「嫌われる前に%CNAME("一人称")%でとりあえず性欲処理したほうがいいと思います」
			ENDSELECT
		ENDSELECT
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW 「普通の男子はこんな集団胖次露出なんてアダルトビデオかエロ本でしか見れないですよ」
		ELSE
			PRINTFORMW 「今日のズリネタにどうぞ・・・まぁ%CNAME("二人称")%は一人では自慰しないでしょうけれども」
		ENDIF
	CASE "清洁口交：お誘い"
		IF COND("Ｐ汚れの相手", MASTER) != TARGET
			PRINTFORML 「今度は誰の%CNAME("膣")%にチンポ突っ込んで%CNAME("射精音")%してきたんですか？」
			PRINTFORML 「根本の白色やつ女の子がイキまくった本気汁ですよね・・・%CNAME("二人称")%チンポすごいからなぁ・・・」
			PRINTFORMW 「どうせ誰かに清洁口交させようとおもって弄脏的ままにしているんですよね？」
		ELSE
			PRINTFORML 「・・・根本についてる白色泡って%CNAME("一人称")%が出した本気汁ってやつですよね・・・」
			PRINTFORMW 「流石に恥ずかしいので掃除してください・・・我明白了、%CNAME("一人称")%の唇で掃除すればいいですよね」
		ENDIF
	CASE "清洁口交：射精後"
		PRINTFORML %CALLNAME:TARGET%の唇が%CALLNAME:MASTER%の阴茎の付け根に届くほど深く咥え込むと
		PRINTFORMW 唇の隙間から舌を出して付け根を舐め回すように精心掃除してくれた
	CASE "清洁口交：断った"
		PRINTFORMW 「女の子をイカせた証拠を見せつけるその趣味、本当に最低ですからやめたほうがいいですよ」
	CASE "口淫"
		PRINTFORMW 「そろそろ%CNAME("精液")%が溜まった頃じゃないですか？%CNAME("一人称")%の唇でチンポをシコシコしてほしくないですか？」
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸"
		PRINTFORMW
	CASE "手淫"
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTFORMW 「%CNAME("射精音")%させる技術ばかり手についてしまいました」
		ELSE
			PRINTFORMW 「こ的房間にいる%CNAME("二人称")%の「%CNAME("膣")%」たちが「使って」もらいたくなる%CNAME("射精音")%しましょうね」
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW 「・・・%CNAME("二人称")%の%CNAME("精液")%廁所を使い来了んですか？」
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW 「他の男子は妄想でシコシコしてる%CNAME("膣")%を生で見ながらシコシコしていいですよ」
	CASE "廁所イベント：相互自慰"
		PRINTFORMW 「いいんですか？自分の手でシコシコしなくても…%CNAME("一人称")%を使っていいんですよ？」
	CASE "廁所イベント：口交"
		PRINTFORML 「廁所はおしっこを排泄するところであって…%CNAME("精液")%を排泄する場所じゃないんですよ」
		PRINTFORMW 「もちろん%CNAME("一人称")%の口是つも%CNAME("二人称")%の%TEXTR("精液捨場/スペルマ廃棄所/オス液投棄場/排泄先")%として使われてますけど」
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW 「肉便器っていいますけれど、本当に便器の上で中学生を%TEXTR("精液捨場/スペルマ廃棄所/オス液投棄場/排泄先")%として使うなんて最低ですよ%CNAME("二人称")%」
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW 「ウンチを排泄する場所でお尻エッチなんて…片付けのときウンチと一緒にお尻に%CNAME("射精音")%された%CNAME("精液")%を処理できるので効率的といえば効率的ですね」
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K58
		WAIT
	ELSEIF COND("性処理：挿入直後") && CFLAG:性処理済
		PRINTFORMW 「%CNAME("二人称")%の性欲処理に使われたてホヤホヤの%CNAME("膣")%ですよ～」
		IF COND("性処理：生挿入直後")
			PRINTFORMW 「%CNAME("子宮")%に%CNAME("精子")%が送り込まれちゃうのも気にせず%CNAME("射精音")%した%CNAME("膣")%です」
		ELSE
			PRINTFORMW 「ワレメにこびりついた白色の見えますか？%CNAME("二人称")%に蹂躙された%CNAME("膣")%が本気汁だして泣いちゃった跡です」
		ENDIF
		PRINTFORMW 「都合のいい性欲処理の道具、可愛がってくださいね？」
	ELSEIF COND("合意：检查阴部") == 0
		PRINTFORMW 「どうですか？%CNAME("二人称")%だけが見れるズリネタですよ？」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%のエッチ！なんて言ってみたり」
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K58
		WAIT
	ELSE
		PRINTFORMW 「%CNAME("二人称")%に会うようになってからいろいろ手入れが大変なんですからね」
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K58
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW 「もう、ココじゃダメですよ？」
	ELSE
		PRINTFORMW 「胖次チラっぽく見える感じでもいいですよ？」
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K58
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		PRINTFORMW 「遠巻きからなら、ここまでジロジロ体操服とか見られることも実はたまに有ます」
	ELSE
		PRINTFORMW 「いやぁ、水泳の後とか同じくらい露骨な目つきの男子いますよほんと」
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「実は%CNAME("一人称")%の胖次チラ盗撮が出回った事あるらしいんですよ。%CNAME("二人称")%にはモロ出ししちゃいますけど。」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「胖次チラ見ましたね？うちのクラスの男子なら、後で必死に思い出してシコシコするところですよ」
		ELSE
			PRINTFORMW 「どうそ%CNAME("二人称")%、中等部の生胖次をとくとご覧あれ。。。なんて」
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「朝からしますか？」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K58
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「流石にこんな直接めくり来了のは%CNAME("二人称")%が初めてです」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「もう、飘忽じゃ我慢できなくなったんですね？」
		ELSE
			IF COND("打招呼前")
				PRINTFORMW 「%CNAME("二人称")%にとって打招呼先はソコですか？いや%CNAME("二人称")%にとってそこが存在価値なのかもしれませんけれど」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「履いてません。だれかに飘忽したらいっぱいシコらせちゃうな～」
				ELSE
					PRINTFORMW 「どうですか？躁动难忍しましたか？」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"
			PRINTFORMW 「中学生の喉に%CNAME("精液")%%CNAME("射精音")%流し込みたいですよね？」
		CASE "乳交"
			PRINTFORMW 「まだまだ成長中の思春期胸部でシコシコしたいんじゃないですか？」
		CASE "Ｖ性交"
			PRINTFORMW 「中学生の%CNAME("子宮")%へ直通の%CNAME("膣")%でチンポシコシコするの…%CNAME("二人称")%ならタダですよ」
		CASE "Ａ性交"
			PRINTFORMW 「女の子のお尻にチンポ好きなだけ叩きつけるの楽しいでしょうねぇ」
		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"
			PRINTFORMW 「シコシコするくらいなら大丈夫ですよ、自分の手より是いですよね」
		CASE "Ｖ性交"
			PRINTFORMW 「%CNAME("一人称")%の%CNAME("膣")%は無断で使っていいんですよ」
		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"

	ENDSELECT
;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	;PARTNER()の使用例
	;PRINTFORMW 「……%CNAME(CALLNAME:PARTNER() )%にそういう目で見られると、ちょっと恥ずかしいですね」

;これは見抜きする(你に誘われて自家発電する)側の立場のセリフ。胖次を見せている角色はPARTNER()で参照できる
CASE "連れ見抜きに誘われた"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "夸奖", TARGET

CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"
			PRINTFORMW 「そんなにチンポの根本に接吻がほしいんですか？」
		CASE "乳交"
			PRINTFORMW 「やっぱり男の人ってみんな胸部好きですよね」
		CASE "Ｖ性交"
			PRINTFORMW 「まぁ%CNAME("子宮")%をチンポでノックしたいのは本能ですよね」
		CASE "Ａ性交"
			PRINTFORMW 「お尻は出口であって入り口じゃないんですけど・・・いいですよ」
		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"
			PRINTFORMW 「クラスの男子たちはゴミ箱に捨てる%CNAME("精液")%、%CNAME("二人称")%のは%CNAME("一人称")%が飲んであげましたよ」
	CASE "乳交"
			PRINTFORMW 「こんな濃ゆい%CNAME("精液")%の气味がオッ餡餅に带污迹的付いたらどうするんですか？」
	CASE "Ｖ性交"
			PRINTFORMW 「いくら%CNAME("膣")%の使い心地がいいからって…ちょっと%CNAME("射精音")%しすぎじゃないですか？」
	CASE "Ａ性交"
			PRINTFORMW 「%CNAME("二人称")%のチンポのせいで…お腹の調子が大変になりそうです」
	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者がいる場合はPARTNER()で参照できる
	CASE "胖次見抜き"
		;連れ見抜きされた場合
		IF PARTNER()
			PRINTFORMW 「仲良く%CNAME("射精音")%するの是いですけど・・・やっぱり勢いには個人差あるんですね」
		ELSE
			PRINTFORMW 「ひょっとしたら隠れて除き的同时、同じように%CNAME("精液")%を床に捨てた男子もいるかもしれません」
		ENDIF
	CASE "手淫"
			PRINTFORMW 「あーあ、せっかく女の子の%CNAME("子宮")%に注ぎたいなーって作った%CNAME("精子")%が床に溢れちゃいましたね」
	CASE "Ｖ性交"
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW 「うわ、避孕套にたっぷり%CNAME("精液")%溜まってますね・・・そんなに%CNAME("膣")%で自慰するの良かったですか？」
		ELSE
			PRINTFORMW 「%CNAME("子宮")%に%CNAME("精液")%を注ぐためだけの自分勝手な「排泄行為」、本当に最低なんで私以外にしないでくださいね」
		ENDIF
	CASE "Ａ性交"
			PRINTFORMW 「中学生のお尻を使った贅沢自慰、気持ちよかったみたいですね」
	CASE "尿道性交"

	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	SELECTCASE STR:PLAY要望
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"
		PRINTFORML 「チンポしゃぶらせるために%CNAME("精液")%中毒にした鬼畜%CNAME("二人称")%」
		PRINTFORMW 「酱と責任とって新鮮な%CNAME("精液")%を飲ませてください」
	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")
			PRINTFORML 「%CNAME("膣")%に%CNAME("精子")%を%CNAME("射精音")%したいですよね%CNAME("二人称")%？」
			PRINTFORMW 「クセになるほど%CNAME("精液")%注ぎ込んだ責任をとってください」
		ELSE
			PRINTFORMW 「中学生を性欲処理に都合のいいチンポ中毒にした鬼畜%CNAME("二人称")%、責任とってくださいよ。」
			PRINTFORML 「%CNAME("二人称")%のチンポを%CNAME("膣")%でシコシコシコシコ好き勝手しごいて」
			PRINTFORMW 「%CNAME("膣")%で%CNAME("二人称")%の%CNAME("精液")%%CNAME("射精音")%させるのが生き甲斐の飛機杯にした責任とってください。」
		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"
		PRINTFORMW 「%CNAME("精液")%がまだ溜まってないんですか？なら、それで妥協しますけれども」
	CASE "舐陰莖"

	CASE "Ｖ性交"
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")
			PRINTFORMW 「中学生の%CNAME("子宮")%にいっぱい%CNAME("射精音")%したいんですね・・・いいですよ」
		ELSE
			PRINTFORML 「%CNAME("二人称")%のチンポを%CNAME("膣")%でシコシコするの、%CNAME("一人称")%もすごく気持ちいいんですよ」
			PRINTFORMW 「だから、どうぞいっぱいシコシコしてください」
		ENDIF
	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"
		;絶頂後の放尿を你が口で受け止めた場合(この角色が[絶頂失禁体質]＆聖水経験＆高い尿意の時に、你に飲尿経験と受虐属性が有ると選択肢出現)
		IF COND("飲尿フラグ", PLAYER)

		ELSE

		ENDIF
	CASE "舐陰莖"

	CASE "口交"
		PRINTFORML 「%CNAME("二人称")%の%CNAME("精液")%・・・美味しく飲めるよう調教されちゃってますね」
		PRINTFORMW 「美味しいです、大好きです。」
	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		;挿入行為の後に口交も続けて行った場合
		IF STR:PLAY要望 == "口交"
		PRINTFORMW 「中学生がチンポでイキまくった証拠の本気汁・・・証拠隠滅しなきゃいけませんね」
		PRINTFORMW %CALLNAME:TARGET%は根本にこびりついた自己的体液を舌で精心舐め取った
		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
			PRINTFORMW 「%CNAME("二人称")%の%CNAME("陰茎形容")%チンポに揉みくちゃにされるの…大好きです」
			CASE "Ａ性交"
			PRINTFORMW 「%CNAME("二人称")%の%CNAME("陰茎形容")%チンポでお菊門をメチャクチャにされるの…癖になってるかもしれません」
			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	PRINTFORMW 「どうです？こっそりご飯食べません？流石に学年違いは目立つので隠れて」
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	PRINTFORMW 「ところで誰に作ってもらったやつですかそれ」
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "二人きり：坐在旁邊"
		PRINTFORMW 「隣りに座っても可以吗？どうも、失礼します」
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
		PRINTFORML 「そろそろ%CNAME("二人称")%のチンポが人肌恋しくてバカになってくる頃じゃないですか？」
		PRINTFORMW 「性犯罪の被害者が増える前に中学生で%CNAME("射精音")%したほうがいいですよ」
CASE "二人きり：Ｈの誘いに胖次条件で回应"
		PRINTFORMW 「いいですよ、目の前で脱いでほしいんですよね。脱ぎ方とか注文有ますか？」
CASE "二人きり：Ｈの誘いに回应"
		PRINTFORMW 「中学生に誘惑されて好きなだけ%CNAME("射精音")%できる贅沢、たっぷり堪能してくださいね」
CASE "二人きり：Ｈの誘いを断った"
		PRINTFORMW 「まぁヤリチンの%CNAME("二人称")%は「飛機杯」には困りませんものね。今日は誰の%CNAME("膣")%で「自慰」するつもりですか？」
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY を埋めて使ってください
;地の文も必要であれば適宜変更してください
;-------------------------------------------------
@SELFY_MAIL_K58, ARGS
#DIMS MAIL_BODY

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	MAIL_BODY = %CNAME("二人称")%以外の男子は妄想するだけの中学生ボディです
CASE "阴部自撮り"
	MAIL_BODY = 中学生の%CNAME("膣")%です
CASE "胸部自撮り"
	MAIL_BODY = うちのクラスのズリネタTOP5です
CASE "今年の泳装自撮り"
	MAIL_BODY = ビーチでみんなを注目させちゃう予定の泳装どうですか
CASE "学校指定の泳装自撮り"
	MAIL_BODY = 今日はある男子がコレ見て勃起てました
CASE "体操服自撮り"
	MAIL_BODY = 運動で胸罩してるのに胸が揺れて大変でした
CASE "胸罩自撮り" ,"胖次自撮り"
	MAIL_BODY = 今日の内衣の柄はこんな感じです
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 照片边上还加上「%MAIL_BODY%」这样的信息…

;-------------------------------------------------
;约会の際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;约会回数は EXP:约会経験 が+1ずつされます。初回のセリフは IF EXP:约会経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K58, ARGS

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「エッチな雰囲気で约会して周囲の目線を頑張って集めましょうよ、%CNAME("二人称")%」
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW 「それじゃあ、それまでいっぱい鍛錬しましょうか%CNAME("二人称")%」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「まぁ、そうですよね。ヤリチンの%CNAME("二人称")%は誰と约会するか悩んじゃいますよね～」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	PRINTFORMW 「いいんですか、ちょっと目立つ服装で行きますよ？」
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「え！ちょっと、顔洗ってきます！」
	ELSE
		PRINTFORMW 「え！ちょっと、着替えてきます！」
	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW 「なんだかわざわざ別々に来るのも変な感じですけれど・・・约会の雰囲気作りですか？」
	ELSE
		PRINTFORMW 「あ、%CNAME("二人称")%遅いですよ。イヤラシイ目つきの人に１回ナンパされてしまいました。」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW 「%CNAME("一人称")%にどんなエッチな泳装を着せるつもりなんですか？」
	CASE "散歩"
		PRINTFORMW 「お金がかからなくていいですね。中学生にふさわしい约会では有ます。」
	CASE "尋訪美食"
		PRINTFORMW 「%CNAME("二人称")%にはオススメのお店とかあるんですか？あるならおごってください」
	CASE "逛街"
		PRINTFORMW 「あまりお金がないんですけれど…おごって是ただけるんですか？」
	CASE "去水族馆"
		PRINTFORMW 「あまり海洋生物には興味がないんですけれど…展示内容より%CNAME("二人称")%と一緒に行くことが重要ですよね」
	CASE "去游乐园"
		PRINTFORMW 「入場料は%CNAME("二人称")%が持っていただけるんですか？有がとうございます」
	CASE "去电影院"
		PRINTFORMW 「何を見るか決まってますか？現地で何を見るか話し合いましょうか」
	CASE "去图书馆"
		PRINTFORMW 「いいですけれど、静かにしなきゃいけない場所は约会には不向きじゃないですか？」
	CASE "赏花"
		PRINTFORMW 「野外で吃便當イベントと考えると…%CNAME("二人称")%の持ってくる弁当ならハズレはなさそうですね」
	CASE "去游泳"
		PRINTFORMW 「泳装になると男の人の目線が集まってくるのが実感できて好きなんですよね…一緒に注目集めましょうか」
	CASE "爬山"
		PRINTFORMW 「なにも坂道を登らなくても平地で是けませんか？」
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
CASE "约会中の買食物"
	SELECTCASE SAVESTR:约会
	CASE "去电影院"
		;何を買ったかはSTR:選択したもの で分岐可能
		SELECTCASE STR:選択したもの
		CASE "ポップコーン"
			PRINTFORMW
		CASE "チュロス"
			PRINTFORMW
		CASE "ホットドッグ"
			PRINTFORMW
		ENDSELECT
	ENDSELECT
CASE "手をつなぐ"
	PRINTFORMW 「チンポをシコシコするのには抵抗がないのに、手をつなぐのは少し気恥ずかしいのは不思議ですね」
CASE "手をつながない"
	PRINTFORMW 「%CNAME("一人称")%の手なんてチンポを気持ちよくするだけの役割ですか？%CNAME("二人称")%」
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW 「%CNAME("一人称")%って男の人が%CNAME("一人称")%を見て勃起するの大好きなんです…見た人にズリネタにされちゃうエッチな泳装でも喜んで着ますよ」
	ELSEIF RAND:2
		PRINTFORMW 「%CNAME("一人称")%なら基本的にどんな泳装でも注目を集めるはずですから…どれでもいいといえばどれでもいいのですが」
	ELSE
		PRINTFORMW 「中学生らしいおと无い泳装でも・・・それはそれでギャップで注目を集めてしまいそうですよね」
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW 「これじゃオッ餡餅とお尻が男性の目に焼き付けられてしまいそうですね」
	CASE "比基尼"
		PRINTFORMW 「オッ餡餅の谷間を見せつけて男性たちのズリネタにさせてあげましょうか」
	CASE "競泳泳装"
		PRINTFORMW 「このオッ餡餅じゃ競泳泳装は逆に注目されそうで悪くない気がします」
	CASE "高開衩連衣裙"
		PRINTFORMW 「この高開衩は陰毛を酱と処理しないといけなさそうですね・・・」
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW 「うわ、これじゃズリネタを街道越して强奸犯を呼び寄せちゃいそうですね・・・」
	ENDSELECT

;プールなどで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW 「我的同时、この贴身制服領帯ルでは中学生とは思われてないかもしれませんね」
	CASE "Micro比基尼"
		PRINTFORMW 「案の定みんな見てますね・・・見せつけていっぱいズリネタを提供してあげましょうか」
	CASE "連体泳装"
		PRINTFORMW 「中学生らしい泳装ですけど、逆に注目されてしまってる気がします」
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW 「完全に勃起ちゃってる男性が何人かいますよ…もし我慢できなくなった男性が强奸魔变成了ら守ってくださいね%CNAME("二人称")%」
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	PRINTFORMW 「%CNAME("一人称")%の口紅に気づきました？今から%CNAME("二人称")%のチンポ、%CNAME("一人称")%の口紅でマーキングしますからね」
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"
	PRINTFORMW 「%CNAME("精液")%は手で受け止めてあげますからね」
CASE "接吻"
	PRINTFORMW 「周りの人に「あとで交尾するんだろうな」って思われるくらい濃厚的接吻にしてください」
CASE "摸屁股"
	PRINTFORMW 「男子たちが「わしづかみにしたい」ってたまに話題にしてますけれど、実際にしてるのは%CNAME("二人称")%だけですよ」
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问", "专心看电影"

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;文化祭イベント
;ここでは"约会相手ではなく出し物をしている人"が喋ります。
;本来の约会相手はPARTNER()に角色番号が入ってます。呼びかける場合にはCNAME("partner")を使ってください
CASE "乐队演奏", "演劇", "占卜館", "恐怖屋敷", "烦悩相談室", "PaFuPaFu屋", "女仆咖啡厅", "執事咖啡厅", "西式料理店"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所をラブホ以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORMW 「いやらしい目線気づきました？今からコイツラ交尾するんだ～ってエロい目つきの人何人かいましたよ。します？交尾」
	ELSE
		PRINTFORMW 「私達をみる目つき、今からコイツラ交尾するんだろうな～ってやつばっかりでしたよ。大成功ですね。」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		PRINTFORMW 「じゃあラブホまでは目立たないようにしましょうか。%CNAME("一人称")%が中学生とバレたら止められちゃいますからね」
	ELSE
		PRINTFORMW 「そんな、中学生の体が目当てなわけではないみたいなこと%CNAME("二人称")%が言うなんて…冗談です」
	ENDIF
ENDSELECT

path: ERB/EVENT_K/58 魔華/EVENT_58_DAILY.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;58は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;ここで TFLAG:取引可能 = 1 とすると、Ｈの最中でもここの選択肢が出ます
@WISH_K58_ADDSELECT
;STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("追加選択肢その１", 16)% … %CALLNAME:TARGET%にＡＡＡしてもらいます/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K58_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
	;フラグを弄る場合はそれもここで行う
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
	;フラグを弄る場合はそれもここで行う
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K58_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K58_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K58_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;睡眠時の互动指令の選択肢を追加
@DAILY2_SLEEP_K58_ADDSELECT
;STR:選択肢 += "睡眠時追加選択肢その１/"
;STR:選択肢 += "睡眠時追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K58_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
CASE "睡眠時追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
CASE "睡眠時追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K58_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K58_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "追加選択肢その１"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
CASE "追加選択肢之２"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
ENDSELECT

;-------------------------------------------------
;場所を変える指令の選択肢を追加
@MOVE_K58_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

path: ERB/EVENT_K/58 魔華/EVENT_58_SELECT.ERB


code:
;-------------------------------------------------
;取引画面と、购物の際の台詞を記述します
;-------------------------------------------------
;取引画面での台詞。悪魔以外は大部分が不要です
;-------------------------------------------------
@KOJO_WISH_K58, ARGS
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE
		PRINTFORMW 「いいですよ。もちろん、%CNAME("一人称")%に可能な範囲に限りますが」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「・・・我明白了」
		PRINTFORMW 「でも、いいんですか？外で普通に好き好きアピールしますよ？」
		PRINTFORMW 「年上の彼氏できました～って普通に注目集めますよ？」
		PRINTFORMW 「いや、まぁでも%CNAME("二人称")%にとっては今更な気もしますね」
		PRINTFORMW 「我明白了、思春期の性欲でヤリまくりアピールしちゃいますか」
		PRINTFORMW 「非処女アピールしたらオナペット人気どうなりますかね？」
		PRINTFORMW 「ひょっとして幻滅したって人気落ちたりして・・・」
		PRINTFORMW 「あ、でも、年上彼氏に好きなだけ体を許してる姿を妄想してシコる男子のこと考えるとそれはそれで有かもしれませんね」
		PRINTFORMW 「じゃあ、なっちゃいますか。%CNAME("二人称")%専用に」
	;失敗
	ELSE
		PRINTFORMW 「いや～、その、なんというか、そういうのは困ります」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「残念でした。%CNAME("二人称")%が大好きな脱ぎたて胖次は有ません。履いてませんからね。」
		PRINTFORMW 「脱ぎたて胖次でシコシコ自慰はできませんけど・・・別の場所で%CNAME("射精音")%させてあげてもいいですよ？」
	ELSE
		PRINTFORMW 「それは不行ね・・・履いてませんから。風をかんじちゃう没穿内褲の裙の中身を想像してシコシコしててください」
	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 「やっぱり胖次は重要ですよね・・・わかります」
		PRINTFORML 「%CNAME("一人称")%って実は着替えのときに教室に置いておいた胖次が盗まれた経験が2回もあるんですよ」
		PRINTFORML 「あの胖次、きっと犯人の胖次コキ自慰で精液まみれにされちゃったんだろうなぁ……」
		PRINTFORMW 「%CNAME("二人称")%は盗んだりなんかしなくても「よこせ」と一言言うだけで何枚でも脱ぎたてが入手できますよ」
	;二回目以降
	ELSE
		IF CHARA_NUM("室内の邪魔者")
			PRINTFORML 「二人きりじゃないというのに大胆ですね%CNAME("二人称")%…」
			PRINTFORML 「まぁ、いいですけど。なんというかココにいるみな桑も%CNAME("一人称")%のお仲間ですしね」
			PRINTFORMW 「流石に関係者以外の前ではちょっと抵抗感有ますけど、ココでなら大丈夫です」
		ELSE
			PRINTFORML 「いいですよ？何に使うんですか？嗅ぎながら手でシコシコしますか？」
			PRINTFORMW 「胖次チラだけで男子のズリネタにされちゃう胖次、%CNAME("二人称")%には特別に手渡しであげちゃいます」
		ENDIF
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否

	ELSE

	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
;ここ玛丽桑の真似
CASE "全裸"
	IF SAVESTR:現在位置 == "公園"
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		PRINTFORML 「中等部のナイスバディな女の子がこんなところで全裸で立ってるなんて誰も信じてくれませんよ・・・」
		PRINTFORML 「誰かに見られたら…きっと强奸したくなるほど躁动难忍して…バッキバキに勃起的チンポを射精させたくなっちゃうんだろうなぁ」
		PRINTFORMW 「本当に強姦しようとしてくる人がいたら・・・その時は%CNAME("二人称")%が守ってくださいね」
	ELSEIF CHARA_NUM("室内の邪魔者") == 0
		PRINTFORMW 「もう、本物の飛機杯でも他人の前で開封したりはしないと思いますよ？いや、脱ぎます。脱ぎますけど。」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
	ELSE
		PRINTFORML 「%CNAME("二人称")%って絶対に飛機杯を箱から出すくらいの感覚で脱がせてますよね？」
		PRINTFORMW 「是、どうぞ。クラスの男子が必死に妄想してシコシコ自慰するナイスバディがこちらですよ～と。」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
	ENDIF
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)

	ELSE

	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"

CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「%CNAME("二人称")%的家に寝泊まりして欲しいという理解であっていますか？」
	PRINTFORMW 「中学生を家で監禁して飞机杯にする性犯罪者みたいな妄想は現実には難しいですよ。」
CASE "同居希望"
	CALL PRINT_STRW, @"「%CNAME("二人称")%的家に寝泊まりして欲しいという理解であっていますか？_H_」"
	CALL PRINT_STRW, @"「いいですよ。%CNAME("二人称")%が好きなときに仕えるお気に入りの飛機杯になってあげても_H_」"
	CALL PRINT_STRW, @"「自慰过了くなったらいつでも気軽に取り出せる玩具_H_」"
	CALL PRINT_STRW, @"「中学生の肉体を%CNAME("二人称")%的家で使い放題サービスですよ_HH_」"
CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		ENDIF
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬

		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			PRINTFORMW 「…つまり中学生の子宮に無責任にビュービュー射精しまくりたいということですね。」
			PRINTFORMW 「膣飞机杯ごときに避孕套なんか使いたくないということですか？」
			PRINTFORMW 「贅沢チンポのわがままを就这様口に出しちゃう%CNAME("二人称")%は本能だけで生きてるんですか？。」
			;屈服刻印=3
			IF MARK:屈服刻印 == 3
				PRINTFORMW 「いいですよ。せっかく中学生のチンポしごき穴を使うんだから…生精液絞りじゃないと嫌ですよね。」
			ELSE
				PRINTFORMW 「まあ、いいですよ。%CNAME("二人称")%にレープされて强行子宮に子種を好き放題に注がれるかもしれませんし。」
			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE
			PRINTFORMW 「…中学生の肉体はもう子作りできるとは理解していますよね。」
			PRINTFORMW 「「飞机杯」として使うときは酱と避孕套を付けてくださいね。」
		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"

CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORML 「ここにマークをつけてしまうんですね」
		PRINTFORML 「どんな女の子にもある、チンポをシコシコして気持ちよくして给ための場所」
		PRINTFORMW 「いいですよ、中学生のチンコキ穴に目印つけても。」
	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORML 「・・・なんか、ちょっと、いやかなりエッチな気分になっちゃいました」
		PRINTFORML 「ひょっとして男子がシコりたくなるときってこんな感じなんですかね？」
		PRINTFORMW 「%CNAME("二人称")%専用にされちゃったって感じて・・・変な気分です」
	CASE 3
		PRINTFORMW 「なんか・・・%CNAME("二人称")%の都合のいい身体に作り替えられてません？本気で専用飞机杯にする気ですか？」
	CASE 4
		PRINTFORMW 「%CNAME("二人称")%専用飛機杯、%CNAME("二人称")%の精液を絞るためだけに特化しちゃいました・・・」
	ENDSELECT

CASE "拜托処理性欲"
	PRINTFORML 「なるほど、%CNAME("二人称")%が躁动难忍したら学校のどこからでも」
	PRINTFORML 「ただ%CNAME("二人称")%の精液を気持ちよく排泄させるために」
	PRINTFORML 「中等部の%CNAME("一人称")%がわざわざ高等部まで、「うわ、エロい後輩だな」とか思われながら駆けつけて」
	PRINTFORML 「休み時間で射精するほど熱心なご奉仕をする便利な性奴隷になれ？ってことですか？」
	PRINTFORML 「いいですか、うちのクラスの男子たちは%CNAME("一人称")%の体で躁动难忍しても自分の手で自慰するんですよ？」
	PRINTFORML 「基本的にはそのはずです。翻って%CNAME("二人称")%は、別の誰かで躁动难忍しても%CNAME("一人称")%の奉仕で射精したいと」
	PRINTFORML 「そういうわけですか？いやぁ、なんてわがままな%CNAME("二人称")%なんでしょうか・・・」
	PRINTFORMW 「いえ、やりますよ。都合のいい飛機杯、やりますよ。%CNAME("二人称")%の精液浴びてすぐ中等部に返回馬鹿な女です。」
CASE "性処理の一時中断"

CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

CASE "巨根化して"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

CASE "短小化して"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

;恋慕のみ　避妊の護符を取下
CASE "避妊解除可"

CASE "避妊解除拒否"

;一度解除した避妊の護符の再装着をお願いした場合
CASE "避妊の護符"

;以下は悪魔専用
CASE "魂が足りない"

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE

	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

;以下は汎用台詞(すでに喋っている場合には下には行かない)
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「そのお願いは聞けませんね・・・流石に冗談かと思いました。」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「とことん都合のいい後輩ですね、我ながら・・・いいですよ。承りましょう。」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K58, ARGS

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「まあ別にいいですけど、どこのお店ですか？」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「いくら%CNAME("一人称")%でも流石にこの姿で外を出歩くのは今後に差し障りがアリそうなので着替えますね」
	ELSE
		PRINTFORML 「いつものお店ですね？いいですよ、行きましょう。」
	ENDIF
CASE "目送"
	PRINTFORMW 「いってらっしゃい%CNAME("二人称")%」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORML 「%CNAME("一人称")%は別にいいですよ」
		PRINTFORMW 「ジロジロ腰回りを見られたところで流石に裙越しにはわからないでしょうしね」
	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		PRINTFORML 「実はもう%CNAME("二人称")%の意思を先回りしてすでに履いてませんよ」
		PRINTFORMW 「%CNAME("二人称")%のこと、割とわかってますからね%CNAME("一人称")%は」
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		PRINTFORML 「まあ泳装でも堂々としてれば「なにかの撮影かな？」と思ってスルーしてもらえるかもしれませんが・・・」
		PRINTFORMW 「いやスルーは難しそうですね。我明白了、通行人の男の人達に%CNAME("一人称")%の泳装姿で勃起てもらいましょう」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORML 「体操服って大人はエロさを感じるらしいですね。」
		PRINTFORML 「『キツ目の体操服を着た中等部の娘がエロすぎな件』って写真がネットで話題になってましたよ」
		PRINTFORML 「こんな体のラインが出やすい服だから当然といえば当然ですけど。」
		PRINTFORMW 「%CNAME("一人称")%も盗撮されて大人たちのズリネタにされちゃうかもしれませんね」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		PRINTFORML 「いくら%CNAME("二人称")%が不思議な力が使えるからって流石に緊張しますね・・・」
		PRINTFORML 「まるでズリネタとして撮影されるエッチな映像作品みたいじゃないですか」
		PRINTFORMW 「それとも、本当に映像作品として売って色んな人のオカズにさせちゃったりする気ですか？」
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORMW 「我明白了、ちょっと店員桑のとこ行ってきます。胸部とか見える姿勢がいいですか？」
	ELSE
		PRINTFORML 「我明白了、ちょっと店員桑のとこ行ってきます」
		IF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
			PRINTFORMW 「店員桑がジロジロ体を見ながらおちんちん少し硬くしてくれたりしますかね？」
		ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
			PRINTFORMW 「なにか%CNAME("一人称")%を守る魔法的な何かがあるからって、%CNAME("二人称")%以外に見せないはずの体を見られると思うと緊張です」
		ELSE
			PRINTFORMW 「ところで、袋はもらったほうがいいですか？」
		ENDIF
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "避孕套"
		PRINTFORML 「%CNAME("一人称")%は男の人のおちんちんを%CNAME("一人称")%自己的%CNAME("膣")%で%CNAME("射精音")%させますって店員桑に宣言しちゃいましたね」
		PRINTFORML 「店員桑は仕事だから、普段どおりに何も感情を動かされず対応できたんですかね？」
		PRINTFORMW 「それとも、こんなエッチな娘がどんなふうにおちんちんを%CNAME("射精音")%させてるのか想像して…勃起ちゃいましたかね？」
	;えっちな商品
	CASEELSE
		PRINTFORMW 「店員桑、こんな娘がエッチな買い物し来了んだって、どう「使う」のか妄想して勃起てくれましたかね？」
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
	ELSE
	ENDIF
CASE "询问有什么想要的东西"
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORMW 「%TEXTR(@"……%CNAME("二人称")%に言いたい事は沢山有ますが。もしもバレたらどうするつもりだったんですか？/ドキドキして%CNAME("一人称")%は死んじゃいそうでしたからね。次はこういう悪戯をするのは控えてくださいね？")%」
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORMW 「まぁココに来ることそのものが目的っぽかったですもんね。帰りましょうか。」
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		PRINTFORMW 「帰りもまたこの姿をいろんな通行人桑に見られちゃいますね。何人くらいでしょうか？」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
	ELSE
		PRINTFORMW 「あ、よかったら軽い荷物は持ちますよ。」
	ENDIF
ENDSELECT

path: ERB/EVENT_K/58 魔華/EVENT_58_SHOP.ERB