code:
;-------------------------------------------------
;FIND_CONDのARG除外
;-------------------------------------------------
@FINDT_COND_K50(ARG, ARGS:0, ARGS:1, ARGS:2, ARGS:3)
#FUNCTION
#DIM LCOUNT
;該当する角色の人数
#DIM NUM_FIND

;条件が空なら0
SIF ARGS:0 == "" && ARGS:1 == "" && ARGS:2 == "" && ARGS:3 == ""
	RETURNF 0

VARSET LOCAL
NUM_FIND = 0

FOR LCOUNT, 2, CHARANUM
	SIF LCOUNT == ARG
		CONTINUE
	SIF ARGS:0 != "" && COND(ARGS:0, LCOUNT) == 0
		CONTINUE
	SIF ARGS:1 != "" && COND(ARGS:1, LCOUNT) == 0
		CONTINUE
	SIF ARGS:2 != "" && COND(ARGS:2, LCOUNT) == 0
		CONTINUE
	SIF ARGS:3 != "" && COND(ARGS:3, LCOUNT) == 0
		CONTINUE

	NUM_FIND += 1

	SIF RAND:NUM_FIND == 0
		LOCAL = LCOUNT
NEXT
RETURNF LOCAL

;-------------------------------------------------
;過去二回までのARGの数値を記憶する
;-------------------------------------------------
;ARGに数字を入力、過去二回に同じ数値がないかを確認する
;ARGには0～99までの値が入力可能
;同じ数字がない場合1を返してCFLAG:カ胸罩ンド（_DAILY）にその値を記録する
;全て重置するときはその角色のCFLAG:カ胸罩ンドまたはカ胸罩ンド_DAILYを0にする
;◇使用例
;MEMO_LINECOUNT = LINECOUNT
;FOR LCOUNT, 0, 100
;	IF RAND:5 == 0
;		IF CHECK_TWO_POINTS(4)
;			PRINTFORML だぶり无
;		ENDIF
;	ELSEIF RAND:4 == 0
;		IF CHECK_TWO_POINTS(3)
;～～～～省略～～～～～
;	SIF LINECOUNT > MEMO_LINECOUNT
;		BREAK
;NEXT
;二回前までにRAND:5 == 0の分岐に来ていない場合、だぶり无を表示し、ループを終わらせる
;-------------------------------------------------
@CHECK_TWO_POINTS(ARG, ARG:1)
#FUNCTION
;過去の二回の数値
#DIM NUM_OLDER
#DIM NUM_OLDEST

SIF ARG:1 == 0
	ARG:1 = TARGET

IF COND("KOJO_DAILY台詞中")
	IF CFLAG:(ARG:1):カ胸罩ンド_DAILY == 0
		CFLAG:(ARG:1):カ胸罩ンド_DAILY = 100 + ARG
	ELSEIF CFLAG:(ARG:1):カ胸罩ンド_DAILY < 1000
		NUM_OLDER = CFLAG:(ARG:1):カ胸罩ンド_DAILY % 100
		SIF ARG == NUM_OLDER
			RETURNF 0
		CFLAG:(ARG:1):カ胸罩ンド_DAILY = 10000 + (NUM_OLDER * 100) + ARG
	ELSE
		NUM_OLDER = CFLAG:(ARG:1):カ胸罩ンド_DAILY % 100
		NUM_OLDEST = (CFLAG:(ARG:1):カ胸罩ンド_DAILY - NUM_OLDER) / 100 % 100
		SIF ARG == NUM_OLDER || ARG == NUM_OLDEST
			RETURNF 0
		CFLAG:(ARG:1):カ胸罩ンド_DAILY = 10000 + (NUM_OLDER * 100) + ARG
	ENDIF
ELSE
	IF CFLAG:(ARG:1):カ胸罩ンド == 0
		CFLAG:(ARG:1):カ胸罩ンド = 100 + ARG
	ELSEIF CFLAG:(ARG:1):カ胸罩ンド < 1000
		NUM_OLDER = CFLAG:(ARG:1):カ胸罩ンド % 100
		SIF ARG == NUM_OLDER
			RETURNF 0
		CFLAG:(ARG:1):カ胸罩ンド = 10000 + (NUM_OLDER * 100) + ARG
	ELSE
		NUM_OLDER = CFLAG:(ARG:1):カ胸罩ンド % 100
		NUM_OLDEST = (CFLAG:(ARG:1):カ胸罩ンド - NUM_OLDER) / 100 % 100
		SIF ARG == NUM_OLDER || ARG == NUM_OLDEST
			RETURNF 0
		CFLAG:(ARG:1):カ胸罩ンド = 10000 + (NUM_OLDER * 100) + ARG
	ENDIF
ENDIF

RETURNF 1

;-------------------------------------------------
;ARGの小テストの予想点数を事前に計算させる
;ARGはTARGETかMASTER
;-------------------------------------------------
@EXPECTED_SCORE_K50(ARG)
#FUNCTION
#DIM MEMO_STUDY
#DIM MEMO_SCHOLAR
#DIM MEMO_TEST

