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

SELECTCASE ARGS
CASE "取引開始"
	IF CEVENT("妹哈娜")
		IF TALENT:相思相愛
			PRINTFORML 「んふふー、なーに？%CNAME("二人称")%」
			PRINTFORMW もう隠す様子も無く尾巴を千切れんばかりに振っている…
		ELSE
			PRINTFORML 「変な事言わないでよー？%CNAME("二人称")%」
			PRINTFORMW 口ではそう言いながらも尾巴を千切れんばかりに振り回している…
		ENDIF
	ELSE
		IF TALENT:相思相愛
			PRINTFORML 「んふふー、何スかー%CNAME("二人称")%」
			PRINTFORMW もう隠す様子も無く尾巴を千切れんばかりに振っている…
		ELSE
			PRINTFORML 「変な事言わないでよー？%CNAME("二人称")%」
			PRINTFORMW 口ではそう言いながらも尾巴を千切れんばかりに振り回している…
		ENDIF
	ENDIF
CASE "愛の告白"
	IF TALENT:相思相愛
		PRINTFORML 「なーに？%CNAME("二人称")%」
		PRINTFORMW %CALLNAME:MASTER%が%CALLNAME:TARGET%に告白をすると、%CALLNAME:TARGET%はその言葉の衝撃に固まってしまったが
		PRINTFORML 徐々に徐々に状況が飲み込めてきたのだろう尾巴を振る速度が上がってゆく…
		CALL PRINT_STR, @"「%CNAME("一人称")%の気持ち知ってるクセに…遅いよ%CNAME("二人称")%…_H_」_W"
	ELSE
		PRINTFORML 「ご、ごめんなさい%CNAME("二人称")%…
		IF CEVENT("妹哈娜")
			PRINTFORML 流石にきょーだいだから…」
		ELSE
			PRINTFORML %CNAME("一人称")%、まだ気持ちが良く分かんないっス…」
		ENDIF
		PRINTFORMW %CALLNAME:MASTER%の言葉を聞いた%CALLNAME:TARGET%は申し訳なさそうに尾巴がうな垂れている…
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
CASE "胖次交易"

CASE "胖次"

CASE "胖次拒否"

CASE "全裸交易"

CASE "全裸"

CASE "全裸拒否"

CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

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

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

		ELSE

		ENDIF
	ENDIF
CASE "淫紋拒否"

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

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW
	ENDIF
ENDSELECT

path: ERB/EVENT_K/07 ハナ/EVENT_K7_SHOP.ERB