MEMO_STUDY = CFLAG:ARG:勉強時間

CFLAG:ARG:勉強時間 += 1

IF COND("教員")
	SIF ARG == MASTER
		CFLAG:MASTER:勉強時間 += 1
ELSEIF TALENT:MASTER:聰慧 && TALENT:聰慧
	CFLAG:ARG:勉強時間 += 1
ELSEIF TALENT:MASTER:聰慧 || (TALENT:MASTER:笨蛋 == 0 && TALENT:笨蛋)
	SIF ARG != MASTER
		CFLAG:ARG:勉強時間 += 1
ELSEIF TALENT:聰慧
	SIF ARG == MASTER
		CFLAG:MASTER:勉強時間 += 1
ENDIF

MEMO_TEST = CALCF("試験の予想点数", ARG)
CFLAG:ARG:勉強時間 = MEMO_STUDY

RETURNF MEMO_TEST

;-------------------------------------------------
;文字色変更関数
;-------------------------------------------------
;CFLAG:OFCに数値が入ってるとその色に文字色を変更する
;ARGSに"セット"で開始、"重置"で終了　重置を忘れないこと
;ARGは省略だとTARGET
;地の文を書きたい場合、PRINTFORMDWで默认ルト色の文字に出来る
;@PRINT_STRの使用は禁止！それ以降默认ルトに戻ります
;RETURNの上に重置おくを忘れずに
;-------------------------------------------------
@CHANGE_OFC, ARGS, ARG

SIF ARG == 0
	ARG = TARGET

SELECTCASE ARGS
CASE "セット"
	SIF CFLAG:ARG:OFC
		SETCOLOR CFLAG:ARG:OFC
CASE "重置"
	SIF CFLAG:ARG:OFC
		RESETCOLOR
ENDSELECT

;------------------------------------------------
;OFC専用のPRINT_STR
;ARGを省略したいがためにARGS:9まであったのを1個だけに変更
;たぶん支障はないはず・・・
;ARG省略はTARGET
;------------------------------------------------
@OFC_PRINT_STR, ARGS, ARG
#DIM LCOUNT

SIF ARG == 0
	ARG = TARGET

VARSET LOCALS

;文字列を分解する
SPLIT ARGS, "_", LOCALS

FOR LCOUNT, 0, 100
	;特殊な操作
	SELECTCASE LOCALS:LCOUNT
	;CASE ""
	;	BREAK
	CASE "BUTTON"
		;次の文字をボタンにする
		LCOUNT += 1
		PRINTBUTTON LOCALS:LCOUNT, LOCALS:LCOUNT
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "NOBUTTON"
		;次の文字をボタンにしない
		LCOUNT += 1
		PRINTPLAINFORM %LOCALS:LCOUNT%
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "DRAWLINE"
		RESETCOLOR
		DRAWLINE
		SIF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		CONTINUE
	CASE "太字"
		;次の文字を太字
		FONTBOLD
		CONTINUE
	CASE "I"
		;次の文字を斜体
		FONTITALIC
		CONTINUE
	CASE "-"
		;次の文字に打消し線を引く
		FONTSTYLE 4
		CONTINUE
	CASE "R"
		RESETCOLOR
		CONTINUE
	CASE "L"
		PRINTL
		CONTINUE
	CASE "W"
		PRINTW
		CONTINUE
	CASE "H"
		CALL HEARTMARK
		CONTINUE
	CASE "WH"
		CALL WHITE_HEARTMARK
		CONTINUE
	CASE "BH"
		CALL BIG_HEARTMARK
		CONTINUE
	CASE "BBH"
		CALL BIG_BLACK_HEARTMARK
		CONTINUE
	CASE "HH"
		SETCOLOR DEF_COLOR("爱心粉紅")
		CALL HEARTMARK
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "WHH"
		SETCOLOR DEF_COLOR("爱心粉紅")
		CALL WHITE_HEARTMARK
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "BHH"
		SETCOLOR DEF_COLOR("爱心粉紅")
		CALL BIG_HEARTMARK
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "BBHH"
		SETCOLOR DEF_COLOR("爱心粉紅")
		CALL BIG_BLACK_HEARTMARK
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "CBBH"
		IF TALENT:ARG:相思相愛
			SETCOLOR DEF_COLOR("赤")
		ELSEIF TALENT:ARG:恋慕
			SETCOLOR DEF_COLOR("粉紅")
		ELSE
			SETCOLOR DEF_COLOR("爱心粉紅")
		ENDIF
		CALL BIG_BLACK_HEARTMARK
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "／／／"
		SETCOLOR DEF_COLOR("粉紅")
		PRINT ///
		IF CFLAG:ARG:OFC
			SETCOLOR CFLAG:ARG:OFC
		ELSE
			RESETCOLOR
		ENDIF
		CONTINUE
	CASE "茶色", "ショッキング粉紅", "粉紅", "爱心粉紅", "赤", "紅", "黄色", "暗黄色", "イエロー", "緑", "青", "水色", "藍色", "暗灰色", "灰色", "明灰色", "白"
		SETCOLOR DEF_COLOR(LOCALS:LCOUNT)
		CONTINUE
	ENDSELECT

	PRINTFORM %LOCALS:LCOUNT%
	IF CFLAG:ARG:OFC
		SETCOLOR CFLAG:ARG:OFC
	ELSE
		RESETCOLOR
	ENDIF
	FONTSTYLE 0
NEXT

;-------------------------------------------------
;OFC_PRINT_STRの最後の_Lと_Wを関数に織り込んだver
;-------------------------------------------------
@OFC_PRINT_STRL, ARGS, ARG
CALL OFC_PRINT_STR, ARGS, ARG
PRINTL

@OFC_PRINT_STRW, ARGS, ARG
CALL OFC_PRINT_STR, ARGS, ARG
WAIT

;------------------------------------------------
;PRINT_SELECT時に一時的に默认ルトカラーに戻す処理を加えたもの
;------------------------------------------------
@OFC_PRINT_SELECT, ARGS, ARGS:1, ARG
#DIM RE_MEMO

SIF ARG == 0
	ARG = TARGET

SIF CFLAG:ARG:OFC
	RESETCOLOR
CALL PRINT_SELECT, ARGS, ARGS:1
RE_MEMO = RESULT
SIF CFLAG:ARG:OFC
	SETCOLOR CFLAG:ARG:OFC

RETURN RE_MEMO

;-------------------------------------------------
;アナグラム生成
;GETBITの仕様のため単語登録は64個まで
;ARGS内に"末尾記号削除"をいれると"、", "。", "！", "？", "…"を除くようになる
;-------------------------------------------------
@TEXTAN(ARGS)
#FUNCTIONS
#DIM LCOUNT_1
#DIM LCOUNT_2
#DIM NUM_SELECT
#DIM NUM_CHOICE
#DIM CHOICE_LIST
#DIM NUM_ITEMS
#DIM DELETE_MARK
#DIMS CHOICES
#DIMS ANAGRAM

VARSET LOCALS
SPLIT ARGS, "/", LOCALS

ANAGRAM =
CHOICE_LIST = 0
NUM_ITEMS = 0
DELETE_MARK = 0

;まず何個入ったかを知らべ、リストを作成する
FOR LCOUNT_1, 0, 64
	SELECTCASE LOCALS:LCOUNT_1
	CASE ""
		CONTINUE
	CASE "末尾記号削除"
	;ちょっと強引…
		DELETE_MARK += 1
		LOCALS:LCOUNT_1 =
		SETBIT CHOICE_LIST, (LCOUNT_1)
		NUM_ITEMS += 1
		CONTINUE
	CASEELSE
		SETBIT CHOICE_LIST, (LCOUNT_1)
		NUM_ITEMS += 1
	ENDSELECT
NEXT

FOR LCOUNT_1, 0, NUM_ITEMS
	NUM_CHOICE = 1
	FOR LCOUNT_2, 0, NUM_ITEMS
		IF GETBIT(CHOICE_LIST, LCOUNT_2) == 0
			CONTINUE
		ELSE
			IF RAND:NUM_CHOICE == 0
				CHOICES = %LOCALS:LCOUNT_2%
				NUM_SELECT = LCOUNT_2
			ENDIF
			NUM_CHOICE += 1
		ENDIF
	NEXT
	ANAGRAM = %ANAGRAM%%CHOICES%
	CLEARBIT CHOICE_LIST, NUM_SELECT
NEXT

IF DELETE_MARK
	FOR LCOUNT_1, 0, 100
		SELECTCASE SUBSTRING(ANAGRAM, STRLENS(ANAGRAM)-2)
		CASE "、", "。", "！", "？", "…"
			ANAGRAM = %SUBSTRING((ANAGRAM), 0, STRLENS((ANAGRAM)) - 2)%
		CASEELSE
			BREAK
		ENDSELECT
	NEXT
ENDIF
RETURNF ANAGRAM

;-------------------------------------------------
;商品を並べて購入まで処理してくれる関数
;ひとまず20個まで増やしたい場合LCOUNTのループ数上げて下さい
;書き方：商品名$値段/とする
;何か買ったらSTR:購入道具に商品名が入る（中止された場合は空）
;例）
;MYSHOP_SHOWCASE, "フーセンガム$1/ハ胸罩シ$3/ペンシルロケット$29"
;SELECTCASE STR:購入道具
;CASE "フーセンガム"
;ENDSELECT
;-------------------------------------------------
@MYSHOP_SHOWCASE, ARGS
#DIM LCOUNT
#DIM NUM_SELECT
#DIM PLICE
#DIM DOLLAR_MARK
#DIM MEMO_LINECOUNT
#DIMS GOODS
NUM_SELECT = 0
STR:購入道具 =
MEMO_LINECOUNT = LINECOUNT
PRINTFORMDL どれにしますか？　(所持金：%MONEY_C(MONEY)%)
DRAWLINE
;ARGSの中身を並べていく
VARSET LOCALS
SPLIT ARGS, "/", LOCALS
FOR LCOUNT, 0, 20
	SIF LOCALS:LCOUNT == ""
		CONTINUE
	DOLLAR_MARK = STRFIND(LOCALS:LCOUNT, "$")
	IF DOLLAR_MARK > 0
		GOODS = %SUBSTRING(LOCALS:LCOUNT, 0, DOLLAR_MARK)%
		PLICE = TOINT( SUBSTRING(LOCALS:LCOUNT, DOLLAR_MARK+1, -1) )
	ELSE
		LOCALS:LCOUNT = エラー$0
		GOODS = エラー
		PLICE = 0
	ENDIF
	PRINTFORMLCD  [ {LCOUNT}]%TEXT_LJ(GOODS, 26)%%TEXT_RJ(MONEY_C(PLICE), 12)%
	NUM_SELECT += 1
	SIF NUM_SELECT % 2 == 0
		PRINTL
NEXT
SIF NUM_SELECT % 2
	PRINTL
DRAWLINE
PRINTFORMDL [100] やめる
INPUT
IF RESULT == 100
ELSEIF  0 > RESULT || LCOUNT < RESULT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
ELSEIF LOCALS:RESULT == ""
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
ELSE
	DOLLAR_MARK = STRFIND(LOCALS:RESULT, "$")
	GOODS = %SUBSTRING(LOCALS:RESULT, 0, DOLLAR_MARK)%
	PLICE = TOINT( SUBSTRING(LOCALS:RESULT, DOLLAR_MARK+1, -1) )

	IF PLICE > MONEY
		PRINTFORMDW お金が足りません
		CLEARLINE LINECOUNT - MEMO_LINECOUNT
		RESTART
	ELSE
		MONEY -= PLICE
		STR:購入道具 = %GOODS%
		PRINTFORMDW ＜%STR:購入道具%を購入しました＞
	ENDIF
ENDIF

;-------------------------------------------------
;特別な呼び方に一時的に変更する
;呼び方の変更をしている場合は一時的にメモを取り置き換えることができる
;ARGSに呼び名、ARGS:1にかな表記
;-------------------------------------------------
@SET_SPECIALNAME_REPLACE, ARGS, ARGS:1, ARG

SIF ARG == 0
	ARG = TARGET

IF CEVENT("二人称主人")
	CALL SET_CEVENT, @"二人称主人bak：%CEVENTS("二人称主人")%", ARG
	CALL SET_CEVENT, @"二人称主人かなbak：%CEVENTS("二人称主人かな")%", ARG
	CALL DEL_CEVENT_GROUP_EX, "二人称主人", ARG
ENDIF

CALL SET_CEVENT, @"二人称主人：%ARGS%", ARG
CALL SET_CEVENT, @"二人称主人かな：%ARGS:1%", ARG

@DEL_SPECIALNAME_REPLACE, ARG

SIF ARG == 0
	ARG = TARGET

CALL DEL_CEVENT_GROUP_EX, "二人称主人", ARG

IF CEVENT("二人称主人bak")
	CALL SET_CEVENT, @"二人称主人：%CEVENTS("二人称主人bak")%", ARG
	CALL SET_CEVENT, @"二人称主人かな：%CEVENTS("二人称主人かなbak")%", ARG
	CALL DEL_CEVENT_GROUP, "二人称主人bak", ARG
	CALL DEL_CEVENT_GROUP, "二人称主人かなbak", ARG
ENDIF


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
@WISH_K50_ADDSELECT
IF CEVENT("購入：だてめがね")
	IF CEVENT("眼鏡ＯＮ") == 0
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("眼鏡を掛けて", 16)% … %CALLNAME:TARGET%に眼鏡を掛けてもらいます/
	ELSE
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("眼鏡を外して", 16)% … %CALLNAME:TARGET%に眼鏡を外してもらいます/
	ENDIF
ENDIF
STR:選択肢 = %STR:選択肢% [80] %TEXT_LJ("フォントカラー", 16)% … %CALLNAME:TARGET%のセリフの色を変えます/
STR:選択肢 = %STR:選択肢% [81] %TEXT_LJ("男性器の呼び方", 16)% … %CALLNAME:TARGET%の男性器の呼び方を変えます/
STR:選択肢 = %STR:選択肢% [82] %TEXT_LJ("女性器の呼び方", 16)% … %CALLNAME:TARGET%の女性器の呼び方を変えます/
;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K50_ADDSELECT, ARGS
#DIM MEMO_LINECOUNT
SELECTCASE ARGS
CASE "眼鏡を掛けて"
	CALL SET_OTHER, "眼鏡"
	CALL SET_CEVENT, "眼鏡ＯＮ"
	PRINTL
	CALL EMOTION_PLUS, "重置"
	PRINTFORMDW %CALLNAME:TARGET%に眼鏡を掛けてもらいました。
CASE "眼鏡を外して"
	CALL RESET_OTHER, "眼鏡"
	CALL DEL_CEVENT, "眼鏡ＯＮ"
	PRINTL
	CALL EMOTION_PLUS, "重置"
	PRINTFORMDW %CALLNAME:TARGET%に眼鏡を外してもらいました。
CASE "フォントカラー"
	MEMO_LINECOUNT = LINECOUNT
	PRINTFORMDL %CALLNAME:TARGET%のセリフのフォントカラーを設定します
	CALL CHANGE_OFC, "セット"
	GETCOLOR
	PRINTFORML 今はこの色です：%TOSTR(RESULT, "X")%
	CALL CHANGE_OFC, "重置"
	CALL PRINT_SELECT, "設定无/標準設定/カスタム", "設定をやめる"
	IF RESULT == 100
		RETURN 1
	ELSEIF RESULT == 0
		CFLAG:OFC = 0
	ELSEIF RESULT == 1
		CFLAG:OFC = 0x90AAFF
	ELSE
		PRINTFORML "FFFFFF"の形式で指定してください。"000000"は指定できません。
		CALL INPUTS_SELECT, 6
		CALL COLOR_CODE_CHECK, RESULTS
		IF RESULT == 0
			PRINTFORMW エラー：半角数字、半角英字の6桁で入力してください
		ELSE
			CFLAG:OFC = RESULT
		ENDIF
	ENDIF
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
CASE "男性器の呼び方"
	CALL GENITALNAME_CONVERT, "男性器"
CASE "女性器の呼び方"
	CALL GENITALNAME_CONVERT, "女性器"
ENDSELECT
;16進数変換
@COLOR_CODE_CHECK, ARGS
#DIM COLOR_NUM
#DIMS COLOR_STR

COLOR_STR = 0x%ARGS%

SIF ISNUMERIC(COLOR_STR) == 0
	RETURN 0

COLOR_NUM = TOINT(COLOR_STR)

RETURN COLOR_NUM

@GENITALNAME_CONVERT, ARGS
#DIMS MEMO_RESULTS
PRINTL
PRINTFORMDL %CALLNAME:TARGET%の%ARGS%の呼び方（現在は%CNAME(ARGS)%)を変更します
PRINTFORMDL 全角10文字(半角なら20文字)以内で入力してください
PRINTFORMDL 何も入力しない場合は変更しません
CALL PRINT_STRL, "_また、もともとの呼び方に戻したい場合には_黄色_もとにもどす_と入力してください"
CALL INPUTS_SELECT, 20
PRINTL
SELECTCASE RESULTS
CASE "", CEVENTS(ARGS)
	PRINTFORMW 没有変更
CASE "もとにもどす"
	CALL DEL_CEVENT_GROUP, @"%ARGS%呼"
	PRINTFORMW 設定を初期化しました
CASEELSE
	CALL DEL_CEVENT_GROUP, @"%ARGS%呼"
	MEMO_RESULTS = %RESULTS%
	PRINTFORMW %CALLNAME:TARGET%の%ARGS%の呼び方を、%MEMO_RESULTS%にしました
	PRINTL
	PRINTFORML 続けて、この呼び方のふりがなを決めます。
	PRINTFORML （何も入力しない場合は%MEMO_RESULTS%がふりがなとなります）
	PRINTL
	PRINTFORML 请输入在全角20文字(半角的话就是40文字)以内的名字
	CALL INPUTS_SELECT, 40
	SELECTCASE RESULTS
	CASE ""
		CALL SET_CEVENT, @"%ARGS%呼：%MEMO_RESULTS%_%MEMO_RESULTS%"
	CASEELSE
		CALL SET_CEVENT, @"%ARGS%呼：%MEMO_RESULTS%_%RESULTS%"
	ENDSELECT
		CALL PRINT_STRL, @"%CALLNAME:TARGET%の%ARGS%の呼び方を、_黄色_%CNAME(ARGS)%_"
		CALL PRINT_STRW, @"そのふりがなを_黄色_%CNAME(ARGS, "かな")%_に変更しました"
ENDSELECT
;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K50_ADDSELECT
[IF_DEBUG]
	STR:選択肢 += "セリフ格子/"
	STR:選択肢 += "動作格子/"

[ENDIF]
;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K50_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "セリフ格子"
	INPUTS
	PRINTL
	SELECTCASE RESULTS
	CASE ""
		RETURN 1
	CASEELSE
		CALL CHANGE_OFC, "セット"
		CALL OFC_PRINT_STRL, @"%RESULTS%"
		CALL CHANGE_OFC, "重置"
	ENDSELECT
	RESTART
CASE "動作格子"
	INPUTS
	PRINTL
	SELECTCASE RESULTS
	CASE ""
		RETURN 1
	CASEELSE
		CALL KOJOTEST_K50, RESULTS
	ENDSELECT
	RESTART
ENDSELECT

@KOJOTEST_K50, ARGS

VARSET LOCALS

DRAWLINE
SPLIT ARGS, ", ", LOCALS
IF LOCALS:1 != ""
	LOCALS:1 = %SUBSTRING(LOCALS:1, 1, (STRLENS(LOCALS:1) - 2))%
	TRYCALLFORM %LOCALS:0%, LOCALS:1
ELSE
	TRYCALLFORM %LOCALS:0%
ENDIF
DRAWLINE
;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K50_ADDSELECT
;STR:選択肢 += @"%CALLNAME:TARGET%と玩遊戲/"
;STR:選択肢 += "追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K50_ADDSELECT, ARGS
#DIMS GAMES
#DIM LCOUNT

SELECTCASE ARGS
CASE @"%CALLNAME:TARGET%と玩遊戲"

CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
ENDSELECT

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

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K50_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

license: unknown


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

;文字色変更
CALL CHANGE_OFC, "セット"

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		IF CEVENT("魂の取引？") == 0
			CALL EMOTION_PLUS, "重置/困扰眉"
			PRINTFORMW 「お金を増やしたり、強くしたり？」
			PRINTFORMW 「あははー…… まだそういうのは出来ないかな……」
			PRINTFORMW 「でも、%CNAME("一人称")%だって悪魔だから、%CNAME("二人称")%のお願いできるだけ聞いて给ね」
			CALL SET_CEVENT, "魂の取引？"
		ELSE
			CALL EMOTION_PLUS, "重置"
			PRINTFORMW 「お願い？ どんな事？」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		CALL EMOTION_PLUS, "重置/困扰眉/無口系/紅潮"
		PRINTFORMW 「……うん、%CNAME("一人称")%も%CNAME("二人称")%の事が好き！」
		SIF CONFIG("颜绘ＯＮ")
			PRINTL
		CALL EMOTION_PLUS, "重置/笑颜/红晕/对话框爱心"
		CALL OFC_PRINT_STRW,@"「えへへっ♪ これからもよろしくね！%CNAME("二人称")%_CBBH_ 」"
	;失敗
	ELSE
		CALL EMOTION_PLUS, "重置/憤怒眉"
		PRINTFORMW 「%CNAME("二人称")%、からかってるでしょ？」
		PRINTFORMW 「引っかからないよ！」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：检查阴部")
		CALL EMOTION_PLUS, "重置/嘲笑/紅潮"
		PRINTFORMW 「そのお願いは叶えられないよ」
		PRINTFORMW 「んふふー……だって、ほら」
		PRINTL
		CALL CHANGE_OFC, "重置"
		PRINTFORM %CALLNAME:TARGET%
		IF EQUIP:外套 && CHECK_OUTER("连褲襪") == 0
			PRINTFORM %OUTER(TARGET, "略")%を下ろし、
		ELSE
			PRINTFORM %CLO("掀起裙子")%をたくしあげ、
		ENDIF
		PRINTFORMDW その下の秘密の場所を展示了出来。
		IF EQUIP:外套 && CHECK_OUTER("连褲襪") == 0
			CALL TEXT_PANTU_CHECK, "外套"
			SIF EQUIP:裙
				CALL SETFLAG_DAILY, "掀起裙子"
		ELSE
			CALL TEXT_PANTU_CHECK_SKIRT
		ENDIF
		CALL SETFLAG_DAILY, "胖次詳細確認"
	ELSE
		CALL EMOTION_PLUS, "重置/紅潮"
		PRINTFORMW 「そのお願いは叶えられないよ」
		PRINTFORMW 「……なんでかなー？」
	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		IF COND("合意：胖次交易") == 0
			CALL EMOTION_PLUS, "重置/無口系"
			PRINTFORMW 「え？ %CNAME("一人称")%の胖次が欲しいの？」
			PRINTFORMW 「んー……それなら……魂一つと取引じゃダメ？」
			PRINTL
			IF BASE:MASTER:魂 <= 100
				TFLAG:取引拒否 = 1
			ELSE
				CALL CHANGE_OFC, "重置"
				PRINTFORMDL 【現在的%CALLNAME:MASTER%の魂：%TEXTS("0.01", BASE:MASTER:魂)%】
				CALL PRINT_SELECT, "做交易/断る"
				IF RESULT == 0
					BASE:MASTER:魂 -= 100
					BASE:魂 += 100
					;取引と一緒の処理にしておく
					PRINTL
					PRINTFORMDL 魂-%TEXTS("0.01", 100)%（%CALLNAME:MASTER%）
					IF ABL:信頼 < 3
						ABL:信頼 += 1
						SIF TFLAG:システム文スキップ == 0
							CALL PRINT_STRW, @"イエロー_%CALLNAME:TARGET%の信頼が１上がり、{ABL:信頼}LV变成了。"
					ENDIF
					TFLAG:取引承諾 = 1
					TFLAG:取引価格 = 0
				ELSE
					TFLAG:取引拒否 = 1
				ENDIF
			ENDIF
		ELSE
			TFLAG:取引承諾 = 1
			TFLAG:取引価格 = 0
		ENDIF
	ENDIF
CASE "胖次"
	IF COND("合意：胖次交易") == 0
		CALL EMOTION_PLUS, "重置/笑颜/红晕/对话框開心"
		PRINTFORMW 「いいの！？」
		PRINTFORMW 「やったー♪ こういう事でも魂ってもらえちゃうんだ♪」
		PRINTFORMW 「あ！ 胖次だよね……ちょっとまってね」
		CALL CHANGE_OFC, "重置"
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		CALL CHANGE_OFC, "セット"
		PRINTL
		CALL EMOTION_PLUS, "重置/困扰眉/紅潮"
		PRINTFORMW 「是♪ でも、%CNAME("二人称")%、この胖次どうするの？」
	ELSE
		CALL CHANGE_OFC, "重置"
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		CALL CHANGE_OFC, "セット"
		PRINTL
		CALL EMOTION_PLUS, "重置/困扰眉/紅潮"
		PRINTFORMW 「是、大切にしてね？」
	ENDIF
CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否
		CALL EMOTION_PLUS, "重置"
		SIF BASE:MASTER:魂 <= 100
			PRINTFORMW 「あれ？ 今の%CNAME("二人称")%、魂が足りないみたいだね」
		PRINTFORMW 「それならまた今度ね♪」
	ELSEIF COND("合意：胖次交易")
		CALL EMOTION_PLUS, "重置/嘲笑/紅潮"
		PRINTFORMW 「今はダーメ♪」
	ENDIF

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

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;取引初成功
	IF COND("合意：全裸化") == 0
		CALL EMOTION_PLUS, "重置/笑颜/紅潮"
		PRINTFORMW 「そんなに見たいの？ しょうがないなー♪」
		PRINTL
		CALL CHANGE_OFC, "重置"
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		CALL CHANGE_OFC, "セット"
	ELSE
		CALL CHANGE_OFC, "重置"
		CALL EVENT_DATUI, "裸体"
		CALL CHANGE_OFC, "セット"
		PRINTL
		CALL EMOTION_PLUS, "重置/嘲笑/紅潮"
		PRINTFORMW 「ねっ！ %CNAME("二人称")%も一緒に脱いじゃおうよ？」
	ENDIF
CASE "全裸拒否"
	;二人きりなら脱いでくれるけど状況が悪い
	IF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMDW %CALLNAME:TARGET%は%CALLNAME:MASTER%に悄悄的囁いてきた
		PRINTL
		CALL EMOTION_PLUS, "重置/闭眼/紅潮"
		CALL OFC_PRINT_STRW, "「……ふたりっきりならいいよ_CBBH_ 」"
	ELSE
	ENDIF

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

CASE "事后避孕药"
	;なにか書いたら下をけす
	CALL CHANGE_OFC, "重置"
	RETURN 1

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

CASE "事后避孕药拒否"
	;なにか書いたら下をけす
	CALL CHANGE_OFC, "重置"
	RETURN 1
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	CALL EMOTION_PLUS, "重置/闭眼/無口系"
	PRINTFORMW 「お泊り？ うーん……ちょっと考えさせて」
CASE "同居希望"
	CALL EMOTION_PLUS, "重置/笑颜"
	PRINTFORMW 「お泊り？ んふふー、いいよ！」
CASE "同居頻度的相談"
	CALL CHANGE_OFC, "重置"
	RETURN 1
CASE "便当拒否"
	CALL EMOTION_PLUS, "重置/困扰眉/眯眯眼"
	PRINTFORMW 「あははー…… 料理の味付けに自信なくって……」
	PRINTFORMW 「また今度ね！」
;TFLAG:取引拒否 = 1 とすると誘いを断ることができる
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		CALL EMOTION_PLUS, "重置/笑颜"
		PRINTFORMW 「うん！ お昼一緒に食べよ！」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		CALL EMOTION_PLUS, "重置/困扰眉"
		PRINTFORMW 「便当食べてみたいの？」
		PRINTFORMW 「作ってみるけどあんまり期待しないでね？」
	ENDIF
;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬

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

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0
				CALL EMOTION_PLUS, "重置/無口系"
				PRINTFORMW 「へぇー……これが口服避孕薬……初めて見た」
				PRINTFORMDW %CALLNAME:TARGET%は珍しそうに口服避孕薬を眺めている
			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE
			CALL EMOTION_PLUS, "重置"
			PRINTFORMW 「もう飲まなくてもいいの？」
			PRINTFORMW 「はーい、残ったのは返すね」
		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

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

CASE "淫紋拒否"

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

	ELSE

	ENDIF

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

	ELSE

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

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	CALL CHANGE_OFC, "重置"
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"
	IF DEVENT(ARGS) == 0
		CALL EMOTION_PLUS, "重置/斜眼/嘲笑/紅潮/对话框兴奋"
		PRINTFORMW 「%CNAME("二人称")%、すぐに%CNAME("男性器")%おっきくしちゃうもんね♪」
		PRINTFORMW 「%CNAME("一人称")%が面倒見て给！」
	ELSE
		CALL EMOTION_PLUS, "重置/笑颜/紅潮/对话框兴奋"
		PRINTFORMW 「いいよー！ 面倒見て给ね！」
	ENDIF
CASE "性処理の一時中断"
	CALL EMOTION_PLUS, "重置/斜眼"
	PRINTFORMW 「えー？ いいのー？ ほんとにー？」

;おそらくほとんど出ない……まぁ汎用でもよし
CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"
	CALL EMOTION_PLUS, "重置/困扰眉/無口系"
	PRINTFORMW 「えー…… だって、ここは……」
	PRINTFORMW 「うーん……さわったりしたらダメだよ？」
CASE "给我看尾巴拒否"
	CALL EMOTION_PLUS, "重置/憤怒眉/△/对话框憤怒"
	PRINTFORMW 「だめ！」
;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"
	CALL EMOTION_PLUS, "重置/笑颜"
	PRINTFORMW 「おっけー！ どんな感じにするの？」
CASE "髪型変更の感想"
	CALL EMOTION_PLUS, "重置/笑颜/对话框兴奋"
	PRINTFORMW 「どうどう？ 似合ってるといいな♪」
	;髪型毎に喋らせる時は下を消す
	CALL CHANGE_OFC, "重置"
	RETURN 1

	;どの髪型变成了かで分岐可能
	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を消してください
	CALL CHANGE_OFC, "重置"
	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
CASE "爱称変更"
	CALL EMOTION_PLUS, "重置"
	PRINTFORMW 「あだ名？ どんなの？」
CASE "爱称変更完了"
	CALL EMOTION_PLUS, "重置"
	PRINTFORMW 「%NICKNAME:TARGET%って呼びたいの？」
	CALL OFC_PRINT_SELECT, "是/否"
	IF RESULT == 0
		CALL EMOTION_PLUS, "重置/笑颜"
		PRINTFORMW 「%NICKNAME:TARGET%…… んふふー、いいよ」
	ELSE
		CALL KOJO_WISH_K50, "爱称変更中止"
		TFLAG:取引拒否 = 1
	ENDIF
CASE "爱称変更中止"
	CALL EMOTION_PLUS, "重置/無口系"
	PRINTFORMW 「やめちゃうの？」
CASE "称呼変更"
	CALL EMOTION_PLUS, "重置"
	PRINTFORMW 「なんて呼んで欲しいの？」
CASE "称呼変更完了"
	CALL EMOTION_PLUS, "重置"
	PRINTFORMW 「%CNAME("二人称")%って呼んで欲しいの？」
	CALL OFC_PRINT_SELECT, "是/否"
	IF RESULT == 0
		IF (TALENT:MASTER:男性 && STRCOUNTS(CNAME("二人称"), "欧尼酱", "欧尼酱")) || (TALENT:MASTER:男性 == 0 && STRCOUNTS(CNAME("二人称"), "欧内酱", "欧内酱"))
			IF DEVENT("質問３") == 0
				CALL EMOTION_PLUS, "重置/微笑"
				PRINTFORMW 「ふーん……？ わかった！」
			ELSE
				CALL EMOTION_PLUS, "重置/笑颜/红晕/对话框開心"
				PRINTFORMW 「んふふー、%CNAME("二人称")%♪」
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置"
			PRINTFORMW 「おっけー！ %CNAME("二人称")%」
		ENDIF
	ELSE
		IF (TALENT:MASTER:男性 && STRCOUNTS(CNAME("二人称"), "欧尼酱", "欧尼酱")) || (TALENT:MASTER:男性 == 0 && STRCOUNTS(CNAME("二人称"), "欧内酱", "欧内酱"))
			IF DEVENT("質問３") == 0
				CALL EMOTION_PLUS, "重置/笑颜"
				PRINTFORMW 「あははっ、遠慮しなくていいのに」
			ELSE
				CALL EMOTION_PLUS, "重置/困扰眉/△/楕円/对话框憤怒"
				PRINTFORMW 「もー…… からかわないでよー！」
			ENDIF
		ELSE
			CALL KOJO_WISH_K50, "称呼変更中止"
		ENDIF
		TFLAG:取引拒否 = 1
	ENDIF
CASE "称呼変更中止"
	CALL EMOTION_PLUS, "重置/無口系"
	PRINTFORMW 「やめちゃうの？」
ENDSELECT

;以下は汎用台詞(すでに喋っている場合には下には行かない)
IF LINECOUNT > MEMO_LINECOUNT
	CALL CHANGE_OFC, "重置"
	RETURN 1
ENDIF

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	CALL EMOTION_PLUS, "重置/困扰眉/無口系"
	PRINTFORMW 「えー…… いやだよー……」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	CALL EMOTION_PLUS, "重置/笑颜"
	PRINTFORMW 「%TEXTR("いいよー！/おっけー！")%」
ENDIF

CALL CHANGE_OFC, "重置"
;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K50, ARGS
CALL CHANGE_OFC, "セット"

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"
	CALL EMOTION_PLUS, "重置/笑颜"
	PRINTFORMW 「购物に行くの？ いってらっしゃーい！」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
CASE "询问有什么想要的东西"

CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT
CALL CHANGE_OFC, "重置"

path: ERB/EVENT_K/50 シュトリー/EVENT_K50_SHOP.ERB