code:
;　エルの台詞上のコマンド名
;───────────────────────────────────────
;●実行コマンド
;　使い方：%KOJO_COM_NAME_PLAYER_K7(SELECTCOM, エル_対象)%たい
;───────────────────────────────────────
@KOJO_COM_NAME_PLAYER_K7(コマンド番号, エル_対象)
#FUNCTIONS
#DIM コマンド番号
#DIM エル_対象
#DIM エル
#DIMS 表示テキスト

;エル_対象は未指定だと主人公
IF !エル_対象
	エル_対象 = エル_対象
ENDIF

エル = NAME_TO_CHARA("エル")
表示テキスト '= "ちょっと休み"

IF コマンド番号 == 0
	表示テキスト '= CALL_DIRTY_K7("Ｂ") + "や" + CALL_DIRTY_K7("Ｃ") + "を撫で"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 1
	表示テキスト '= CALL_DIRTY_K7("Ｂ") + "に触"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "り"
	ENDIF
ELSEIF コマンド番号 == 2
	表示テキスト '= "舌で気持ち良くさせ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 3
	IF IS_MTAR(エル_対象) && IS_EQUIP_TARGET(エル_対象, 61)
		表示テキスト '= CALL_DIRTY_K7("Ｖ") + "の玩具を動かし"
		IF IS_MPLY(エル)
			表示テキスト '= 表示テキスト + "てあげ"
		ENDIF
	ELSEIF IS_MTAR(エル) && IS_EQUIP_TARGET(エル, 61)
		表示テキスト '= CALL_DIRTY_K7("Ｖ") + "の玩具を動かし"
		IF IS_MPLY(エル)
			表示テキスト '= 表示テキスト + "てあげ"
		ENDIF
	ELSE
		表示テキスト '= CALL_DIRTY_K7("Ｖ") + "に触"
		IF IS_MPLY(エル)
			表示テキスト '= 表示テキスト + "ってあげ"
		ELSE
			表示テキスト '= 表示テキスト + "り"
		ENDIF
	ENDIF
ELSEIF コマンド番号 == 4
	IF IS_MTAR(エル_対象) && IS_EQUIP_TARGET(エル_対象, 62)
		表示テキスト '= CALL_DIRTY_K7("Ａ") + "の玩具を動かし"
		IF IS_MPLY(エル)
			表示テキスト '= 表示テキスト + "てあげ"
		ENDIF
	ELSEIF IS_MTAR(エル) && IS_EQUIP_TARGET(エル, 62)
		表示テキスト '= CALL_DIRTY_K7("Ａ") + "の玩具を動かし"
		IF IS_MPLY(エル)
			表示テキスト '= 表示テキスト + "てあげ"
		ENDIF
	ELSE
		表示テキスト '= CALL_DIRTY_K7("Ａ") + "に触"
		IF IS_MPLY(エル)
			表示テキスト '= 表示テキスト + "ってあげ"
		ELSE
			表示テキスト '= 表示テキスト + "り"
		ENDIF
	ENDIF
ELSEIF コマンド番号 == 5
	表示テキスト '= "体を擦りつけ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 6
	表示テキスト '= "尻尾を" + CALL_DIRTY_K7("Ｖ") + "に挿れ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 7
	表示テキスト '= "尻尾を" + CALL_DIRTY_K7("Ａ") + "に挿れ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 8
	表示テキスト '= CALL_DIRTY_K7("Ａ") + "を舐め"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 9
	表示テキスト '= CALL_DIRTY_K7("Ｂ") + "を吸"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 10
	表示テキスト '= CALL_DIRTY_K7("Ｐ") + "を手で扱"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 11
	表示テキスト '= CALL_DIRTY_K7("Ｐ") + "を咥え"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 12
	表示テキスト '= CALL_DIRTY_K7("Ｂ") + "で" + CALL_DIRTY_K7("Ｐ") + "を扱"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 13
	表示テキスト '= CALL_DIRTY_K7("Ｂ") + "でご奉仕し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 14
	表示テキスト '= "足で" + CALL_DIRTY_K7("Ｐ") + "を扱"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 15
	表示テキスト '= "お尻で" + CALL_DIRTY_K7("Ｐ") + "を扱"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 16
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ｐ") + "を扱"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 17
	表示テキスト '= "尻尾で" + CALL_DIRTY_K7("Ｐ") + "を扱"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 18
	表示テキスト '= "髪で" + CALL_DIRTY_K7("Ｐ") + "を扱"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 20
	表示テキスト '= "キスし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 21
	表示テキスト '= CALL_DIRTY_K7("Ｃ") + "を擦り合わせ"
ELSEIF コマンド番号 == 22
	表示テキスト '= "二人で挿れられる玩具で繋がり"
ELSEIF コマンド番号 == 30
	表示テキスト '= "抱き合って繋がり"
ELSEIF コマンド番号 == 31
	表示テキスト '= "後ろから犯し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 32
	表示テキスト '= "抱き合って繋がり"
ELSEIF コマンド番号 == 33
	表示テキスト '= "後ろから繋がり"
ELSEIF コマンド番号 == 34
	表示テキスト '= "跨って繋がり"
ELSEIF コマンド番号 == 35
	表示テキスト '= "跨って繋がり"
ELSEIF コマンド番号 == 36
	表示テキスト '= "二人のを一度に挿れ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 37
	表示テキスト '= "体を重ねて繋がり"
ELSEIF コマンド番号 == 38
	表示テキスト '= "恥ずかしい恰好にして犯し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 40
	表示テキスト '= "抱き合って" + CALL_DIRTY_K7("Ａ") + "で繋がり"
ELSEIF コマンド番号 == 41
	表示テキスト '= "後ろから" + CALL_DIRTY_K7("Ａ") + "を犯し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 42
	表示テキスト '= "抱き合って" + CALL_DIRTY_K7("Ａ") + "で繋がり"
ELSEIF コマンド番号 == 43
	表示テキスト '= "後ろから" + CALL_DIRTY_K7("Ａ") + "で繋がり"
ELSEIF コマンド番号 == 44
	表示テキスト '= "跨って" + CALL_DIRTY_K7("Ａ") + "で繋がり"
ELSEIF コマンド番号 == 45
	表示テキスト '= "跨って" + CALL_DIRTY_K7("Ａ") + "で繋がり"
ELSEIF コマンド番号 == 46
	表示テキスト '= "二人のを一度に" + CALL_DIRTY_K7("Ａ") + "に挿れ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 47
	表示テキスト '= "体を重ねて" + CALL_DIRTY_K7("Ａ") + "で繋がり"
ELSEIF コマンド番号 == 48
	表示テキスト '= "恥ずかしい恰好にして" + CALL_DIRTY_K7("Ａ") + "を犯し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 50
	表示テキスト '= "玩具を着け"
ELSEIF コマンド番号 == 51
	表示テキスト '= "めちゃくちゃにし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 55
	表示テキスト '= "順番に" + CALL_DIRTY_K7("Ｖ") + "に挿れ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 56
	表示テキスト '= "順番に" + CALL_DIRTY_K7("Ａ") + "に挿れ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 57
	表示テキスト '= "めちゃくちゃにし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 58
	表示テキスト '= CALL_DIRTY_K7("Ａ") + "をめちゃくちゃにし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 60
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ｃ") + "をいじめ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 61
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ｖ") + "をいじめ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 62
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ａ") + "をいじめ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 63
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ｃ") + "をいじめ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 64
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ｂ") + "をいじめ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 65
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ｖ") + "を拡げ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 66
	表示テキスト '= "玩具で" + CALL_DIRTY_K7("Ａ") + "を拡げ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 70
	表示テキスト '= "潤滑を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 71
	表示テキスト '= "媚薬を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 72
	表示テキスト '= "赤ちゃんを孕ませ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 73
	表示テキスト '= "体力をつけ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 74
	表示テキスト '= "夢を見れるお薬を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 75
	表示テキスト '= "避妊具を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 76
	表示テキスト '= "気持ちよくなる香を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 80
	表示テキスト '= "いじめ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 81
	表示テキスト '= "お尻を叩"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 82
	表示テキスト '= "鞭で叩"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 83
	表示テキスト '= "針を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 84
	表示テキスト '= "目隠しを使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 85
	表示テキスト '= "縄を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 86
	表示テキスト '= "口枷を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "い"
	ENDIF
ELSEIF コマンド番号 == 87
	表示テキスト '= CALL_DIRTY_K7("Ｖ") + "を腕で犯し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 88
	表示テキスト '= CALL_DIRTY_K7("Ａ") + "を腕で犯し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 89
	表示テキスト '= "お顔を叩"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "いてあげ"
	ELSE
		表示テキスト '= 表示テキスト + "き"
	ENDIF
ELSEIF コマンド番号 == 90
	表示テキスト '= "喉を犯し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 91
	表示テキスト '= "ピアシングし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 92
	表示テキスト '= "タトゥーを彫"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "り"
	ENDIF
ELSEIF コマンド番号 == 93
	表示テキスト '= "鼻フックを着けさせ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 94
	表示テキスト '= "首絞めし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 97
	表示テキスト '= "お腹を殴"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "り"
	ENDIF
ELSEIF コマンド番号 == 98
	表示テキスト '= "少し離れて調教し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 100
	表示テキスト '= "自慰を見せ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 101
	表示テキスト '= "顔に跨"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "り"
	ENDIF
ELSEIF コマンド番号 == 102
	表示テキスト '= "顔に跨って" + CALL_DIRTY_K7("Ａ") + "を押し付け"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 103
	表示テキスト '= "電気按摩し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 104
	表示テキスト '= "足を舐め"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 105
	表示テキスト '= "二人で顔に跨"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "り"
	ENDIF
ELSEIF コマンド番号 == 106
	表示テキスト '= "さきっぽだけ手で擦"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "り"
	ENDIF
ELSEIF コマンド番号 == 107
	表示テキスト '= "さきっぽだけ口で責め"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 108
	表示テキスト '= "尻尾を自分の" + CALL_DIRTY_K7("Ｖ") + "に挿れて見せ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 109
	表示テキスト '= "尻尾を自分の" + CALL_DIRTY_K7("Ａ") + "に挿れて見せ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 110
	表示テキスト '= "辱められ"
ELSEIF コマンド番号 == 111
	表示テキスト '= "おねだりし"
ELSEIF コマンド番号 == 112
	表示テキスト '= "恥ずかしいことをさせ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 113
	表示テキスト '= "陰毛管理をし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 114
	表示テキスト '= "身体に落書きし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 115
	表示テキスト '= "恥ずかしい姿を撮"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ELSE
		表示テキスト '= 表示テキスト + "り"
	ENDIF
ELSEIF コマンド番号 == 116
	表示テキスト '= "玩具で自慰するところを見てもらい"
ELSEIF コマンド番号 == 130
	表示テキスト '= "おしっこをし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 131
	表示テキスト '= "おしっこを掛け"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 132
	表示テキスト '= "おしっこを飲ませ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 140
	表示テキスト '= "利尿剤を使"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "ってあげ"
	ENDIF
ELSEIF コマンド番号 == 141
	表示テキスト '= "おなかの中までお手入れし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 142
	表示テキスト '= "おなかの中までお手入れし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 150
	表示テキスト '= "恥ずかしいことをし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 151
	表示テキスト '= "恥ずかしいことをし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 200
	表示テキスト '= "触手を呼び"
ELSEIF コマンド番号 == 201
	表示テキスト '= "触手に" + CALL_DIRTY_K7("Ｖ") + "を犯させ"
ELSEIF コマンド番号 == 202
	表示テキスト '= "触手に" + CALL_DIRTY_K7("Ａ") + "を犯させ"
ELSEIF コマンド番号 == 203
	表示テキスト '= "触手に" + CALL_DIRTY_K7("Ｃ") + "を責めさせ"
ELSEIF コマンド番号 == 204
	表示テキスト '= "触手に" + CALL_DIRTY_K7("Ｂ") + "を弄らせ"
ELSEIF コマンド番号 == 205
	表示テキスト '= "触手に" + CALL_DIRTY_K7("Ｐ") + "を咥えさせ"
ELSEIF コマンド番号 == 206
	表示テキスト '= "触手に" + CALL_DIRTY_K7("Ｐ") + "を扱かせ"
ELSEIF コマンド番号 == 207
	表示テキスト '= "触手に" + CALL_DIRTY_K7("Ｂ") + "を吸わせ"
ELSEIF コマンド番号 == 208
	表示テキスト '= "触手で縛り"
ELSEIF コマンド番号 == 210
	表示テキスト '= "触手に口を犯させ"
ELSEIF コマンド番号 == 211
	表示テキスト '= "触手で自慰し"
ELSEIF コマンド番号 == 212
	表示テキスト '= "触手を産ませ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 213
	表示テキスト '= "触手を" + CALL_DIRTY_K7("Ａ") + "で産ませ"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 291
	表示テキスト '= "おまかせし"
ELSEIF コマンド番号 == 292
	表示テキスト '= "休み"
ELSEIF コマンド番号 == 298
	表示テキスト '= "忠誠を誓わせ"
ELSEIF コマンド番号 == 299
	表示テキスト '= "忠誠を誓わせてもらい"
	;閨口上ここまで
ELSEIF コマンド番号 == 300
	;会話は実行のみだが、主語を入れ替えて逆転表現もする
	;話す
	IF IS_INITIATIVE(エル)
		SELECTCASE RAND:9
			CASE 1
				表示テキスト '= "お話し"
			CASE 2
				表示テキスト '= "お話をし"
			CASE 3
				表示テキスト '= "話をし"
			CASE 4
				表示テキスト '= "お喋りし"
			CASE 5
				表示テキスト '= "少しお話し"
			CASE 6
				表示テキスト '= "息抜きにお話をし"
			CASE 7
				表示テキスト '= "手を休めて、お喋りし"
			CASE 8
				表示テキスト '= "息抜きにお喋りし"
			CASEELSE
				表示テキスト '= "面白い話をし"
		ENDSELECT
		;聞く
	ELSE
		SELECTCASE RAND:7
			CASE 1
				表示テキスト '= "話をし"
			CASE 2
				表示テキスト '= "話をし"
			CASE 3
				表示テキスト '= "お話し"
			CASE 4
				表示テキスト '= "お喋りし"
			CASE 5
				表示テキスト '= "話し"
			CASE 6
				表示テキスト '= "お喋りをし"
			CASEELSE
				表示テキスト '= "お喋りし"
		ENDSELECT
	ENDIF
ELSEIF コマンド番号 == 301
	表示テキスト '= "身体訓練をし"
ELSEIF コマンド番号 == 302
	表示テキスト '= "器用を学び"
ELSEIF コマンド番号 == 306
	表示テキスト '= "歌い"
ELSEIF コマンド番号 == 307
	表示テキスト '= "料理がし"
ELSEIF コマンド番号 == 309
	表示テキスト '= "ちょっとえっちなお話がし"
ELSEIF コマンド番号 == 310
	表示テキスト '= "赤いのを飲み"
ELSEIF コマンド番号 == 311
	表示テキスト '= "プレゼントがし"
ELSEIF コマンド番号 == 320
	表示テキスト '= "スキンシップをし"
ELSEIF コマンド番号 == 321
	表示テキスト '= "甘やかし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 322
	表示テキスト '= "髪のお手入れをし"
ELSEIF コマンド番号 == 323
	表示テキスト '= "髪のお手入れをし"
ELSEIF コマンド番号 == 324
	表示テキスト '= "スキンシップをし"
ELSEIF コマンド番号 == 325
	表示テキスト '= "スキンシップをし"
ELSEIF コマンド番号 == 326
	表示テキスト '= "赤ちゃんのいる音を聴き"
ELSEIF コマンド番号 == 330
	表示テキスト '= "ご奉仕し"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 340
	表示テキスト '= "口づけし"
	IF IS_MPLY(エル)
		表示テキスト '= 表示テキスト + "てあげ"
	ENDIF
ELSEIF コマンド番号 == 341
	表示テキスト '= "キスし"
ELSEIF コマンド番号 == 342
	表示テキスト '= "大人のキスがし"
ELSEIF コマンド番号 == 350
	表示テキスト '= "洋服を見に行き"
ELSEIF コマンド番号 == 351
	表示テキスト '= "外食し"
ELSEIF コマンド番号 == 352
	表示テキスト '= "本を見に行き"
ELSEIF コマンド番号 == 354
	表示テキスト '= "水浴びし"
ELSEIF コマンド番号 == 355
	表示テキスト '= "水泳し"
ELSEIF コマンド番号 == 356
	表示テキスト '= "花を見"
ELSEIF コマンド番号 == 357
	表示テキスト '= "狩りをし"
ELSEIF コマンド番号 == 358
	表示テキスト '= "背中を流し"
ELSEIF コマンド番号 == 390
	表示テキスト '= "出掛け"
ELSEIF コマンド番号 == 391
	表示テキスト '= "どこか別のところへ行き"
ELSEIF コマンド番号 == 392
	表示テキスト '= "帰り"
	;日常口上ここまで
ELSEIF コマンド番号 == 393
	表示テキスト '= "好きにし"
ELSEIF コマンド番号 == 399
	表示テキスト '= "告白され"
ELSEIF コマンド番号 == 500
	表示テキスト '= "艦の操作を教え"
ELSEIF コマンド番号 == 501
	表示テキスト '= "器用を教え"
ELSEIF コマンド番号 == 502
	表示テキスト '= "兵法を教え"
ELSEIF コマンド番号 == 503
	表示テキスト '= "政治を教え"
ELSEIF コマンド番号 == 504
	表示テキスト '= "歌の練習をし"
ELSEIF コマンド番号 == 505
	表示テキスト '= "料理を教え"
ELSEIF コマンド番号 == 550
	表示テキスト '= "ちょっとえっちなことを教え"
ENDIF
RETURNF 表示テキスト

;───────────────────────────────────────
;●対象コマンド
;　%KOJO_COM_NAME_TARGET_K7(SELECTCOM, エル_対象)%たい
;───────────────────────────────────────
@KOJO_COM_NAME_TARGET_K7(コマンド番号, エル_対象)
#FUNCTIONS
#DIM コマンド番号
#DIM エル_対象
#DIM エル
#DIMS 表示テキスト

;エル_対象は未指定だと主人公
IF !エル_対象
	エル_対象 = エル_対象
ENDIF

エル = NAME_TO_CHARA("エル")
表示テキスト '= "ちょっと休み"

IF コマンド番号 == 0
	表示テキスト '= "触ってもらい"
ELSEIF コマンド番号 == 300
	;会話は実行のみだが、主語を入れ替えて逆転表現もする
	IF IS_INITIATIVE(エル)
		SELECTCASE RAND:7
			CASE 1
				表示テキスト '= "お話し"
			CASE 2
				表示テキスト '= "話をし"
			CASE 3
				表示テキスト '= "雑談し"
			CASE 4
				表示テキスト '= "いろいろ話しをし"
			CASE 5
				表示テキスト '= "話をし"
			CASE 6
				表示テキスト '= "おしゃべりし"
			CASEELSE
				表示テキスト '= "気になることがあるから話をし"
		ENDSELECT
	ELSE
		SELECTCASE RAND:9
			CASE 1
				表示テキスト '= "知り"
			CASE 2
				表示テキスト '= "話を聞き"
			CASE 3
				表示テキスト '= "少しお喋りをし"
			CASE 4
				表示テキスト '= "いろいろ話をし"
			CASE 5
				表示テキスト '= "雑談し"
			CASE 6
				表示テキスト '= "面白い話をし"
			CASE 7
				表示テキスト '= "気になることを話し"
			CASEELSE
				表示テキスト '= "興味のあることとか、話し"
		ENDSELECT
	ENDIF
ELSEIF コマンド番号 == 301
	表示テキスト '= "体を動かし"
ELSEIF コマンド番号 == 302
	表示テキスト '= "器用を学び"
ELSEIF コマンド番号 == 303
	表示テキスト '= "兵法を学び"
ELSEIF コマンド番号 == 304
	表示テキスト '= "仕事をこなし"
ELSEIF コマンド番号 == 305
	表示テキスト '= "見回りをし"
ELSEIF コマンド番号 == 306
	表示テキスト '= "一緒に歌い"
ELSEIF コマンド番号 == 307
	表示テキスト '= "料理をし"
ELSEIF コマンド番号 == 309
	表示テキスト '= "ちょっとえっちな話をし"
ELSEIF コマンド番号 == 310
	表示テキスト '= "お酒を飲み"
ELSEIF コマンド番号 == 311
	表示テキスト '= "一緒に美味しい飲み物を飲み"
ELSEIF コマンド番号 == 320
	表示テキスト '= "触れ合いをし"
ELSEIF コマンド番号 == 321
	表示テキスト '= "甘やかされ"
ELSEIF コマンド番号 == 322
	表示テキスト '= "髪のお手入れをしてもらい"
ELSEIF コマンド番号 == 323
	表示テキスト '= "髪のお手入れをしてもらい"
ELSEIF コマンド番号 == 324
	表示テキスト '= "好きって言"
ELSEIF コマンド番号 == 325
	表示テキスト '= "見てい"
ELSEIF コマンド番号 == 326
	表示テキスト '= "赤ちゃんのいる音を聴いてもらい"
ELSEIF コマンド番号 == 327
	表示テキスト '= "抱き合い"
ELSEIF コマンド番号 == 330
	表示テキスト '= "奉仕し"
ELSEIF コマンド番号 == 340
	表示テキスト '= "キスしてもらい"
ELSEIF コマンド番号 == 341
	表示テキスト '= "キスしてもらい"
ELSEIF コマンド番号 == 342
	表示テキスト '= "大人のキスをしてもらい"
ELSEIF コマンド番号 == 350
	表示テキスト '= "買い物をしに行き"
ELSEIF コマンド番号 == 351
	表示テキスト '= "外食し"
ELSEIF コマンド番号 == 352
	表示テキスト '= "面白い本を見に行き"
ELSEIF コマンド番号 == 354
	表示テキスト '= "水浴びし"
ELSEIF コマンド番号 == 355
	表示テキスト '= "泳ぎ"
ELSEIF コマンド番号 == 356
	表示テキスト '= "花冠を作るところが見"
ELSEIF コマンド番号 == 357
	表示テキスト '= "狩りをし"
ELSEIF コマンド番号 == 358
	表示テキスト '= "背中を流してもらい"
ELSEIF コマンド番号 == 390
	表示テキスト '= "二人で出掛け"
ELSEIF コマンド番号 == 391
	表示テキスト '= "どこか別のところへ行き"
ELSEIF コマンド番号 == 392
	表示テキスト '= "帰り"
	;日常口上ここまで
ELSEIF コマンド番号 == 500
	表示テキスト '= "艦の操作を教えてもらい"
ELSEIF コマンド番号 == 501
	表示テキスト '= "器用を教えてもらい"
ELSEIF コマンド番号 == 502
	表示テキスト '= "兵法を教えてもらい"
ELSEIF コマンド番号 == 503
	表示テキスト '= "政治を教えてもらい"
ELSEIF コマンド番号 == 504
	表示テキスト '= "歌を教えてもらい"
ELSEIF コマンド番号 == 505
	表示テキスト '= "料理を教えてもらい"
ELSEIF コマンド番号 == 550
	表示テキスト '= "えっちなことを教えてもらい"
ENDIF
RETURNF 表示テキスト


code:
;-------------------------------------------------
; @FL_INIT_LOADER から呼ばれる口上初期読み込み
;-------------------------------------------------
@KOJO_DEFINE_K7
#DIMS CONST XML_PATH_COM = "ERB/口上/7_エル/KOJO_K7_COM.xml"
#DIMS CONST XML_PATH_EVENT = "ERB/口上/7_エル/KOJO_K7_EVENT.xml"
#DIMS CONST XML_PATH_COMBAT = "ERB/口上/7_エル/KOJO_K7_COMBAT.xml"
CALL KOJO_XML_REGISTER(XML_PATH_COM, NO:(NAME_TO_CHARA("エル")), XMLID_KOJO_CLASS_COM)
CALL KOJO_XML_REGISTER(XML_PATH_EVENT, NO:(NAME_TO_CHARA("エル")), XMLID_KOJO_CLASS_EVENT)
CALL KOJO_XML_REGISTER(XML_PATH_COMBAT, NO:(NAME_TO_CHARA("エル")), XMLID_KOJO_CLASS_COMBAT)
RETURN 1

;口上出力前の初期処理。共通処理以外で口上出力前に予め取得しておきたい情報があれば別途ここに記述
@KOJO_XML_INIT_K7(KOJO_CHARA_ID)
#DIM  KOJO_CHARA_ID
#DIM  CONST OLD_XML_FORMAT = 0  ;基本は0指定。v0.211以前のXML口上フォーマットの場合 1
;出力前の共通初期処理
CALL KOJO_XML_INIT_COMMON_BEFORE_PRINT(KOJO_CHARA_ID)

RETURN OLD_XML_FORMAT

;-------------------------------------------------
; SELECTCOMがどのグループに属するのかを文字列で返す
; RESULTSで返却するグループ名のリストは口上シートA列COM|GROUPに指定した名称と一致している必要がある
; KOJO_CHARA_ID 口上参照キャラの登録番号
; PLACE 口上出力箇所 コマンド実行前と後で参照グループを切り替えたいならばこの引数を見る
; REUSLT = 0 合致グループなし
; REUSLT = 1 合致グループあり
; REUSLT = 2 合致グループあり、排他(該当グループ以外に適合する条件の口上があっても該当するグループのみ出力)
; RESULTS: グループ名のリスト
;-------------------------------------------------
@KOJO_XML_COMGROUP_K7(KOJO_CHARA_ID, PLACE)
#DIM  KOJO_CHARA_ID
#DIMS PLACE
;口上固有の条件グループはここに定義

;共通のコマンドグループ
CALL KOJO_GET_COMGROUP(KOJO_CHARA_ID, PLACE)

RETURN RESULT

repo_name: pervysquirrelz/erafl

license: unknown


code:
@K7_固有顔グラ管理(CHARA_ID, CALL_FROM, DIC_OPTIONS)
#DIM CHARA_ID
#DIMS CALL_FROM
#DIMS DIC_OPTIONS
#DIMS DYNAMIC SPRITE_NAME
#DIMS DYNAMIC OVL, 10
#DIM  DYNAMIC OVL_CNT
#DIM  DYNAMIC PRESET_IDX
#DIMS DYNAMIC SET_PARTS, FACE_LAYERNUM
#DIM GID
#DIMS CONST SID = "UC7"
#DIMS DYNAMIC EMOTIONS

IF CALL_FROM == "PORTRAIT_EDIT"
	PRESET_IDX = CLOTH_DRAWER_SELECT_PRESET
ELSE
	PRESET_IDX = CFLAG:CHARA_ID:衣装プリセット
ENDIF
;対象のポートレイトプリセットが無効の場合は通常プリセットを使用
IF FACE_PARTS_PRESET_IS_VALID:CHARA_ID:PRESET_IDX
	FACE_PARTS_PRESET_IDX:CHARA_ID:0 = PRESET_IDX
ELSE
	FACE_PARTS_PRESET_IDX:CHARA_ID:0 = 衣装プリセット_通常
ENDIF
CALL RESET_FACE_SPRITE(CHARA_ID)

;共通処理　基本となる顔グラをセットしておく
CALL SET_FACEIMG(CHARA_ID, IMG_顔, "UC7_顔")
CALL SET_FACEIMG(CHARA_ID, IMG_身体, "UC7_身体")
CALL SET_FACEIMG(CHARA_ID, IMG_目, "UC7_目_通常")
CALL SET_FACEIMG(CHARA_ID, IMG_眉, "UC7_眉_通常")
CALL SET_FACEIMG(CHARA_ID, IMG_口, "UC7_口_通常")

CALL SET_FACE_COMMON_OUTFIT(CHARA_ID, SID, PRESET_IDX, SET_PARTS, CALL_FROM)

SIF CALL_FROM == "ステータス画面" || CALL_FROM == "PORTRAIT_EDIT"
	RETURN

IF CALL_FROM != "DRAW_FACE"
	EMOTIONS = %TOSTR_EMOTION(CHARA_ID)%
ELSE
	EMOTIONS = %DIC_GET(DIC_OPTIONS, "感情")%
ENDIF

SELECTCASE EMOTIONS
	CASE "幸"
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/細目/閉じ(緩)/閉じ(張)/閉じ(張)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("通常/リラックス/弛緩")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("通常/笑い/笑い")%")
	CASE "悦","良"
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/通常/細目/閉じ(緩)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("通常/リラックス/弛緩")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("通常/笑い/笑い")%")
	CASE "平"
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/通常/通常/細目")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("通常/通常/リラックス")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("通常/通常/笑い")%")
	CASE "恨","怒","憤"
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/細目/通常/閉じ(緩)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("怒り")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("怒り/怒り/むす/叫び")%")
	CASE "鬱","悲","憂"
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/細目/閉じ(緩)/閉じ(緩)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("困り/困り/怒り")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("むす/むす/叫び/あっ")%")
	CASE "狂","恐","怯"
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/閉じ(張_涙)/閉じ(緩)/閉じ(張_涙)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("困り/困り/しわよせ")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("むす/むす/叫び/あっ")%")
		SIF GET_FACEIMG(CHARA_ID, IMG_目) != "UC7_目_閉じ(張_涙)"
			CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_涙")
	CASEELSE
ENDSELECT

IF  CALL_FROM == "DRAW_FACE"
	CALL DRAW_FACE_SET_FACEIMG(CHARA_ID, SID, DIC_OPTIONS)
	RETURN
ENDIF

IF TOSTR_EMOTION(CHARA_ID) == "幸" && IS_LOVER(CHARA_ID)
	IF GET_PALAMLV(PALAM:(CHARA_ID):欲情) > 3
		SIF RAND:3
			CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("細目(発情)/絶頂/発情")%")
		CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_赤面")
		IF FLAG:ウフフフラグ
			SIF RAND:3
				CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_吐息")
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;コマンド実行後の各パラメータを見て表情を決める
;-------------------------------------------------
IF CALL_FROM == "コマンド実行後"
	IF IS_SERVEAT(CHARA_ID, "口")
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("細目/閉じ(緩)/閉じ(張)/閉じ(張)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("通常/むす/舌出し小/あっ/舌出し大/舌出し(唾液)/舌出し(唾液)")%")
		IF IS_SERVEAT(CHARA_ID, "口", "キス")
			CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("通常/むす/むす")%")
			CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_赤面")
		ENDIF
		IF  SUM_NOWEX(CHARA_ID) > 0
			CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("細目(発情)/閉じ(張)/閉じ(張)")%")
			CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("むす/舌出し小/舌出し(唾液)/舌出し(唾液)/あっ")%")
			CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("困り/困り/しわよせ")%")
			SIF GET_FACEIMG(CHARA_ID, IMG_目) != "UC7_目_閉じ(張_涙)"
				CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_涙")
			CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_赤面")
			CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_吐息")
			SIF !RAND:3
				CALL SET_FACEOVL(CHARA_ID, OVL_漫符2, "UC7_OVL_漫符_ハート")
			SIF !RAND:3
				CALL SET_FACEOVL(CHARA_ID, OVL_漫符1, "UC7_OVL_漫符_絶頂")
		ENDIF
		GOTO SETSPRITE_COM_AFTER_END
	ENDIF
	IF GROUPMATCH(SELECTCOM, T_N("待機"),T_N("休憩をとる")) && (IS_MTAR(CHARA_ID) || IS_MPLY(CHARA_ID))
		IF GROUPMATCH(TOSTR_EMOTION(CHARA_ID), "幸","悦","良")
			CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/閉じ(緩)/閉じ(緩)")%")
			CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("通常/リラックス/弛緩")%")
			CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("通常")%")
		ENDIF
	ENDIF
	IF GROUPMATCH(SELECTCOM, T_N("頭を撫でる"),T_N("髪を梳く"),T_N("櫛で梳かす")) && (IS_MTAR(CHARA_ID) || IS_MPLY(CHARA_ID))
		IF GROUPMATCH(TOSTR_EMOTION(CHARA_ID), "幸","悦","良")
			CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("閉じ(緩)/閉じ(緩)")%")
			CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("通常/リラックス/弛緩")%")
			CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("通常/笑い")%")
		ENDIF
	ENDIF
	IF SUM_NOWEX(CHARA_ID) > 1
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("絶頂/細目(発情)/細目(発情)/閉じ(張_涙)/閉じ(緩)/閉じ(緩)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("困り/困り/しわよせ")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("むす/舌出し大/舌出し(唾液)/舌出し(唾液)/叫び/あっ")%")
		CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_吐息")
		CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_赤面")
		SIF GET_FACEIMG(CHARA_ID, IMG_目) != "UC7_目_閉じ(張_涙)"
			CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_涙")
	ELSEIF SUM_NOWEX(CHARA_ID) > 0
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("通常/閉じ(張_涙)/細目/閉じ(張_涙)/閉じ(緩)")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("困り/困り/しわよせ/弛緩")%")
		CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_%S_R("むす/むす/叫び/あっ")%")
		CALL SET_FACEOVL(CHARA_ID, OVL_表情, @"UC7_OVL_表情_%S_R("吐息//")%")
		CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_赤面")
	ENDIF
	;漫符など
	IF SUM_NOWEX(CHARA_ID) > 1
		CALL SET_FACEOVL(CHARA_ID, OVL_漫符1, "UC7_OVL_漫符_絶頂")
		IF GROUPMATCH(TOSTR_EMOTION(CHARA_ID), "幸","悦")
			CALL SET_FACEOVL(CHARA_ID, OVL_漫符2, "UC7_OVL_漫符_ハート")
		ENDIF
	ENDIF
ENDIF
$SETSPRITE_COM_AFTER_END

;咥え物系処理
IF !RAND:4 && C_COND("行動:休憩中,設備用途:お茶", "AND", CHARA_ID)
	CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_通常")
	CALL SET_FACEIMG(CHARA_ID, IMG_咥物, "CC1_咥物_菓子_0")
ENDIF

;目隠し
IF IS_EQUIP_TARGET(CHARA_ID, T_N("目隠し"))
	CALL SET_FACEIMG(CHARA_ID, IMG_マスク1, "CC1_マスク1_目隠し_2")
ENDIF

;口枷
IF IS_EQUIP_TARGET(CHARA_ID, T_N("口枷"))
	CALL SET_FACEIMG(CHARA_ID, IMG_口, @"UC7_口_通常")
	CALL SET_FACEIMG(CHARA_ID, IMG_咥物, "CC1_咥物_口枷_0")
ENDIF

;失神、気絶
IF TCVAR:CHARA_ID:行動不能フラグ || TCVAR:CHARA_ID:失神フラグ || TCVAR:CHARA_ID:離脱フラグ == 離脱フラグ_睡眠
	CALL SET_FACEIMG(CHARA_ID, IMG_眉, @"UC7_眉_%S_R("困り/困り/しわよせ/弛緩")%")
	CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_%S_R("閉じ(緩)")%")
ENDIF

IF GET_PALAMLV(PALAM:(CHARA_ID):欲情) > 6 || TCVAR:CHARA_ID:媚薬
	;吐息重ねがけ
	SIF !RAND:2
		CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_吐息", 1)
ENDIF
IF GET_PALAMLV(PALAM:(CHARA_ID):欲情) > 5 || TCVAR:CHARA_ID:媚薬 || IS_DRUNK(CHARA_ID)
	;赤面重ねがけ
	CALL SET_FACEOVL(CHARA_ID, OVL_表情, "UC7_OVL_表情_赤面", 1)
ENDIF

;汁
LOCAL = (CUM_GET_AMOUNT:CHARA_ID:射精部位_顔 + CUM_GET_AMOUNT:CHARA_ID:射精部位_髪)
SELECTCASE LOCAL
	CASE 1 TO 20
		CALL SET_FACEOVL(CHARA_ID, OVL_汁, "UC7_OVL_汁_ぶっかけ1")
	CASE 21 TO 35
		CALL SET_FACEOVL(CHARA_ID, OVL_汁, "UC7_OVL_汁_ぶっかけ1")
		CALL SET_FACEOVL(CHARA_ID, OVL_汁, "UC7_OVL_汁_ぶっかけ2")
	CASE IS >= 35
		CALL SET_FACEOVL(CHARA_ID, OVL_汁, "UC7_OVL_汁_ぶっかけ1")
		CALL SET_FACEOVL(CHARA_ID, OVL_汁, "UC7_OVL_汁_ぶっかけ2")
		CALL SET_FACEOVL(CHARA_ID, OVL_汁, "UC7_OVL_汁_ぶっかけ3")
	CASEELSE
ENDSELECT

;効果
{
	IF (FLAG:調教モード == 調教_居住区 && IS_SERVEAT(CHARA_ID, "口", "フェラ"))
		|| TCVAR:CHARA_ID:奉仕者フラグ ==  奉仕_手コキフェラ
}
	CALL HO_CHECK_USE_MODULE_ELEMENT(MASTER, "机")
	IF RESULT
		CALL SET_FACEOVL(CHARA_ID, OVL_効果, "UC7_OVL_効果_物陰")
	ENDIF
ENDIF

;矛盾するパーツの組み合わせがセットされている場合、ここで解消する
IF EXIST_FACEIMG(CHARA_ID, "UC7_目_閉じ(張_涙)") || EXIST_FACEIMG(CHARA_ID, "UC7_目_閉じ(張)")
	IF EXIST_FACEOVL(CHARA_ID, "涙")
		CALL DEL_FACEOVL(CHARA_ID, OVL_表情, "涙")
		CALL SET_FACEIMG(CHARA_ID, IMG_目, @"UC7_目_閉じ(張_涙)")
	ENDIF
ENDIF


code:
;───────────────────────────────────────
;●エル口上の使用可否・初期化
;───────────────────────────────────────
@KOJO_ASK_K7_RESET_K7
#DIM SAVE_REDRAW
#DIM SAVE_COLOR
#DIM SAVE_LINE
#DIM エル

CURRENTREDRAW
SAVE_REDRAW = RESULT
REDRAW 0
GETCOLOR
SAVE_COLOR = RESULT
RESETCOLOR

エル = NAME_TO_CHARA("エル")

RESETCOLOR
PRINTL

PRINTFORML エル口上使用の設定
CALL KOJO_ASK_K7("使用しない", "使用する")
PRINTFORMW エル口上の使用を設定した

;使用しない
IF RESULT == 0
	CFLAG:エル:400 = 1
;使用する
ELSEIF RESULT == 1
	CFLAG:エル:400 = 2
	PRINTL
ENDIF

PRINTL

REDRAW SAVE_REDRAW
SETCOLOR SAVE_COLOR
RETURN 0

;───────────────────────────────────────
;●エルの呼称（エルからエル_対象へ）
;　使い方：%CALLNAME_K7(エル_対象)%　%CALLNAME_K7(エル_対象, "ぁ")%
;　覚書　：第二引数に"ぁ"とつけると
;　フリガナ（CSTR:MASTER:名カナやエル_主人公への呼称フリガナや君主等への特殊呼称）がある場合
;　対応する小書き母音をつける（甘え感を出す）
;───────────────────────────────────────
@CALLNAME_K7(エル_対象, 小書き)
#FUNCTIONS
#DIM エル
#DIM エル_対象
#DIMS 小書き
#DIMS 表示テキスト
#DIMS 表示テキストフリガナ

;リセット
エル = NAME_TO_CHARA("エル")
表示テキスト '= ""

;慰安中モブ相手
IF FLAG:調教モード == 調教_慰安 && CFLAG:(エル_対象):慰安モブ
	表示テキスト '= "みんな"
	表示テキストフリガナ '= "ミンナ"

;それ以外
ELSE
	IF CSTR:エル_対象:99 == "あなた"
		IF IS_MALE(エル_対象)
			表示テキスト '= "キミ"
			表示テキストフリガナ '= "キミ"
		ELSE
			表示テキスト '= "キミ"
			表示テキストフリガナ '= "キミ"
		ENDIF
	ELSE
		表示テキスト '= ANAME(エル_対象)
		IF CSTR:エル_対象:6 != ""
			表示テキストフリガナ '= CSTR:エル_対象:6
		ELSE
			表示テキストフリガナ '= ""
		ENDIF
	ENDIF
ENDIF

IF 小書き == "ぁ" && 表示テキストフリガナ != ""
;	表示テキスト '= 表示テキスト + SMALLSCRIPT(表示テキストフリガナ)
	表示テキスト '= 表示テキスト
ENDIF

RETURNF 表示テキスト

;───────────────────────────────────────
;●エル口上の分岐条件まとめ
;　IF文を短縮したり見やすくするための条件まとめ
;　よく使う条件が増えたらその都度追加
;　条件=わかりやすそうな条件名 エル_対象=略すと主人公
;　CHECK_K7("面識", エル_対象)……既知と扱うキャラか、面識はあるかの確認
;　CHECK_K7("陥落", エル_対象)……エル_対象が主人公か＆恋慕系服従系の陥落があるか確認する
;　CHECK_K7("活力")……エルの気力体力があるまたはエルに主導権がある
;───────────────────────────────────────
@CHECK_K7(条件, エル_対象)
#FUNCTION
#DIMS 条件
#DIM エル_対象
#DIM エル

;エル_対象は未指定だと主人公
IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")

;面識
SELECTCASE 条件
	CASE  "面識"
	;エル_対象があなたでエルと面識がある（面識を得るデイリーの発生も含む）
		IF エル_対象 == MASTER && CFLAG:エル:面識
			RETURNF 1
	;それ以外
		ELSE
			RETURNF 0
		ENDIF
;陥落
	CASE "陥落"
	;エル_対象があなたで恋慕系か服従系の陥落
		IF エル_対象 == MASTER && (IS_SLAVE(エル) || IS_LOVER(エル))
			RETURNF 1
		ENDIF
;深陥落
	CASE "深陥落"
	;エル_対象があなたで親愛か所有、隷属の陥落
		IF エル_対象 == MASTER && IS_MASTER_UP(エル)
			RETURNF 1
		ENDIF
;活力（気力体力1/3以上または主導権持ち）
	CASE "活力"
		IF BASE:エル:気力 > (MAXBASE:エル:気力 / 3) && BASE:エル:体力 > (MAXBASE:エル:体力 / 3)
			RETURNF 1
		ENDIF
		IF IS_INITIATIVE(エル)
			RETURNF 1
		ENDIF
;ふたりきり 行為の対象がMASTERかつ調教対象が他に誰もいない
	CASE "ふたりきり"
		IF (IS_MTAR(エル_対象 == MASTER) || IS_MPLY(エル_対象 == MASTER) )&& TFLAG:参加者数 == 2
			RETURNF 1
		ENDIF
ENDSELECT

RETURNF 0

@SET_STS_K7(KEY, PARAM)
#DIMS KEY
#DIMS PARAM
エル_状態 = %DIC_SET(エル_状態, KEY, PARAM)%
@REMOVE_STS_K7(KEY)
#DIMS KEY
エル_状態 = %DIC_REMOVE(エル_状態, KEY)%

;───────────────────────────────────────
;●エルの文末を決める
;　使い方：鍵括弧前は%BREAK_K7("末")%　そうでなければ%BREAK_K7("中")%
;　覚書　：文末というか読点・感嘆符・ハート
;　機嫌とか快楽度合いとかコマンド種を見て「。」つけるか「！」や「❤」つけるか決める
;　鍵括弧の直前以外は！や❤の後に全角スペースを入れるため、中か末かの指定がいる
;　促音「っ」をつけたりつけなかったりするので、元テキストの末尾につけてしまうと「っっ」になる
;───────────────────────────────────────
@BREAK_K7(位置, エル_対象)
#FUNCTIONS
#DIMS 位置
#DIMS 区切り
#DIMS 表示テキスト
#DIM エル
#DIM エル_対象
#DIMS エル機嫌
#DIM エル_最大快楽部位の値

;エル_対象は未指定だと主人公
IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)
エル_最大快楽部位の値 = MAX(PALAM:エル:快Ｃ, PALAM:エル:快Ｖ, PALAM:エル:快Ａ, PALAM:エル:快Ｂ, PALAM:エル:快Ｍ)

表示テキスト '= ""

;▼日常コマンド失敗時
IF TFLAG:コマンド成否 == -1 || TFLAG:17 == -1
	表示テキスト '= SPLIT_R("……：：：：：")
	IF 位置 == "中"
		表示テキスト '= 表示テキスト + "。"
	ENDIF

;▼不機嫌
ELSEIF GROUPMATCH(エル機嫌,"恨","怒","憤","鬱","悲","憂","狂","恐","怯")
	表示テキスト '= SPLIT_R("……：：：：：")
	表示テキスト '= 表示テキスト + SPLIT_R("っ：！：：：：：")
	IF 位置 == "中"
		表示テキスト '= 表示テキスト + "。"
	ENDIF

;▼気力切れ/酔い限界
ELSEIF TCVAR:エル:52 || TCVAR:エル:53 == 1
	;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
	IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
		表示テキスト '= SPLIT_R("……：：：：：")
		表示テキスト '= 表示テキスト + SPLIT_R("っ：：：：：")
		IF 位置 == "中"
			表示テキスト '= 表示テキスト + "。"
		ENDIF
	;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
	ELSE
		表示テキスト '= SPLIT_R("……：：：：：")
		表示テキスト '= 表示テキスト + SPLIT_R("っ：：：：：")
		IF 位置 == "中"
			表示テキスト '= 表示テキスト + SPLIT_R("。：❤　")
		ELSE
			表示テキスト '= 表示テキスト + SPLIT_R("：❤")
		ENDIF
	ENDIF

;▼体力切れ
ELSEIF TCVAR:エル:51 || (BASE:エル:体力 <= (MAXBASE:エル:体力 / 3))
	IF エル_最大快楽部位の値 >= 9000
		表示テキスト '= SPLIT_R("……：")
		表示テキスト '= 表示テキスト + SPLIT_R("っ：")
		IF 位置 == "中"
			表示テキスト '= 表示テキスト + "。"
		ENDIF
	ELSE
		表示テキスト '= SPLIT_R("……：")
		表示テキスト '= 表示テキスト + SPLIT_R("っ：：：：：")
		IF 位置 == "中"
			表示テキスト '= 表示テキスト + "。"
		ENDIF
	ENDIF

;▼閨でエルが受け
;　受けかどうかはNIGHTのカテゴリ分岐で保存される
ELSEIF FLAG:ウフフフラグ && エル_エルが受け
	;▽～1500　あっ……ん……
	IF エル_最大快楽部位の値 < 1500
		;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
		IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
			表示テキスト '= SPLIT_R("……：")
			表示テキスト '= 表示テキスト + SPLIT_R("っ：：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + "。"
			ENDIF
		;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
		ELSE
			表示テキスト '= SPLIT_R("……：")
			表示テキスト '= 表示テキスト + SPLIT_R("っ：：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：❤　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：❤")
			ENDIF
		ENDIF

	;▽1500～5000　ああっ、う、あ❤　……っ、ん
	ELSEIF エル_最大快楽部位の値 >= 1500 && エル_最大快楽部位の値 < 5000
		;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
		IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
			表示テキスト '= SPLIT_R("……：：：")
			表示テキスト '= 表示テキスト + SPLIT_R("っ：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + "。"
			ENDIF
		;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
		ELSE
			表示テキスト '= SPLIT_R("……：：：")
			表示テキスト '= 表示テキスト + SPLIT_R("っ：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：❤　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：❤")
			ENDIF
		ENDIF

	;▽5000～9000　あっ。だめっ！　も、もうっ。はあぁぁん❤
	ELSEIF エル_最大快楽部位の値 >= 5000 && エル_最大快楽部位の値 < 9000
		;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
		IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
			表示テキスト '= SPLIT_R("っ：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：。：。：！　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：：：！")
			ENDIF
		;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
		ELSE
			表示テキスト '= SPLIT_R("っ：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：。：。：！　：❤　：❤　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：：：！：❤：❤")
			ENDIF
		ENDIF

	;▽9000～　いくうううう❤　いっちゃうう～っ！
	ELSE
		;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
		IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
			表示テキスト '= SPLIT_R("――：～：ー：……：：：：：：：：：：：：：：：")
			表示テキスト '= 表示テキスト + SPLIT_R("っ：っ：っ：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：！　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：！")
			ENDIF
		;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
		ELSE
			表示テキスト '= SPLIT_R("――：～：ー：……：：：：：：：：：：：：：：：")
			表示テキスト '= 表示テキスト + SPLIT_R("っ：っ：っ：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：！　：！　：❤　：❤　：❤　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：！：！：❤：❤：❤")
			ENDIF
		ENDIF
	ENDIF

;▼閨でエルが攻め
ELSEIF FLAG:ウフフフラグ
	;▽～5000
	IF エル_最大快楽部位の値 < 5000
		;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
		IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
			表示テキスト '= SPLIT_R("……：……っ：：：：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + "。"
			ENDIF
		;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
		ELSE
			表示テキスト '= SPLIT_R("……：：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：❤　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：❤")
			ENDIF
		ENDIF

	;▽5000～9000
	ELSEIF エル_最大快楽部位の値 >= 5000 && エル_最大快楽部位の値 < 9000
		;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
		IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
			表示テキスト '= SPLIT_R("……っ：っ：：：：：：：：")
			IF 位置 == "中"
				表示テキスト '= "。"
			ENDIF
		;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
		ELSE
			表示テキスト '= SPLIT_R("っ：：：：：")
			IF 位置 == "中"
				表示テキスト '= SPLIT_R("。：❤　")
			ELSE
				表示テキスト '= SPLIT_R("：❤：❤❤")
			ENDIF
		ENDIF

	;▽9000～
	ELSE
		;エル_対象が主人公ではないか、陥落ではない、あるいは捕虜スカ触手系
		IF !CHECK_K7("陥落", エル_対象) || ((SELECTCOM >= 80 && SELECTCOM <= 99) || (SELECTCOM >= 130 && SELECTCOM <= 159) || (SELECTCOM >= 200 && SELECTCOM <= 219))
			表示テキスト '= SPLIT_R("っ：：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：。：。：。：。：！")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：：：：：！")
			ENDIF
		;エル_対象が主人公かつ陥落、捕虜スカ触手系ではない
		ELSE
			表示テキスト '= SPLIT_R("っ：：：：：")
			IF 位置 == "中"
				表示テキスト '= 表示テキスト + SPLIT_R("。：。：。：！：❤　：❤　：❤　")
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_R("：：：！：❤：❤：❤：❤❤：❤❤❤")
			ENDIF
		ENDIF
	ENDIF

;▼日常
ELSE
	;エル_対象が主人公ではないか、陥落ではない
	IF !CHECK_K7("陥落", エル_対象)
		表示テキスト '= SPLIT_R("……：：：：：")
		IF 位置 == "中"
			表示テキスト '= 表示テキスト + "。"
		ENDIF
	;エル_対象が主人公かつ陥落
	ELSE
		表示テキスト '= SPLIT_R("……：：：：：")
		IF 位置 == "中"
			表示テキスト '= 表示テキスト + SPLIT_R("。：❤　")
		ELSE
			表示テキスト '= 表示テキスト + SPLIT_R("：❤")
		ENDIF
	ENDIF
ENDIF

RETURNF 表示テキスト

;───────────────────────────────────────
;●エルの淫語
;　使い方：%CALL_DIRTY_K7("Ｐ", "ぁ")%
;　覚書　：第二引数に"ぁ"をつけるとプレイヤーの入力した淫語に
;　小書き母音をつけて甘えボイス感を出す
;───────────────────────────────────────
@CALL_DIRTY_K7(部位, 小書き)
#FUNCTIONS
#DIMS 部位
#DIMS 小書き
#DIMS 表示テキスト

#DIM エル_淫語頻度
#DIMS エル_淫語Ｐ
#DIMS エル_淫語Ｖ
#DIMS エル_淫語Ｃ
#DIMS エル_淫語Ａ
#DIMS エル_淫語Ｂ

表示テキスト '= ""

;初期化
エル_淫語頻度 = 1
エル_淫語Ｐ '= "ペニス"
エル_淫語Ｖ '= "おまんこ"
エル_淫語Ｃ '= "おまんこ"
エル_淫語Ａ '= "アナル"
エル_淫語Ｂ '= "おっぱい"

IF 部位 == "Ｐ"
	IF エル_淫語頻度 != 2
		SELECTCASE RAND:3
			CASE 1
				表示テキスト '= エル_淫語Ｐ
			CASE 2
				表示テキスト '= エル_淫語Ｐ
			CASEELSE
				表示テキスト '= "おちんちん"
		ENDSELECT
	ELSE
		表示テキスト '= エル_淫語Ｐ
	ENDIF
ELSEIF 部位 == "Ｖ"
	IF エル_淫語頻度 != 2
		SELECTCASE RAND:3
			CASE 2
				表示テキスト '= エル_淫語Ｖ
			CASE 1
				表示テキスト '= "お腹"
			CASEELSE
				表示テキスト '= "なか"
		ENDSELECT
	ELSE
		表示テキスト '= エル_淫語Ｖ
	ENDIF
ELSEIF 部位 == "Ｃ"
	IF エル_淫語頻度 != 2
		SELECTCASE RAND:3
			CASE 2
				表示テキスト '= エル_淫語Ｃ
			CASE 1
				表示テキスト '= "クリ"
			CASEELSE
				表示テキスト '= "あそこ"
		ENDSELECT
	ELSE
		表示テキスト '= エル_淫語Ｃ
	ENDIF
ELSEIF 部位 == "Ａ"
	IF エル_淫語頻度 != 2
		SELECTCASE RAND:3
			CASE 1
				表示テキスト '= エル_淫語Ａ
			CASEELSE
				表示テキスト '= "お尻"
		ENDSELECT
	ELSE
		表示テキスト '= エル_淫語Ａ
	ENDIF
ELSEIF 部位 == "Ｂ"
	IF エル_淫語頻度 != 2
		SELECTCASE RAND:3
			CASE 1
				表示テキスト '= エル_淫語Ｂ
			CASEELSE
				表示テキスト '= "胸"
		ENDSELECT
	ELSE
		表示テキスト '= エル_淫語Ｂ
	ENDIF
ENDIF
RETURNF 表示テキスト

;───────────────────────────────────────
;●口上用の選択肢表示用関数
;　選択肢0～5に選択肢を入力。0番～5番まで1～6個の選択肢を作れる
;　結果は呼び出し後に分岐させて処理するためRESULTに返す
;　選択肢のない数字を入力したら選択肢に戻される
;───────────────────────────────────────
@KOJO_ASK_K7(選択肢:0, 選択肢:1, 選択肢:2, 選択肢:3, 選択肢:4, 選択肢:5)
#DIMS 選択肢, 6
#DIM SAVE_REDRAW
#DIM SAVE_COLOR
#DIM SAVE_LINE

;REDRAW状態を保存
CURRENTREDRAW
SAVE_REDRAW = RESULT
REDRAW 0

;現在の文字色を保存
GETCOLOR
SAVE_COLOR = RESULT
RESETCOLOR

;質問文の下に空行
PRINTL

;現在行を保存（質問文の下の空行は残す）
SAVE_LINE = LINECOUNT

;選択肢表示（文字列が空でなければ）
FOR SAVE_REDRAW, 0, 6
	IF 選択肢:(SAVE_REDRAW) != ""
		PRINTBUTTON @"{SAVE_REDRAW, 2, RIGHT}[%選択肢:(SAVE_REDRAW)%]", SAVE_REDRAW
		PRINTL
	ENDIF
NEXT

$INPUT_LOOP
;初期値0
INPUT 0

;指定外
IF RESULT < 0 || RESULT > 5
	;入力値の表示をクリア
	CLEARLINE 1
	GOTO INPUT_LOOP
;指定内
ELSE
	;選択肢と入力値の表示をクリアして選択結果のみ表示する
	;入力クリック直後の入力値表示代わりなのでWAITしない
	CLEARLINE LINECOUNT - SAVE_LINE
	SETCOLOR カラー_選択不可
	PRINTFORML ➡%選択肢:(RESULT)%
ENDIF

PRINTL

;REDRAW状態と文字色を戻す
REDRAW SAVE_REDRAW
SETCOLOR SAVE_COLOR

RETURN RESULT

;●PRINTDATA文の中で口上カラーを無効にして出力
@PRINT_DESC_K7(ARG1)
#FUNCTIONS
#DIMS ARG1
#DIMS 表示テキスト
表示テキスト '= ""

PRINTFORMD %ARG1%
RETURNF 表示テキスト

;●対象が何回射精したか数えて数値で返す
@SUM_CUM_TO_COUNT_K7(ARG1)
#FUNCTION
#DIM ARG1
#DIM SUM

SUM = 0

FOR COUNT, 0, CUM_SLOT_NUM
	SUM = SUM + CUM_TO_COUNT:(ARG1):COUNT
NEXT
RETURNF SUM

;●対象の衣装名を文字列で取得する
@GET_CLOTH_NAME_K7(対象)
#DIM 対象

FOR LOCAL, 0, CLOTH_PART_NUM
	CALL GET_CLOTH_NAME(LOCAL, CLOTH:(対象):LOCAL)
	エル_衣装:LOCAL '= RESULTS
NEXT
RETURN 0

;GET_CLOTH_NAME_K7とセットで使用する
@STR_CLOTH_K7(対象, 衣装部位, 状況描写オフ = 0)
#FUNCTIONS
#DIM 衣装部位
#DIM 状況描写オフ
#DIM 対象

SELECTCASE 衣装部位
	CASE 衣装部位_下着下
		IF 状況描写オフ == 0
			IF PALAM:対象:潤滑 >= PALAMLV:5
				LOCALS:0 = %SPLIT_RAND("ぐっしょりと濡れた/愛液をたっぷりと含んだ",1)%
			ELSEIF PALAM:対象:潤滑 >= PALAMLV:3
				LOCALS:0 = %SPLIT_RAND("愛液で濡れた/ねっとりと湿った",1)%
			ELSEIF PALAM:対象:潤滑 >= PALAMLV:2
				LOCALS:0 = %SPLIT_RAND("薄っすらと湿った/かすかに湿り気を帯びた",1)%
			ENDIF
		ENDIF
		LOCALS:0 += エル_衣装:衣装部位_下着下
	CASEELSE
ENDSELECT
RETURNF LOCALS:0

;───────────────────────────────────────
;オノマトペ生成用のプリセット
; 第1引数は呼出す際のシチュエーション
; 第2引数 平仮名 = 0, カナ = 1
; 第3引数 ハート無し = 1　ハートマークをつけたくない時に
; @ONOMATOPE_K7()のメモ
; 第2 ~ 6引数は0~10で指定
; 濁音、促音、付帯音、端音、テンポ
;───────────────────────────────────────
@ONOMATOPE_PRESET_K7(種類,カナ,ハート無し)
#FUNCTIONS
#DIMS 種類
#DIM カナ
#DIM ハート無し

#DIMS 表示テキスト
表示テキスト '= ""

SELECTCASE 種類
	CASE "くちゅ音短"
		表示テキスト '= ONOMATOPE_K7(@"%SPLIT_RAND("くちゅ/ちゅっ/ぬちゅ",1)%/%SPLIT_RAND("くちゅ/ぬちゃ/ちゅぷ",1)%/%SPLIT_RAND("ちゅっ/じゅっ/ぬちゅ",1)%",5,8,1,1,0,カナ,ハート無し)
	CASE "くちゅ音長"
		表示テキスト '= ONOMATOPE_K7(@"%SPLIT_RAND("くちゅ/ちゅっ/ぬちゅ",1)%/%SPLIT_RAND("くちゅ/ぬちゃ/ちゅぷ",1)%/%SPLIT_RAND("ちゅっ/じゅっ/ぬちゅ",1)%",5,8,1,1,0,カナ,ハート無し)
		表示テキスト '= ARRANGE_ARG_K7(表示テキスト,"文中") ;音節の末尾を整形
		表示テキスト += ONOMATOPE_K7(@"%SPLIT_RAND("くちゅ/ちゅっ/ぬちゅ",1)%/%SPLIT_RAND("くちゅ/ぬちゃ/ちゅぷ",1)%/%SPLIT_RAND("ちゅく/くちゅ/ぬちゅ",1)%",5,3,1,5,0,カナ,ハート無し)
	CASE "足コキ_潤"
		表示テキスト '= ONOMATOPE_K7(@"%SPLIT_RAND("ぐじゅ/じゅっ/ぬちゅ",1)%/%SPLIT_RAND("しゅる/じゅる！/ぬちゅ",1)%/%SPLIT_RAND("ちゅる/じゅっ/ぬちゅ",1)%",5,8,5,1,1,カナ,ハート無し)
		表示テキスト '= ARRANGE_ARG_K7(表示テキスト,"文中") ;音節の末尾を整形
		表示テキスト += ONOMATOPE_K7(@"%SPLIT_RAND("ぐじゅ/じゅっ❤/ぬちゅ",1)%/%SPLIT_RAND("ぐじゅ！/じゅる❤/ぬちゅ",1)%/%SPLIT_RAND("ちゅる❤/じゅっ/ぬちゅ❤",1)%",5,3,5,5,0,カナ,ハート無し)
	CASE "髪コキ_潤"
		表示テキスト '= ONOMATOPE_K7(@"%SPLIT_RAND("しゅる/しゅっ/しゅる",1)%/%SPLIT_RAND("しゅる！/じゅる❤/ぬちゅ/",1)%/%SPLIT_RAND("しゅっ/じゅっ/しゅる❤/",1)%",2,5,7,1,1,カナ,ハート無し)
		表示テキスト '= ARRANGE_ARG_K7(表示テキスト,"文中") ;音節の末尾を整形
		表示テキスト += ONOMATOPE_K7(@"%SPLIT_RAND("しゅる/じゅっ❤/ぬちゅ",1)%/%SPLIT_RAND("じゅる❤/しゅる/ぬちゅ",1)%/%SPLIT_RAND("しゅる❤/じゅっ/ぬちゅ❤",1)%",2,5,7,1,1,カナ,ハート無し)
	CASEELSE
ENDSELECT

RETURNF 表示テキスト

;───────────────────────────────────────
;機械的に生成した文字列を接続する際、文として自然になるように整形して返す
; 第二引数は"文中"か"文末"を指定(未実装)
;───────────────────────────────────────
@ARRANGE_ARG_K7(文字列,位置)
#FUNCTIONS
#DIMS 文字列
#DIMS 位置
;末尾が以下の文字に該当する場合は処理しない
#DIMS CONST 区切り文字 = "…、。！❤♥♪"

STRLENFORMU %文字列%
LOCAL:0 = RESULT
IF STRFINDU(区切り文字, SUBSTRINGU(文字列, LOCAL:0 - 1, LOCAL:0) ) == -1
	文字列 '= 文字列 + "、"
ENDIF

RETURNF 文字列
;───────────────────────────────────────
;与えられた4文字までの文字列をもとにオノマトペを生成し文字列を返す
; ・文字列は平仮名で指定
; ・文字列は"/"で区切り3候補まで指定可
; ・４文字目は記号指定にのみ使用(！❤♥♪)
; ・第2 ~ 6引数は0~10で指定
; ・濁音頻度	1文字目が清音の場合どの程度濁音に置換するか
; ・促音頻度	"っ"をどの程度付加するか
; ・付帯音頻度	3文字が"る"の時に音を足す。びゅるるっ
; ・端音頻度	3文字目をどの程度の頻度で出力するか
; ・テンポ　通常 = 0,2個以上の3点リーダを付加しない = 1
; ・カナ 平仮名 = 0 カタカナ = 1
; ・ハート無し = 1 でハートマークを追加しない
;───────────────────────────────────────
@ONOMATOPE_K7(文字列, 濁音頻度, 促音頻度, 付帯音頻度, 端音頻度, テンポ, カナ, ハート無し = 0)
#FUNCTIONS
#DIMS 文字列
#DIM テンポ
#DIM カナ
#DIM ハート無し

#DIMS 表示テキスト, 2
#DIM 表示テキスト文字数
#DIMS 基本音, 3
#DIM 候補数
#DIMS 選択基本音
#DIM 濁音頻度
#DIM 促音頻度
#DIM 付帯音頻度
#DIM 端音頻度

#DIM 子音
#DIM 促音フラグ
#DIM 濁音フラグ
#DIM 端音フラグ

#DIMS CHAR, 4
#DIM  CNT_A
#DIM  CNT_B

#DIMS CONST 濁音変換候補 = "くしちぴ"
#DIMS CONST 濁音変換対応文字列 = "ぐじぢび"
#DIMS CONST 拗音表 = "ゃゅょ"
#DIMS CONST 半濁音表, 3 = "ぱ","ぷ","ぽ"
#DIMS CONST 付帯音表, 3 = "る","るっ","るぅ"
#DIMS CONST 記号表 = "！❤♥♪"

候補数 = 0
VARSET 表示テキスト, ""

;生成のベースとする基本音を配列に格納
SPLIT 文字列, "/", 基本音
FOR CNT_A, 0, 3
	IF 基本音:CNT_A == ""
		ARRAYREMOVE 基本音, CNT_A, 1
	ENDIF
NEXT
FOR CNT_A, 0, 3
	SIF 基本音:CNT_A != ""
		候補数 += 1
NEXT

FOR CNT_A, 0, 候補数
	VARSET CHAR:0, ""
	選択基本音 '= 基本音:CNT_A
	促音フラグ = 0
	濁音フラグ = 0
	端音フラグ = 0

	FOR CNT_B, 0, STRLENSU(選択基本音)
		CHAR:(CNT_B) '= SUBSTRINGU(選択基本音, CNT_B, 1)
	NEXT

	;1文字目の処理
	;特定の文字のみ確率で濁音に変換する
	LOCAL = STRFINDU(濁音変換候補, CHAR:0)
	IF RAND:10 <　濁音頻度 && LOCAL != -1
		CHAR:0 '= CHARATU(濁音変換対応文字列,LOCAL)
		SIF STRFINDU(濁音変換対応文字列, CHAR:0) != -1
			濁音フラグ = 1
	ENDIF
	表示テキスト '= 表示テキスト + CHAR:0

	表示テキスト '= 表示テキスト + CHAR:1
	;基本音の2音目が拗音（ゃ、ゅ、ょ）以外の場合;確率で2音目の後に促音（っ）を付加
	IF STRFINDU(拗音表, CHAR:1) != -1 && FINDELEMENT(付帯音表, CHAR:1) != -1
		IF RAND:10 < 促音頻度
			表示テキスト '= 表示テキスト + "っ"
			促音フラグ = 1
		ENDIF
	ELSE
		;例えば「ちゅぱ」と「くちゅ」では3文字目の処理を変えないと不自然になるのでこのフラグで制御する
		端音フラグ = 1
	ENDIF

	;３音目の処理
	;確率で３文字目を消去
	;子音をランダムでずらす。ex.ちゅぷ -> ちゅぱ or ちゅぽ
	{
		SELECTCASE IFRAND(
			"99",1,
			"D99,1", 端音フラグ == 1,
			"D99,1",RAND:10 < (端音頻度 && 濁音フラグ != 1) && 端音フラグ != 1
			)
	}
		CASE 1
			IF FINDELEMENT(半濁音表, CHAR:2) != -1
				子音 = FINDELEMENT(半濁音表, CHAR:2)
				IF 子音 != -1 && RAND:3
					IF 子音　== 1
						IF RAND:3
							子音 += 1
						ELSEIF RAND:2
							子音 -= 1
						ENDIF
					ELSEIF 子音 == 0
						SIF RAND:3
							子音 += 1
					ELSEIF 子音 != 0
						SIF RAND:3
							子音 -= 1
					ENDIF
				ENDIF
				CHAR:2 '= 半濁音表:子音
			ENDIF
			表示テキスト '= 表示テキスト + CHAR:2
		CASEELSE
	ENDSELECT

	;3文字目以降に付帯する音の処理(る、るる)
	IF FINDELEMENT(付帯音表, CHAR:2) != -1 && 促音フラグ == 0  ;ちゅっるるのような音は不自然なので出現しないように
		IF RAND:10 < 付帯音頻度
			表示テキスト '= 表示テキスト + SPLIT_RAND(@"%付帯音表:0%/%付帯音表:1%/%付帯音表:2%",1)
		ENDIF
	ENDIF
	;確率で末尾に促音を負荷
	IF RAND:10 < 促音頻度 && 促音フラグ == 0
		表示テキスト '= 表示テキスト + SPLIT_RAND("っ/っ/っ/っ/っっ",1)
		促音フラグ = 1
	ENDIF

	;4文字目が存在しない場合、句点か三点リーダを付加
	IF CHAR:3 == ""
		;テンポに応じて三点リーダの量を調整する
		IF テンポ == 0;通常
			表示テキスト '= 表示テキスト + SPLIT_RAND("、/、/、/…/…/……/……/……/……………",1)
		ELSE ;早い(二個以上の三点リーダを打たない)
			表示テキスト '= 表示テキスト + SPLIT_RAND("/、/、/…/…/…/……/……",1)
		ENDIF
	ENDIF
	;4文字目の処理
	;特定の記号が指定さている場合は0～3個つける
	IF  CHAR:3 != ""
		IF (CHAR:3 == "❤" || CHAR:3 == "♥") && ハート無し != 1
			表示テキスト '= 表示テキスト + SPLIT_RAND("、/、/❤/❤/❤/…❤/……❤/……❤/❤❤/…❤❤/……❤❤/❤❤❤",1)
		ELSEIF FINDELEMENT(記号表, CHAR:3) != -1
			表示テキスト '= 表示テキスト + SPLIT_RAND(@"、/、/%CHAR:3%/%CHAR:3%/%CHAR:3%%CHAR:3%",1)
		ENDIF
		IF CNT_A:0 < 候補数 - 1
			IF テンポ == 0;通常
				表示テキスト '= 表示テキスト + SPLIT_RAND("/…/……/……/…………",1)
			ELSE
				表示テキスト '= 表示テキスト + SPLIT_RAND("//…/…/…/……/……",1)
			ENDIF

		ENDIF
	ENDIF
	;音節の末尾に応じた処理
	STRLENFORMU %表示テキスト%
	表示テキスト文字数 = RESULT
	IF SUBSTRINGU(表示テキスト, 表示テキスト文字数 - 1, 表示テキスト文字数) == "っ"
		表示テキスト '= 表示テキスト + "、"
	ENDIF
NEXT

;生成文字列の末尾が句点なら除去
STRLENFORMU %表示テキスト%
表示テキスト文字数 = RESULT
IF SUBSTRINGU(表示テキスト,  表示テキスト文字数 - 1, 表示テキスト文字数) == "、"
	表示テキスト '= SUBSTRINGU(表示テキスト,0 , 表示テキスト文字数 - 1)
ENDIF

IF カナ == 1
	表示テキスト = %TOKANA_K7(表示テキスト)%
ENDIF

RETURNF 表示テキスト

;●平仮名カナ変換
@TOKANA_K7(ARGS:0)
#FUNCTIONS
#DIMS CONST 平仮名対応表 	= "ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをん"
#DIMS CONST カナ対応表	= "ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲン"

#DIM CNT_A
#DIM IDX
#DIMS 対象文字
#DIMS 変換後文字列

対象文字 '= ""
変換後文字列 '= ""

FOR CNT_A, 0, STRLENSU(ARGS:0)
	対象文字 '= SUBSTRINGU(ARGS:0, CNT_A, 1)
	IDX = STRFINDU(平仮名対応表, 対象文字)
	IF IDX != -1
		対象文字 '= CHARATU(カナ対応表, IDX)
	ENDIF
	変換後文字列 '= 変換後文字列 + 対象文字
NEXT
変換後文字列 '= 変換後文字列

RETURNF 変換後文字列


code:
;───────────────────────────────────────
;デイリー
;───────────────────────────────────────
;───────────────────────────────────────
;口上用
;───────────────────────────────────────
#DIM CONST エル_口上カラー = 0xb0c4de
#DIM エル_エルが受け = 0
#DIMS エル_衣装, CLOTH_PART_NUM
;口上制御に使用する連想配列
#DIMS エル_状態

;-------------------------------------------------
;イベント用
;-------------------------------------------------
#DIM エル_変更前夜主導度
#DIM エル_変更前倒錯度
;───────────────────────────────────────
;SAVEDATA
;───────────────────────────────────────
;クエスト番号,受領可否(0 = 不可,1 = 可)
#DIM SAVEDATA エル_クエスト管理フラグ, 5
#DIM SAVEDATA K7_DFLAG_世界を学ぶ
#DIM SAVEDATA K7_DFLAG_海岸の休日


code:
<?xml version="1.0" encoding="utf-8"?>
<data>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「何事も日々の積み重ねが大事だよ。研究というものはそうやって営々と積み上げられてきたのだからね」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「よかったら今度%S_R("狩りのやり方/料理",1)%を教えてくれないかな？」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「時には休憩も必要だよ。お茶を淹れてこよう」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「がむしゃらに努力すれば良いというものでもない。さもなければ努力はあっさり裏切るからね」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「こうしてゆっくり人とお喋りするのは久しぶりな気がするよ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「冒険にいくならきちんと準備しないとね」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「どうにもアカデミーの人々は魔導でいかに効率よく湯を沸かすかに取り憑かているみたいだ」
「だから私のような、一見なんの役にも立たない研究が好きな人間にはいささか居心地が悪くてね」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「錬金術とその流れを汲む魔導は人類社会を大いに進歩させた」
「今や巨大な鉄の塊を大地に走らせることさえできるんだ」
「私はいつかあの月、そしてそのさらに向こうにさえ、人の手が届くと信じているよ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「先天的な才覚がないと扱えなかった魔術を科学的な手法で体系化、一般化しようと試みたのが魔導工学だ」
「おかげで杖の先から火の玉を出せなくても皆が魔術の恩恵を受けられるようになった」
「もっとも……一部の人はそれををあまり快く思っていないようだけどね」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「森も山も資源の宝庫だ。歩き回ってみれば色々発見があると思うよ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「道具や武器が欲しいなら工房に足を運んでみるといい。材料は必要だけどね」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「山には行って見たかい？　あの山はとても純度の高いマナ結晶がとれそうだよ」
「錬金術の触媒としてはうってつけだ。時間があるときにいくつか掘ってみようよ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents> 「大域錬金術……土地そのものをまるごと作り変えてしまうような秘術がかつては存在したらしい」
「理論上行使には非現実的な量のマナが必要になるのだけど、この土地の特性を活かせばあるいは……」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「空いている場所に工房をこしらえさせてもらったよ。すまないが事後報告だ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「わかっていると思うけど……丸腰で冒険に行くのは自殺のようなものだからね？」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「サイズなんて問題じゃない？　いや、それはまやかしだよ、キミ」
「サイズは、重要だ。いや、何が……とは言わないけど……」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「私は魔導工学者であって、魔術師ではないよ」
「だから人をカエルにするとか、箒で空を飛ぶとか、そういうのは専門外だよ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="1">
    <contents>「この土地はキミが思っているよりずっと興味深い場所かもしれないね」
「資源もマナも植生も実に豊かだ。あれこれ研究するには理想的な場所だよ」</contents>
  </command>
  <command com="会話" name="会話(入浴)" kojoPlace="TOP" priority="1" eval="{IS_BATHING([$KC])}">
    <contents>「ふぅ……やっぱり湯船に浸かるのは気持ちがいいね」
「ノルディアの街には肩まで浸かれる場所なんてほとんどないからね。これは格別の贅沢だよ」</contents>
  </command>
  <command com="会話" name="会話(入浴)" kojoPlace="TOP" priority="1" eval="{IS_BATHING([$KC])}">
    <contents>古帝国が全盛を迎えた時代には、こうやってのんびりと浸かれる浴場があちこちにあったそうだよ」
中には今でも使われているものもあるらしい。是非一度行ってみたいものだね」</contents>
  </command>
  <command com="会話" name="会話(入浴)" kojoPlace="TOP" priority="1" eval="{IS_BATHING([$KC])}">
    <contents> 「……まぁ恥ずかしくないと言えば嘘になるけれど、今更気後れするような間柄でもないだろう？」
 「ふふっ、キミは……どう思っているのかな？」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="2" isFall="LOVER">
    <contents>「アカデミーを飛び出してきたことを後悔していないか？　後悔したことがないといえば嘘になるだろうね」
「私だって時々都会の雑踏や喧騒、不自由のない暮らしが恋しくなるよ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="2" isFall="LOVER">
    <contents>「でもまぁここでの暮らしに勝るものではないね」
「ここなら誰にも指図されずに好きなものを研究できる」
「それに……キミと一緒に、こうしてのんびりと談笑に耽っている時間ほど得がたいものはないよ」</contents>
  </command>
  <command com="会話" name="会話" kojoPlace="TOP" priority="2" isFall="LOVER">
    <contents>「魔導工学は伝統的な魔術に錬金術、自然科学のごった煮の産物だ」
「今日の文明は魔導工学の上に成り立っていると言っても過言ではない」
「ここみたいな田舎でも蛇口をひねれば熱々のシャワーを浴びられるのだから、実にありがたいね」</contents>
  </command>
  <command com="会話" name="会話(発情)" kojoPlace="TOP" priority="5" isExclusive="TRUE" isFall="FALLEN" lust="6">
    <contents>[$KNAME]の息がひどく荒い</contents>
  </command>
  <command com="会話" name="会話(発情)" kojoPlace="TOP" priority="5" isExclusive="TRUE" isFall="FALLEN" lust="6">
    <contents>[$KNAME]は頬を紅潮させて[$MNAME]を見つめる</contents>
  </command>
  <command com="会話" name="会話(発情)" kojoPlace="TOP" priority="5" isExclusive="TRUE" isFall="FALLEN" lust="6">
    <contents>[$KNAME]はとろんとした目つきで[$MNAME]の方を向く</contents>
  </command>
  <command com="会話" name="会話(発情)" kojoPlace="MIDDLE" priority="5" isExclusive="TRUE" isFall="FALLEN" lust="6" eval="{TCVAR:[$KC]:当日ウフフ継続時間>150}">
    <contents>「ふふっ、今日は……その…いっぱい、しちゃったね……」
「キミは、満足してくれたかな……？」
「私は……実は結構欲張りだからね。もっと、してもいいかな、なんてね」</contents>
  </command>
  <command com="会話" name="会話(発情)" kojoPlace="MIDDLE" priority="5" isExclusive="TRUE" isFall="FALLEN" lust="6" eval="{TCVAR:[$KC]:当日ウフフ継続時間>150}">
    <contents>「困ったな……あんなに愛してもらったのに……まだ身体の火照りが収まらないや」
「ねぇ、この後はどうする？　キミさえ良けれれば今日はずっと一緒にいようよ」
「正直に言うと……さっきの続き、もっと…したいな❤」</contents>
  </command>
  <command com="会話" name="会話(発情)" kojoPlace="MIDDLE" priority="5" isFall="FALLEN" lust="6">
    <contents>「はぁ…はぁ…❤　ねぇ、その……わかっているだろう？」
「キミは……その……本当に意地が悪いね……❤」
「……私がどうして欲しいのか、よく分かっているくせに……❤」</contents>
  </command>
  <command com="会話" name="会話(不機嫌)" kojoPlace="TOP" priority="10" isExclusive="TRUE" emotion="ANGER">
    <contents>「%S_R("……何か？/……何かな？/理解できないな……/……",1)%」</contents>
  </command>
  <command com="会話" name="会話(落ち込み)" kojoPlace="TOP" priority="10" isExclusive="TRUE" emotion="SAD">
    <contents>「%S_R("……何か？/……しばらく一人にしてくれないかな？/……",1)%」</contents>
  </command>
  <command com="会話" name="会話(恐怖)" kojoPlace="TOP" priority="10" isExclusive="TRUE" emotion="FEAR">
    <contents>「%S_R("ひっ……。今度は一体なにを……するつもり……？/お願いだ……お願いします……ひどいこと……しないで",1)%」</contents>
  </command>
  <command com="会話" name="会話(崩壊)" kojoPlace="TOP" priority="10" isExclusive="TRUE" emotion="BROKEN">
    <contents>[$KNAME]は虚ろな眼差しで押し黙っている。こちらの言葉に一切返答しようとしない……</contents>
  </command>
  <command com="膝枕する" name="膝枕する(対象)" kojoPlace="MIDDLE" priority="1" PLYorTGT="TARGET" emotion="GOOD" isFall="!FALLEN" randRate="75">
    <contents>「なんだか不思議な気分だよ……でも、悪くはないかな」</contents>
  </command>
  <command com="膝枕する" name="膝枕する(対象)" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="LOVER" randRate="75">
    <contents>「ふふっ、それじゃあ少し……甘えさせてもらおうかな❤」</contents>
  </command>
  <command com="膝枕する" name="膝枕する(対象)" kojoPlace="MIDDLE" priority="5" isExclusive="TRUE" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="親愛" randRate="75">
    <contents>「ではお言葉に甘えて。折角だから今日はずっとこうしていさせてもらおうかな❤」</contents>
  </command>
  <command com="膝枕する" name="膝枕する(実行)" kojoPlace="MIDDLE" priority="1" PLYorTGT="PLAYER" emotion="GOOD" isFall="!FALLEN">
    <contents>「まぁ嫌とは言わないけどさ……急にどうしたんだい？」</contents>
  </command>
  <command com="膝枕する" name="膝枕する(実行)" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" randRate="75">
    <contents>「ふふっ、ではお望み通り……たっぷり甘やかしてあげよう」
「キミが頑張っているのは知っているからね。少しくらい、ご褒美をあげてもいいかな、なんてね❤」</contents>
  </command>
  <command com="膝枕する" name="膝枕する(実行)" kojoPlace="MIDDLE" priority="5" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="親愛" randRate="75">
    <contents>「もう……仕方ないなぁ❤　ほら、おいで」
「キミのお望み通り、たっぷりと癒やしてあげよう❤」</contents>
  </command>
  <command com="膝枕する" name="膝枕する(リアクション付)" kojoPlace="MIDDLE" priority="8" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="親愛" lust="8" randRate="75">
    <contents>「ふふっ、こうして無防備なキミの寝顔を間近で見ていると少し悪戯したくなってしまうね」[$REACT_COM:28:99999:5]</contents>
  </command>
  <command com="膝枕する" name="膝枕する(リアクション付)" kojoPlace="MIDDLE" priority="8" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="親愛" lust="8" randRate="75">
    <contents>「ふふっ、こうして無防備なキミの寝顔を間近で見ていると少し悪戯したくなってしまうね」[$REACT_COM:339:99999:0]</contents>
  </command>
  <command com="抱きしめる" name="抱きしめる" kojoPlace="MIDDLE" priority="1" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="!LOVER" isUfufu="FALSE" randRate="75">
    <contents>「ふふっ、随分と熱烈な愛情表現じゃないか」
「けれど…まぁ悪い気持ちはしないよ」</contents>
  </command>
  <command com="抱きしめる" name="抱きしめる" kojoPlace="MIDDLE" priority="2" isExclusive="TRUE" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="LOVER" isUfufu="FALSE" randRate="75">
    <contents>「おやおや……」
「いささか照れくさいけれど、ふふっ、こういうのは嫌いじゃないよ」</contents>
  </command>
  <command com="抱きしめる" name="抱きしめる" kojoPlace="MIDDLE" priority="2" isExclusive="TRUE" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="親愛" isUfufu="FALSE" randRate="75">
    <contents>「ふふっ❤」
[$MNAME]が[$KNAME]の華奢な身体に腕を回すと、[$KNAME]は嬉しそうに胸元に身体を寄せる
「いいんだよ？　もっと強く抱いても……」</contents>
  </command>
  <command com="抱きしめる" name="抱きしめる" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER" isUfufu="FALSE" eval="{S_EQUIP(MASTER, [$KC] , T_N("抱きしめる")) >= 0}" randRate="75">
    <contents>[$MNAME]の抱擁に応じるように[$KNAME]もまた[$MNAME]の身体に腕を回してくる
「ほら……もっとくっついてよ」
「私に、キミの温もりを感じさえて……？」</contents>
  </command>
  <command com="抱きしめる" name="しがみつきフェラ" kojoPlace="MIDDLE" priority="4" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="8" eval="{TFLAG:リアクションコマンド実行 && IS_SERVEAT([$KC], "口", "フェラ")}" randRate="75">
    <contents>「はぁむ……、んぷっ、じゅっ、じゅるるる」
[$KNAME]は[$TNAME]の身体にぴったりとしがみつき、無心にその%語彙_ペニス()%を舐めしゃぶっている…
「はぁ……。ふふっ、逃げちゃだめだよ❤　トロトロになるまで、離してあげないから……❤」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="1">
    <contents>「へぇ、殊勝な心がけじゃないか」
「いいとも、私が知っていることなら教えてあげよう」
「一般魔導力学の入門ならこの本が最適だろうね、ちょっと著者に癖があるけれど、魔術エネルギー理論の初歩を知りたいなら……この本がおすすめだ」
[$KNAME]はどこからともなく書籍を取り出すと、[$MNAME]の前に次から次へと積み上げていった……</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="1">
    <contents>「うーん、やっぱり蔵書の質を求めるとなると大きな街へ出向かないといけないね」
「聞くところによるとルーテシアにある王立図書館は大陸随一の蔵書を誇るというから、是非一度は足を運んでみたいものだね」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="2" eval="{HO_OCLOCK() >= 2200}">
    <contents>「勤勉なのは良いことだけれど、眠気で鈍る頭に鞭を打っても大したものは得られないよ」
「きりの良いところで切り上げて今日はもう休もうじゃないか」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="1" isFall="LOVER" eval="{!RAND:3}">
    <contents>「こうして誰かと一緒に学んでいるとアカデミーでの日々を思い出すね」
「あれは確か……マナと物理法則の影響関係についての実験だったかな……」
[$W]
「実験といえば聞こえがいいけれど、半ば悪ふざけのようなものでね。魔導触媒をありったけ詰め込んだ砲弾を花火替わりに空高く打ち上げたんだ」
「ただまぁ……弾道計算がからきし間違っていてね、打ち上げた砲弾は学長の温室を直撃して……」
「……我ながらよくもまぁつまみ出されなかったものだよ」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="1" isFall="LOVER" eval="{!RAND:3}">
    <contents>「古帝国は魔導に関する研究についても抜きん出た水準を誇っていたとされている」
「ではなぜ彼らが魔法を産業的に利用しようとしなかったのか、不思議ではないかい？」
[$W]
「答えは簡単で、する必要がなかったからだ。当時は今より人口もずっと豊富だったし、必要があれば容易に奴隷を調達することも出来た」
「……もし、大戦が起きなかったとしたら世界がどのような姿になっていたか、興味深いものだね」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="1" isFall="LOVER" eval="{!RAND:3}">
    <contents>「キミは階差機関というものを見たことがあるかな？……見たことが無かったとしても不思議じゃない」
「これはまぁとんでもなく大掛かりで複雑な歯車でできた計算機で、計算に必要な数表を人の手を経ずに生成するための道具だ」
「画期的ではあったけれど、ドワーフ由来の冶金技術がないとまともに作れはしないし、維持も叶わないので今ひとつ普及しなかった」
[$W]
「この装置の着眼点は実に面白い。問題は歯車という物理的な手段で値を保持しようとしたことにある」
「では、歯車を何か別の、非物理的な手段に置き換えることが出来るとしたらどうだろう？」
「『仮想化』とでも呼ぼうか。非実体を介して入出力を行えるとしたら……おや、これは中々面白い思いつきだね」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="3" isExclusive="true" forMaster="true" eval="{C_COND("エリア効果:卑猥な書籍",,[$KC])}">
    <contents>「……やれやれ」
「キミが性欲に向ける情熱と同じくらい勉学にも取り組んでくれると…私は嬉しいのだけれどね」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="3" isExclusive="true" forMaster="true" isFall="!LOVER" eval="{C_COND("エリア効果:卑猥な書籍",,[$KC])}">
    <contents>「……まったく、こんな本を隠していたのかい…？」
「……」[$W]
「べ、別に見たくないとは…言っていないさ。何事も勉強…だからね」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="3" isExclusive="true" forMaster="true" isFall="LOVER,!親愛" eval="{C_COND("エリア効果:卑猥な書籍",,[$KC])&&ABL:[$KC]:性知識<ABL:MASTER:性知識}">
    <contents>「へぇ……こういうのが好きなんだ」
「……まぁ、頭の片隅には置いておいてあげるよ、後学のために…ね」
「なに？忘れてほしい？ダメだね。私の記憶力が折り紙付きなのはキミだってよく知っているだろう？」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="3" isExclusive="true" forMaster="true" isFall="LOVER" eval="{C_COND("エリア効果:卑猥な書籍",,[$KC])&&ABL:[$KC]:性知識<ABL:MASTER:性知識}">
    <contents>「……これを私に見せるということは、つまりキミは私にこういうことをして欲しいと、そう望んでいるんだね？」
「よくもまぁ…億面もなく素直に欲望を曝け出せるものだね……」
[$W]
「ダメダメ、閉じていいなんて言ってないだろう？ほら、PREVを捲ってよ……」
「この分野ではキミに分があるんだからね。ほら…きちんと教えてよ、先生❤？」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="3" isExclusive="true" forMaster="true" emotion="GOOD" isFall="親愛" lust="10" eval="{C_COND("エリア効果:卑猥な書籍",,[$KC])}">
    <contents>「全く……どうせキミのことだから座学だけでは飽き足らないのだろう？」
「\"実習\"がしたいのなら…素直にそう言ってくれればいいのに……❤」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="5" isExclusive="true" forMaster="true" emotion="GOOD" isFall="親愛" lust="6" eval="{C_COND("エリア効果:卑猥な書籍",,[$KC])&&IS_SERVEAT([$KC], "口", "フェラ")}">
    <contents>「んっ、んぐっ、れろぉ……はぁ……」
「どうかな……？少しは\"勉強の成果\"が出ただろう……？」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="5" isExclusive="true" forMaster="true" emotion="GOOD" isFall="親愛" lust="6" eval="{C_COND("エリア効果:卑猥な書籍",,[$KC])&&IS_SERVEAT([$KC], "口", "フェラ")}">
    <contents>「んんっ、じゅ、じゅるるっ」
「だめ。最後まできちんと付き合ってよ……キミが私に勉強しろって言ったんだろう？」
「ほら……力を抜いて大人しくして…？本当に本の通りに感じるのか……きちんと実証…しないとね❤」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="2" emotion="GOOD" isFall="親愛" lust="10" eval="{IS_ESTRUS(MASTER)}">
    <contents>「……やれやれ」
「私の話、きちんと聴いていたかい……？その調子じゃあ耳から入ったそばから反対側から抜けていってしまったのだろうね」
[$W]
「まったく……\"休憩\"がしたいならそうだって……早く言ってくればいいのに……❤」</contents>
  </command>
  <command com="勉強する" name="勉強" kojoPlace="TOP" priority="2" emotion="GOOD" isFall="親愛" lust="10" eval="{IS_ESTRUS(MASTER)}">
    <contents>「……やれやれ」
「私の話、きちんと聴いていたかい……？その調子じゃあ耳から入ったそばから反対側から抜けていってしまったのだろうね」
[$W]
「まったく……\"休憩\"がしたいならそうだって……早く言ってくればいいのに……❤」
「ほら、力を抜いて……❤」[$REACT_COM:0:9999]</contents>
  </command>
  <command com="愛撫" name="勉強->愛撫" kojoPlace="MIDDLE" priority="3" isExclusive="True" isInitiative="True" PLYorTGT="Player" forMaster="True" emotion="GOOD" isFall="親愛" lust="10" eval="{TFLAG:リアクションコマンド実行&&PREVCOM==T_N("勉強する")}">
    <contents>「記憶の定着度は記憶する対象に対して関連付けられる要素が多いほど増すそうだ」
「勿論、関連付ける要素は鮮烈であるほどいい」
[$W]
「……つまりこうしてあげれば、身体は楽になるし記憶も捗る。私も楽しいし一石三鳥だろう……❤？」</contents>
  </command>
  <command com="手コキ" name="手コキ" kojoPlace="MIDDLE" priority="1" PLYorTGT="実行" forMaster="true" emotion="GOOD" isFall="LOVER,SLAVED_BY">
    <contents>「ほら…出したかったら…いつ出してもいいんだよ❤？」[$REACT_COM:339:2500]</contents>
  </command>
  <command com="手コキ" name="授乳手コキ" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="6" eval="{S_EQUIP(MASTER, [$KC], T_N("乳首吸い") >= 0)}">
    <contents>「はぁ…❤　こんなにえっちな赤ちゃんの面倒を見させられる方の身にもなってもらいたいものだね」
「誰かに甘えたい時があるとはいえ……限度というものがあるだろう❤」</contents>
  </command>
  <command com="手コキ,亀頭責め手コキ" name="授乳手コキ" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="10" eval="{S_EQUIP(MASTER, [$KC], T_N("乳首吸い") >= 0)}">
    <contents>「こら……❤　そんなに強く吸ったら……んんっ❤」
[$KNAME]は乳首を通して伝わる痺れるような快楽に身を震わせつつ、%語彙_ペニス()%を扱く手を早める
「……悪い子にはお返ししてやらないとね❤」</contents>
  </command>
  <command com="手コキ,亀頭責め手コキ" name="授乳手コキ" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="10" eval="{S_EQUIP(MASTER, [$KC], T_N("乳首吸い") >= 0)}">
    <contents>「やれやれ……、私はこんなに大きい赤ちゃんの面倒までみないといけないのかい？」
[$KNAME]は耳に顔を寄せて、ささやきかけながら搾り上げるようにペニスを扱く
「仕方ない子だなぁ……❤　ほら、出して。私の手にトロトロのザーメンを吐き出して…気持ちよくなってしまいなよ❤」</contents>
  </command>
  <command com="見つめあう" option="1" name="見つめあう(胸)" kojoPlace="MIDDLE" priority="1" PLYorTGT="TARGET" isFall="!LOVER" randRate="75">
    <contents>「……いささかデリカシーに欠けているんじゃないかな」</contents>
  </command>
  <command com="見つめあう" option="1" name="見つめあう(胸)" kojoPlace="MIDDLE" priority="1" PLYorTGT="TARGET" isFall="LOVER" randRate="75">
    <contents>「やれやれ、見ていてあまり愉快なものでもないだろうに……」</contents>
  </command>
  <command com="見つめあう" option="ANY" name="見つめあう_自慰中" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" isInitiative="FALSE" PLYorTGT="TARGET" forMaster="TRUE" isFall="FALLEN" lust="6" eval="{IS_EQUIP_PLAYER([$KC], T_N("Ｃ自慰"))}" randRate="75">
    <contents>「んっ、あぁ……❤」
「わ、私のこんな姿を見て……一体なにが楽しっ…――んんっ❤」</contents>
  </command>
  <command com="見つめあう" option="ANY" name="見つめあう_自慰中" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="TARGET" forMaster="TRUE" isFall="FALLEN" lust="8" eval="{IS_EQUIP_PLAYER([$KC], T_N("Ｃ自慰")) && C_COND("素質:自慰狂い",,[$KC])}" randRate="75">
    <contents>「はぁ……んっ❤」
「ねぇ、もっと見てよ……。キミのことを考えて、キミのことを想っていたら、こんなになってしまったんだよ……❤」
「見られるだけで身体が火照って……あぁ…❤」</contents>
  </command>
  <command com="見つめあう" option="ANY" name="見つめあう_自慰中" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="TARGET" forMaster="TRUE" isFall="FALLEN" lust="8" eval="{IS_EQUIP_PLAYER([$KC], T_N("Ｃ自慰")) && C_COND("素質:自慰狂い",,[$KC])}" randRate="75">
    <contents>(見られていると思うと余計指が止まらなくて……んんんっ――❤)</contents>
  </command>
  <command com="見つめあう" name="見つめあう_抱擁中" kojoPlace="MIDDLE" priority="3" isExclusive="TRUE" PLYorTGT="TARGET" forMaster="TRUE" isFall="親愛" eval="{S_EQUIP(MASTER, [$KC] , T_N("抱きしめる"))}" randRate="75">
    <contents>「ほら……もっとこっちを見てよ、もっと強く抱いてよ……❤」</contents>
  </command>
  <command com="囁きかける" name="囁きかける" kojoPlace="MIDDLE" priority="3" PLYorTGT="実行" forMaster="true" emotion="GOOD" isFall="LOVER,SLAVED_BY" eval="{TFLAG:リアクションコマンド実行&&PREVCOM==T_N("手コキ")}">
    <contents>「ほらほら……ねぇ…気持ちいいかい？　気持ちいいだろう？」
[$KNAME]は耳元に熱い吐息を吹きかけながら、わざと音を立てるように%語彙_ペニス()%を擦り続けている…</contents>
  </command>
  <command com="囁きかける" name="囁きかける" kojoPlace="MIDDLE" priority="1" PLYorTGT="実行" forMaster="true" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="6">
    <contents>「ほらほら、どうして欲しいのか素直に言ってごらんよ……？」
「頼み方次第では……してあげてもいいかもね❤」</contents>
  </command>
  <command com="囁きかける" name="囁きかける" kojoPlace="TOP" priority="1" PLYorTGT="実行" emotion="GOOD" isUfufu="TRUE">
    <contents>「さて……次はどう楽しませてくれるのかな……？」</contents>
  </command>
  <command com="囁きかける" name="囁きかける" kojoPlace="TOP" priority="1" PLYorTGT="実行" forMaster="TRUE" emotion="GOOD" lust="3" isUfufu="FALSE" eval="{TCVAR:[$KC]:当日ウフフ継続時間<20 && C_COND("設備属性:狭隘",,[$KC])}">
    <contents>「やれやれ……こんなところに私を連れ込んで、どうしようという腹づもりなのかな？」
「まぁいい機会だから、その荒い息の奥にどんな欲望を抱いているのか……包み隠さず見せてもらおうか❤」</contents>
  </command>
  <command com="囁きかける" name="囁きかける" kojoPlace="TOP" priority="2" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" lust="8" isUfufu="FALSE" eval="{IS_ESTRUS(MASTER) && HAS_PENIS(MASTER) && C_COND("設備属性:狭隘",,[$KC])}">
    <contents>「やれやれ……こんなところ窮屈なところでキミの欲望を押し付けられる方の気持ちにもなってもらいものだがね……」
「ふふっ❤　冗談だよ。さて、キミを苛む欲求をどう解消してあげようか……もうすっかりカチコチじゃないか」</contents>
  </command>
  <command com="囁きかける" name="囁きかける" kojoPlace="TOP" priority="1" PLYorTGT="PLAYER" forMaster="TRUE" isUfufu="TRUE" eval="{IS_TIRED(MASTER)}">
    <contents>[$KNAME]は慈しむように[$MNAME]の顎に指を這わす
「大丈夫かい？　疲れていたら目を閉じて、眠ってしまっても構わないよ？」</contents>
  </command>
  <command com="囁きかける" name="耳舐め>囁きかける" kojoPlace="BOTTOM" priority="3" isExclusive="true" PLYorTGT="実行" forMaster="true" emotion="GOOD" isFall="LOVER" lust="6" eval="{TFLAG:リアクションコマンド実行&&PREVCOM==T_N("舌を這わす")&&PREVCOM_OPTION:PREVCOM == 5}">
    <contents>「目、とろんとしてるね……❤」
「舐められるのが気持ちいいのかな……？囁かれるのが気持ちいのかな……？」
「……それとも……両方❤？」[$W]</contents>
  </command>
  <command com="囁きかける" name="耳舐め>囁きかける" kojoPlace="BOTTOM" priority="3" isExclusive="true" PLYorTGT="実行" forMaster="true" emotion="GOOD" isFall="LOVER" lust="6" eval="{TFLAG:リアクションコマンド実行&&PREVCOM==T_N("舌を這わす")&&PREVCOM_OPTION:PREVCOM == 5}">
    <contents>[$KNAME]は[$TNAME]の耳を丹念に舐めしゃぶりながらその反応を楽しんでいる[$W]
「ふふっ、ここすごく敏感なんだね……❤」
[$W]
「目も……すごくとろんとしているよ。そのまま眠ってしまいそうだね」
「……でも、我慢してね。私はもう少しキミの反応がみていたいからね」[$W]</contents>
  </command>
  <command com="舌を這わす" name="舌を這わす(対象)" kojoPlace="MIDDLE" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER" randRate="50">
    <contents>「こ、こらっ……くすぐったいよ！」</contents>
  </command>
  <command com="舌を這わす" name="舌を這わす(対象)" kojoPlace="MIDDLE" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER" randRate="50">
    <contents>「まったく……犬じゃないんだから……」</contents>
  </command>
  <command com="舌を這わす" name="舌を這わす(実行)" kojoPlace="MIDDLE" priority="1" PLYorTGT="PLAYER" forMaster="true" emotion="GOOD" isFall="LOVER" randRate="75">
    <contents>「くすぐったい？　ふふっ❤　ごめんね、キミがつい……美味しそうだったからね」</contents>
  </command>
  <command com="舌を這わす" option="2" name="舌を這わす(腹)" kojoPlace="MIDDLE" priority="3" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER" lust="3" eval="{RAND:2 &&  COMCOUNT_IN_TRAIN([$KC], SELECTCOM, "TARGET", COM_OPTION:SELECTCOM) > 4}">
    <contents>「やれやれ、お腹……キミの涎でどろどろじゃないか……」
「んっ、こら……そこは……やんっ❤」</contents>
  </command>
  <command com="舌を這わす" option="3" name="舌を這わす(脇)" kojoPlace="MIDDLE" priority="3" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER" lust="3" eval="{RAND:2}">
    <contents>「ば、ばかっ、どこを舐めて……ひぅっ」</contents>
  </command>
  <command com="舌を這わす" option="3" name="舌を這わす(脇)" kojoPlace="MIDDLE" priority="3" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER" lust="3" eval="{RAND:2 &&  COMCOUNT_IN_TRAIN([$KC], SELECTCOM, "TARGET", COM_OPTION:SELECTCOM) > 3}">
    <contents>「ねぇ……さすがにそこは恥ずかしいよ……うら若き乙女としてはさ……」
「はぁ…もう…聞いちゃいないんだから……」</contents>
  </command>
  <command com="舌を這わす" option="1" name="舌を這わす(頬)" kojoPlace="MIDDLE" priority="3" PLYorTGT="実行" forMaster="true" emotion="HAPPY" isFall="LOVER" lust="6" eval="{!RAND:3 && COM_OPTION:SELECTCOM == 1}">
    <contents>「くすぐったい……？」
「ふふっ、キミがこんなに美味しそうなのがいけないんだよ……？」
「もう少し我慢しててよ。食べはしないからさ……❤」</contents>
  </command>
  <command com="舌を這わす" name="舌を這わす(頬>首)" kojoPlace="MIDDLE" priority="0" PLYorTGT="実行" forMaster="true" emotion="GOOD" isFall="LOVER" lust="6" eval="{TFLAG:リアクションコマンド実行 && COM_OPTION:SELECTCOM == 0}">
    <contents>※機能的に未実装なのでいったん非活性
[$KNAME]は[$MNAME]の頬から首筋に舌を這わせ、舌先でちろちろと弄ぶ
「ふふふっ、キミの可愛らしい反応を見ているともう少しこうしていたくなってしまうね❤」</contents>
  </command>
  <command com="舌を這わす" option="5" name="手コキ耳舐め" kojoPlace="MIDDLE" priority="4" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER" lust="6" eval="{IS_SERVEAT([$KC], "手", "手コキ")}">
    <contents>「じゅるっ、ちゅっ、じゅるぅ……はぁ……❤」
[$KNAME]は[$MNAME]の%語彙_ペニス()%を扱き上げながら、耳に舌を這わせ熱い吐息を浴びせる
「ふふっ耳を舐められる度に私の手の中でペニスをひくひくさせて……可愛いね❤」
「頭の中まで快楽でとろとろにしてあげよう……」
</contents>
  </command>
  <command com="素股" name="素股する" kojoPlace="MIDDLE" priority="１" isInitiative="FALSE" PLYorTGT="TARGET" forMaster="TRUE" isFall="FALLEN" eval="{ABL:[$KC]:奉仕 < 2}">
    <contents>「擦り付けるだけ……？　まぁキミがそれでいいならいいのだけれどさ」
「……それ、気持ちいいのかい？」</contents>
  </command>
  <command com="素股" name="素股する" kojoPlace="MIDDLE" priority="3" isInitiative="TRUE" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="3" eval="{ABL:[$KC]:奉仕 > 2}">
    <contents>「ふふっ、キミのペニス早く気持ちよくなりたいって、さっきからヒクヒクしているよ？」
[$KNAME]は扇状的な笑みを浮かべ、先走り汁の滴るペニスに自身の内腿をすり合わる
「……でもまだおあずけ❤」</contents>
  </command>
  <command com="素股" name="素股する" kojoPlace="MIDDLE" priority="3" isInitiative="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="6" eval="{ABL:[$KC]:奉仕 > 2 && PALAM:MTAR:快Ｃ > 7500}">
    <contents>[$KNAME]はねっとりとこびりついたカウパーで照らつく内腿を前後に揺すり、[$MNAME]の%語彙_ペニス()%をぐりぐりと刺激する
「やれやれ……、これだけの刺激でもキミのペニスは勝手に気持ちよくなってしまうのだね」
「射精したいのかい？　的はずれなところにぶちまけてしまってもいいなら……好きに達してしまえばいいさ❤」</contents>
  </command>
  <command com="素股" name="素股する" kojoPlace="MIDDLE" priority="3" isInitiative="FALSE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="6" eval="{ABL:[$KC]:奉仕 > 2 && PALAM:MTAR:快Ｃ > 7500}">
    <contents>[$MNAME]は一心不乱に[$KNAME]の内腿に自身の%語彙_ペニス()%を擦り付ける
にちゃにちゃと淫猥な音が響き、[$KNAME]の内腿を体液が汚していく
「まったく……気持ちよくなれればなんでもいいのかい？」</contents>
  </command>
  <command com="素股" name="素股で射精" kojoPlace="BOTTOM" priority="3" isInitiative="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="HAPPY" isFall="LOVER,SLAVED_BY" lust="6" eval="{NOW_BUKKAKED([$KC]) == 射精部位_足}">
    <contents>どっぷりと吐き出された精子が[$KNAME]の内腿を伝い、白い糸を引いて垂れる
「ふふっ、私の足は余程気持ちよかったようだね❤」
[$KNAME]はザーメンで濡れた腿で%語彙_ペニス()%をきゅっと締め付け、残った体液を絞り出そうとする
「ほらほら……最後まで出してしまいなよ。全部出したら、また可愛がってあげるからさ❤」</contents>
  </command>
  <command com="素股" name="素股で射精" kojoPlace="BOTTOM" priority="3" PLYorTGT="PLAYER" forMaster="TRUE" emotion="HAPPY" isFall="LOVER,SLAVED_BY" lust="6" eval="{NOW_BUKKAKED([$KC]) == 射精部位_足&&C_COND("衣装属性:秘部:パンティ",,[$KC])}">
    <contents>どっぷりと内腿に吐き出された精子が[$KNAME]の%C_COND_MAP_GETS([$KC], "被覆衣装描写_秘部")%を汚していく
「やれやれ……せっかくのお気に入りの下着がザーメンまみれじゃないか」</contents>
  </command>
  <command com="パイズリ" name="パイズリ" kojoPlace="MIDDLE" priority="1" PLYorTGT="実行" forMaster="true" emotion="GOOD" isFall="LOVER">
    <contents>[$KNAME]は上体を緩急をつけてくねらせ、なだらかな胸をペニスに擦りつけて奉仕を続けている
[$TNAME]の表情が快感に歪むを認めると、扇情的な笑みを浮かべて動きのペースを早めた…
「ふーん、気持ちいいんだ。なら、もう少しサービスしてあげよう❤」</contents>
  </command>
  <command com="パイズリ" name="パイズリ" kojoPlace="MIDDLE" priority="1" PLYorTGT="実行" forMaster="true" emotion="GOOD">
    <contents>[$KNAME]はなだらかな胸を手で寄せあげ、ペニスに擦りつけている
「ここまでしてあげてるんだからね……気持ちよくないとは言わせないよ」</contents>
  </command>
  <command com="パイズリ" name="パイズリ" kojoPlace="MIDDLE" priority="2" PLYorTGT="実行" emotion="GOOD" isFall="LOVER" eval="{CUM_GET_COUNT:[$KC]:射精部位_胸 > 0}">
    <contents>[$KNAME]は%語彙_精液()%まみれの胸をペニスに擦り付け、淫らな音を立てながら奉仕している
「私の胸をこんなにザーメンまみれにしてもまだ飽き足らないのかい？　仕方ないなぁ……❤」</contents>
  </command>
  <command com="パイズリ" name="パイズリ" kojoPlace="MIDDLE" priority="2" PLYorTGT="実行" forMaster="true" emotion="HAPPY" isFall="親愛" eval="{CUM_GET_COUNT:[$KC]:射精部位_胸 > 0}">
    <contents>[$KNAME]は%語彙_精液()%まみれの胸をペニスに擦り付け、淫らな音を立てながら奉仕している
「んんっ……臭いが取れなくなってしまいそうだ……」
「マーキングでもしているつもりなのかい？　そんなことしなくても私はもう君のものなのに……❤」</contents>
  </command>
  <command com="パイズリ" name="割込パイズリ" kojoPlace="MIDDLE" priority="5" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="GOOD" isFall="親愛" lust="10" eval="{TFLAG:割込コマンド実行 && TFLAG:割込キャラ == [$KC]&&GET_BUSTSIZE([$KC])<GET_BUSTSIZE(TFLAG:割込まれたキャラ)}">
    <contents>「うーむ……胸の大きさでは%CALLNAME:(TFLAG:割込まれたキャラ)%に見劣りしてしまうね……」
[$KNAME]は%CALLNAME:(TFLAG:割込まれたキャラ)%に張り合うように身体を反らせ、全身を使って[$MNAME]のペニスを擦り上げる

「ふふっ、大きさだけが勝敗を左右するものではないだろう？ほら、ほら❤」[$W]</contents>
  </command>
  <command com="パイズリ" name="割込パイズリ" kojoPlace="MIDDLE" priority="5" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="GOOD" isFall="親愛" lust="10" eval="{TFLAG:割込コマンド実行 && TFLAG:割込キャラ == [$KC]&&MPLY_NUM==2}">
    <contents>「んっ、はぁ……%CALLNAME:(TFLAG:割込まれたキャラ)%まで侍らせてこんなことをさせるなんて、全くいいご身分じゃないか……」
「沢山のおっぱいを独り占めにして嬉しいかい？……ふふっ、どうやら余程嬉しいのだろうね」</contents>
  </command>
  <command com="キス" name="キスハメ" kojoPlace="MIDDLE" priority="5" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="HAPPY" isFall="親愛" lust="8" eval="{IS_INSERT_MUTUAL(MASTER, [$KC])==1}">
    <contents>「あぁ……これは、んんっ、蕩けてしまいそうだね……❤」
「ほら、もっと舌を絡めて？身体を寄せてよ……」

「私はね、キミが思っているよりずっと欲張りなんだ。ほら、もっと……もっと愛してよ❤」</contents>
  </command>
  <command com="手コキ" name="手コキ" kojoPlace="MIDDLE" priority="5" isExclusive="True" PLYorTGT="実行" forMaster="True" emotion="HAPPY" isFall="親愛" lust="8" eval="{PREV_EX:MASTER:(GETNUM(EX, "射精"))>0}">
    <contents>「とろとろのザーメンいっぱい出して……気持ちよかったかい？」
「でもキミの欲張りなペニスは…ふふっ、まだこんなに固くして……もっともっと気持ちよくしてもらいたいみたいだね」

「ほら、力を抜いて……。望み通りにしてあげよう❤」</contents>
  </command>
  <command com="ORAL" name="フェラ" kojoPlace="MIDDLE" priority="3" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="FALLEN" lust="6" isUfufu="FALSE" eval="{!C_COND("設備属性:ベッド",,[$KC])}" randRate="75">
    <contents>「んぷっ、ぐっ、れろぉ……」
「はぁ……はぁ……、大いに感謝してもらいたいものだね」
「私の貴重な時間を、んぐっ、キミの性欲処理のために割いて上げているのだからね……」</contents>
  </command>
  <command com="ORAL" name="フェラ" kojoPlace="MIDDLE" priority="3" isInitiative="FALSE" PLYorTGT="PLAYER" forMaster="TRUE" isFall="FALLEN" eval="{!C_COND("設備用途:排泄",,[$KC])}" randRate="75">
    <contents>「んんっ、んぐ、じゅっ、んっ、れろぉ」
「まったく……こんなところに連れ込んだかと思えば……私のこと、んっ、性処理道具か何かだと思っているのかい？」
「……れろれろ、付き合わされる方の身にも…んぐっ、なってもらいたい、ものだね……」</contents>
  </command>
  <command com="亀頭責めフェラ" name="亀頭責めフェラ" kojoPlace="MIDDLE" priority="3" isInitiative="TRUE" PLYorTGT="PLAYER" emotion="GOOD" lust="8" randRate="75">
    <contents>「はぁ……❤」
「先の方は特に敏感なんだね……❤　息を吹きかけただけでひくひくしているじゃないか」
「ではもう少し可愛がってあげよう」
[$KNAME]は目を細めると舌先を鈴口にあてがい、緩急を加えながらねっとりと舐め上げた</contents>
  </command>
  <command com="頭を撫でる" name="頭撫(フェラ中)" kojoPlace="MIDDLE" priority="3" isExclusive="True" isInitiative="True" PLYorTGT="対象" forMaster="True" emotion="HAPPY" isFall="親愛" lust="8" eval="{TFLAG:リアクションコマンド実行&&IS_SERVEAT([$KC], "口", "フェラ")}">
    <contents>「んっ、れろぉ……ちゅっ、んんぅ……」
「はぁ……、ふふっ、ここまでシてあげてるんだらか、もっと褒めてよ……❤」
「でないと……止めてしまうよ？」</contents>
  </command>
  <command com="ORAL" name="フェラ褒め" kojoPlace="MIDDLE" priority="3" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="HAPPY" isFall="親愛" lust="6" eval="{PREVCOM == T_N("頭を撫でる")&&IS_PREV_MTAR([$KC])}">
    <contents>「れろぉっ……んっ、はぁ……❤」
「そうやって褒めてくれるなら……ふふっ、もう少しサービスしてあげようかな」</contents>
  </command>
  <command com="ORAL" name="横取りフェラ" kojoPlace="MIDDLE" priority="5" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="GOOD" isFall="親愛" lust="10" eval="{TFLAG:割込コマンド実行 && TFLAG:割込キャラ == [$KC]}">
    <contents>「ねぇ……%CALLNAME:(TFLAG:割込まれたキャラ)%と私の奉仕、どちらが気持ちいいかい？」
「んっ、ちゅっ、ちゅるぅ……❤　はぁ……❤　ふふっ、少し意地の悪い質問だったかな？」</contents>
  </command>
  <command com="ORAL" name="横取りフェラ" kojoPlace="MIDDLE" priority="5" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="GOOD" isFall="親愛" lust="10" eval="{TFLAG:割込コマンド実行 && TFLAG:割込キャラ == [$KC]}">
    <contents>「ふふっ、ごめんね、%CALLNAME:(TFLAG:割込まれたキャラ)%」
「でも独り占めするキミもいけないんだよ？んっ、じゅるる、はぁ……❤」

「……さて、この欲張りなペニスは私と%CALLNAME:(TFLAG:割込まれたキャラ)%、どちらにイかされたいのかな……？」</contents>
  </command>
  <command com="ORAL" name="机下フェラ" kojoPlace="MIDDLE" priority="8" isExclusive="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" lust="8" isUfufu="FALSE" eval="{C_COND("設備属性:机",,[$KC])}" randRate="75">
    <contents>「……まったく」
[$KNAME]は呆れ果てた表情を浮かべつつも、口と舌を使い熱心に奉仕を続けている
「ほら、早く吐き出してしまいなよ。スッキリしたら多少知識の飲み込みも良くなるだろうさ……」</contents>
  </command>
  <command com="ORAL" name="机下フェラ" kojoPlace="MIDDLE" priority="8" isExclusive="TRUE" isInitiative="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" lust="8" isUfufu="FALSE" eval="{C_COND("設備属性:机,素質:精飲中毒","AND",[$KC])}" randRate="75">
    <contents>「んぷっ、じゅっ、じゅるるっ、はぁぁ……❤」
[$KNAME]は恍惚とした表情で一度息継ぎをすると、再び[$MNAME]の股間に深々と顔を埋める
「……声を抑えて。いいね？　じっとしていてくれたらすっきりさせてあげるから❤」</contents>
  </command>
  <command com="ORAL" name="机下フェラ" kojoPlace="MIDDLE" priority="8" isExclusive="TRUE" isInitiative="FALSE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" lust="8" isUfufu="FALSE" eval="{C_COND("設備属性:机",,[$KC])}" randRate="75">
    <contents>「んっ、んっ、ちゅぅぅ」
[$KNAME]は机の下に跪き、[$MNAME]の要求するがままに淫らな水音を立てて口淫にふけっている
「まったく……いい趣味、んっ、しているよ……、んぐっ」</contents>
  </command>
  <command com="ORAL" name="机下フェラ" kojoPlace="MIDDLE" priority="8" isExclusive="TRUE" isInitiative="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="FALLEN" lust="8" isUfufu="FALSE" eval="{C_COND("設備属性:机,素質:精飲中毒","AND",[$KC])}" randRate="75">
    <contents>「んぐ、んんっ、じゅぷ、ちゅうぅ……こんな姿、お互い見られるわけにはいかないだろう？」
「……でもキミが必死に我慢している姿を見ていると、ふふっ、少し意地悪したくなってしまうね❤」</contents>
  </command>
  <command com="ORAL" name="フェラ_経口摂取" kojoPlace="MIDDLE" priority="8" isExclusive="TRUE" isInitiative="TRUE" PLYorTGT="PLAYER" forMaster="TRUE" emotion="GOOD" isFall="LOVER" lust="8" isUfufu="FALSE" eval="{HAS_SKILL([$KC], "ORAL_INTAKE", スキル_大分類_性技)}" randRate="75">
    <contents>「んれぇ……じゅっ、じゅるるる……」
「ほら、出してよ。キミのマナの源❤」
「私に精を捧げてくれれば……もっともっとキミの役に立ってあげるからさ❤」
「まるで淫魔だって？　私をそういうふうにしたのはキミの癖に❤」</contents>
  </command>
  <command com="ANY" name="フェラ_射精" kojoPlace="BOTTOM" priority="5" forMaster="TRUE" emotion="GOOD" isFall="FALLEN" eval="{IS_SERVEAT([$KC], "口", "フェラ")&&NOW_BUKKAKED([$KC]) == 射精部位_口 && ABL:[$KC]:精愛 < 2}" randRate="75">
    <contents>[$KNAME]は口内に注がれるザーメンを少しつらそうな表情で受け止めている
「んっ、んぐっ……けほっ……」
「はぁ…美味しいとは……とても言い難いよ……」
</contents>
  </command>
  <command com="ANY" name="フェラ_射精" kojoPlace="BOTTOM" priority="5" forMaster="TRUE" emotion="GOOD" isFall="LOVER" eval="{IS_SERVEAT([$KC], "口", "フェラ")&&NOW_BUKKAKED([$KC]) == 射精部位_口 && ABL:[$KC]:精愛 >= 2}" randRate="75">
    <contents>[$KNAME]は射精の余韻で脈打つ%語彙_ペニス()%から名残惜しげに唇を離すと面を上げた
「んぐっ……。　……はぁ❤　ごちそうさま…でした❤」
</contents>
  </command>
  <command com="ANY" name="フェラ_射精" kojoPlace="BOTTOM" priority="5" emotion="GOOD" lust="10" eval="{IS_SERVEAT([$KC], "口", "フェラ")&&NOW_BUKKAKED([$KC]) == 射精部位_口 && C_COND("素質:精飲中毒",,[$KC])}" randRate="75">
    <contents>[$KNAME]は口内に注がれるザーメンを恍惚とした表情で受け止めている
「はぁぁ……❤　これがキミの欲望の味、なんだね……」
「ねっとりと絡み付いて、牡の匂いに満ちて……うん……悪くない❤」</contents>
  </command>
  <command com="ANY" name="フェラ_射精" kojoPlace="BOTTOM" priority="5" forMaster="TRUE" emotion="GOOD" lust="10" eval="{IS_SERVEAT([$KC], "口", "フェラ")&&NOW_BUKKAKED([$KC]) == 射精部位_口 && C_COND("設備用途:排泄,素質:精飲中毒","AND",[$KC]) && !IS_TIRED(MASTER)}" randRate="75">
    <contents>「はぁ……❤　いっぱい出たね❤」
「満足してくれたかい？　私の口を性欲のはけ口にして」
「その様子を見るに……まだ物足りなそうだね」
「いいよ……、キミのそのねっとりとした欲望が空っぽになるまで、付き合ってあげるからさ❤」</contents>
  </command>
  <command com="ANY" name="フェラ_射精" kojoPlace="BOTTOM" priority="5" forMaster="TRUE" emotion="GOOD" isFall="FALLEN" lust="10" eval="{IS_SERVEAT([$KC], "口", "フェラ")&&NOW_BUKKAKED([$KC]) == 射精部位_口 && C_COND("設備用途:机,素質:精飲中毒","AND",[$KC]) && !IS_TIRED(MASTER)}" randRate="75">
    <contents>「零さないように舐め取ってしまわないとね……匂いで気づかれてしまうから……」
[$KNAME]は射精を終えてひくつくペニスに下を這わせ、丹念に精液を舐め取っていく
「拭けばいい？　だめだよ……勿体ないじゃないか❤」</contents>
  </command>
  <command com="キス" name="割込キス" kojoPlace="MIDDLE" priority="5" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="GOOD" isFall="親愛" lust="10" eval="{TFLAG:割込コマンド実行 && TFLAG:割込キャラ == [$KC]}">
    <contents>「まったく……%CALLNAME:(TFLAG:割込まれたキャラ)%にばかり夢中じゃないか」
「んんっ……、ほら、こっちも見てよ❤」</contents>
  </command>
  <command com="アナル舐め" name="割込アナル舐め" kojoPlace="MIDDLE" priority="5" isExclusive="True" isInitiative="True" PLYorTGT="実行" forMaster="True" emotion="GOOD" isFall="親愛" lust="10" eval="{TFLAG:割込コマンド実行 && TFLAG:割込キャラ == [$KC]&&C_COND("素質:淫乱",,[$KC])}">
    <contents>「んっ、はぁぁぁ……❤　れろぉ……」
「ねぇ、%CALLNAME:(TFLAG:割込まれたキャラ)%に、いっぱい注ぎたいのだろう？」
「じゅぷっ、じゅるぅ……❤　わかってるよ、だからこうして後ろから手伝ってあげてるんじゃないか❤」

「そのかわり……次は私を……たくさん愛してもらうよ❤」</contents>
  </command>
  <command com="VSEX" name="前回絶頂" kojoPlace="MIDDLE" priority="３" isInitiative="False" PLYorTGT="対象" forMaster="True" emotion="GOOD" lust="6" eval="{PREV_EX:[$KC]:(GETNUM(EX, "Ｖ絶頂"))>1}">
    <contents>「ま、待って……さ、さっきイったばかりで……まだ……ひゃんっ！」
「い、いますごく敏感になって……、んんっ――！」</contents>
  </command>
  <command com="VSEX" name="前回絶頂" kojoPlace="MIDDLE" priority="３" PLYorTGT="対象" emotion="GOOD" isFall="親愛" lust="10" eval="{IS_PREV_MPLY(MASTER)&&PREV_EX:MASTER:(GETNUM(EX, "射精"))>10}">
    <contents>「あんっ❤　んっ、んん――ッ」
「はぁ……ん、こんなに私のなかに注いだのに、まだ足りないというのかい……？」
「いいよ、ほら、おいでよ……❤、キミの精も欲望も、全部受け止めてあげるから……❤」</contents>
  </command>
  <command com="騎乗位" name="騎乗位" kojoPlace="MIDDLE" priority="3" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" lust="10" eval="{IS_PREV_MPLY(MASTER)&&PREV_EX:MASTER:(GETNUM(EX, "射精"))>10&&!IS_TIRED(MASTER)}">
    <contents>[$PNAME]に跨る[$KNAME]の秘部からは注がれたばかりの精液が白い糸を引いて滴っている

「たくさん出たね……でも、まだまだ元気そうだね？」
「それじゃあ……射精したばかりで敏感なうちに、もっと気持ちよくして……あげるね❤」[$REACT_COM:1034:9999]</contents>
  </command>
  <command com="騎乗位" name="騎乗位" kojoPlace="MIDDLE" priority="3" isInitiative="TRUE" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="LOVER,SLAVED_BY" lust="8">
    <contents>「ふふっ、今は動かなくていいよ。私がたっぷりと……癒やしてあげよう❤」
「それにこうして、息を切らして蕩けた顔をしているキミを上から眺めるのは、存外悪くはないからね❤」</contents>
  </command>
  <command com="対面座位" name="対面座位" kojoPlace="MIDDLE" priority="3" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" lust="6">
    <contents>「んっ…あっ❤　こ、この姿勢もなかなか悪くないね。キミを独り占めにしているという実感があるよ」
「ほら、私を見て？　私だけを見ていてよ」
「ふふっ、それでいい❤」
</contents>
  </command>
  <command com="対面座位" name="対面座位(連続)" kojoPlace="MIDDLE" priority="5" isExclusive="TRUE" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" lust="6" eval="{SELECTCOM == PREVCOM}">
    <contents>「あっ❤　ああんっ❤」
[$KNAME]は下から突き上げられる度にその華奢な身体を震わせ、[$MNAME]の胸元にぎゅっと身を寄せる
「どうにか……んんっ❤　なってしまいそうだ……」
「キミの痴態を間近で見てやろうと思っていたのだがね……これじゃあ私が先にーーっあぁん❤」</contents>
  </command>
  <command com="囁きかける" name="対面→囁き" kojoPlace="MIDDLE" priority="5" isInitiative="TRUE" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" lust="10" eval="{IS_EQUIP_TARGET([$KC], T_N("対面座位"))&&TFLAG:リアクションコマンド実行}" randRate="75">
    <contents>[$KNAME]は淫らに腰をくねらせながら首元に腕を回し、そっと耳元で囁く
「どうだい、気持ちいいかい？　気持ちいいだろう……？　キミが望むなら…今日は体力が続く限り愛し続けてあげるよ❤」
「なぁに、礼はいらないよ。その代わりに……キミの身体も心も、思考の一片に至るまで……私が独り占めにさせてもらおうかな……❤」</contents>
  </command>
  <command com="VSEX" name="Ｖ性交全般" kojoPlace="MIDDLE" priority="1" isInitiative="FALSE" PLYorTGT="TARGET" forMaster="TRUE" emotion="GOOD" isFall="FALLEN" eval="{!C_COND("設備属性:ベッド",,[$KC])}" randRate="50">
    <contents>「ねぇ、ベッドまで我慢出来なかったのかい？」
「……やれやれ、パートナーとしてキミの旺盛な欲望を受け止め続けられるか、私は少し、んっ❤　不安になってきたよ」
</contents>
  </command>
  <command com="立ちバック" name="立ちバック" kojoPlace="MIDDLE" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER">
    <contents>「み、見ての通り華奢なんだよ？　あまり激しくされると…んん――っ、壊れてしまうよ」
「でもキミから壊れるくらい強く求められるのは、はぁ……♡　悪い気分じゃ、ないね……」</contents>
  </command>
  <command com="立ちバック" name="立ちバック" kojoPlace="MIDDLE" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER">
    <contents>「ふふ、すごく息が荒いよ？　まるで発情しきった獣だ」
「んっ、んんんっ――、はぁ……❤　お手柔らかに頼むよ、体は結構華奢なんだ」</contents>
  </command>
  <command com="立ちバック" name="立ちバック" kojoPlace="MIDDLE" priority="2" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER" lust="8">
    <contents>「はぁ……んんぅ、あっ❤　だめ、もう何も考えられないや」
[$PNAME]は[$TNAME]の腰をがっしりと掴み、%語彙_ペニス()%で無心に[$TNAME]を蹂躙している……
「ひうっ！　ま、待ってよ……んんんっ――！」</contents>
  </command>
  <command com="立ちバック" name="立ちバック" kojoPlace="MIDDLE" priority="3" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="LOVER" lust="8">
    <contents>「フーッ❤　フーッ❤」
[$TNAME]は注挿の快楽にすっかり酔いしれ、自ら肉付きの薄い白い尻を突き出して、さらなる快楽を求めている
「ほら、もっとキミの好きなように……していいんだよ？」</contents>
  </command>
  <command com="押し倒す" name="押し倒し_ベッド" kojoPlace="TOP" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" eval="{C_COND("設備属性:ベッド",,[$KC])}" randRate="75">
    <contents>「ねぇ、まだ陽が高いというのに、そんなにしたいかい？」
「やれやれ……積極的な姿勢は嫌いではないけどね」[$W]

「いいよ……そのかわり、今日は一日中付き合ってもらうからね❤」</contents>
  </command>
  <command com="押し倒す" name="押し倒し_狭隘" kojoPlace="TOP" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" HO_Act="同行中" randRate="75">
    <contents>「こんなところに連れ込んだかと思えば……はぁ、やっぱりこういうことなんだね」
「せめてこんな窮屈なところじゃなくて、他にも場所はあったろうに……」
「ほら、狭いんだからもっとこっちに寄ってよ」[$W]
「ダメ、もっと。……もっと。ふふっ、それでいい❤」[$W]
</contents>
  </command>
  <command com="押し倒す" name="押し倒し_机" kojoPlace="TOP" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" HO_Act="同行中" eval="{C_COND("設備属性:机",,[$KC])}" randRate="75">
    <contents>「――っ！　き、キミが机に向かうというから、少しは期待していたんだけどね……」
「はぁ……私が馬鹿だったよ」[$W]

「……いいよ、付き合ってあげるからさ、すっきりしたらそのセックスに向ける熱を少しは勉学にも向けてくれると嬉しいなって」</contents>
  </command>
  <command com="押し倒す" name="押し倒し_机" kojoPlace="TOP" priority="1" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" HO_Act="同行中" eval="{C_COND("エリアタグ:屋外",,[$KC])}" randRate="75">
    <contents>「ねぇ……いくらシたいからって、なにも外でなくてもいいだろう？」
「所構わず盛るのは動物の所業じゃないか……」[$W]

「……嫌とは言っていないよ。キミが私に理性を捨てさせて、獣の快楽を教えてくれるのだろう？」
「お手並みを拝見させてもらおうじゃないか❤」</contents>
  </command>
  <command com="押し倒す" name="押し倒し_二回目" kojoPlace="TOP" priority="3" isExclusive="TRUE" PLYorTGT="対象" forMaster="true" emotion="GOOD" isFall="親愛" eval="{TCVAR:[$KC]:当日ウフフ継続時間>120}">
    <contents>「ふぅん……、さっきあんなにしたというのにまだ足りないのかい❤？」
「やれやれ、キミの旺盛すぎる性欲に付き合わされる方の身にもなって欲しいね……」

「いいよ、ほら、おいで❤　キミが満足するまで一緒にいてあげるからさ❤」

</contents>
  </command>
</data>


code:
<?xml version="1.0" encoding="utf-8"?>
<data>
  <command skillDefName="ACT_ELLE_UNIQUE_SKILL_1" actionName="ANY" name="実行" kojoPlace="EXEC" priority="10" sequence = "0">
    <contents>「戦いは領分ではないけれど……立ちはだかるのなら、木っ端微塵になってもらおう！」</contents>
  </command>
  <command skillDefName="ACT_ELLE_UNIQUE_SKILL_1" actionName="ANY" name="実行" kojoPlace="EXEC" priority="10" sequence = "0">
    <contents>「とっておきを披露してあげよう！お代は見てのお帰り……いいや、前払いしてもらおうか！」</contents>
  </command>
  <command skillDefName="ACT_ELLE_UNIQUE_SKILL_1" actionName="ANY" name="実行" kojoPlace="EXEC" priority="10" sequence = "0">
    <contents>「特性術式の詰め合わせだ！おそらく痛いでは済まないだろうね！」</contents>
  </command>
</data>


code:
<?xml version="1.0" encoding="utf-8"?>
<data>
  <command eventId="2" name="告白成功" priority="1">
    <contents>「ふーむ、困った……実に困った」
[$W]
[$KNAME]は大きなマリンブルーの瞳を泳がせ、長い白い髪を指先で巻くように弄る
[$W]
「いや、キミからこういう言葉を貰うのを期待していなかった訳じゃない」[$W]
「ただ、いざ面と言われると……何か気の利いた修辞の一つも紡ごうにも…頭の中が真っ更になってしまってね」[$W]
「どうにも私の自慢の計算機でさえ、キミを前にするとてんで無力になってしまうらしい」
[$W]
「ふふっ、実に困ったことだね。ねぇ……どうしてくれるんだい？まぁ埋め合わせは……これからじっくりとして貰おうじゃないか」
[$W]
「ん？ああ、すまない。返答がまだだったね」
[$W]
[$KNAME]はつま先で床をとんと蹴り、[$MNAME]の胸元に飛び込むと、潤んだ瞳の奥の虹彩の模様の一つ一つが見て取れる程に顔を寄せ、囁いた
[$W]
「飾り立てた言葉なんていらないね。答えはイエス、もちろんイエスだ。私も君が大好きだよ」
[$W]</contents>
  </command>
  <command eventId="60" name="恋慕" priority="1">
    <contents>「うーむ……」
[$W]
[$KNAME]は独りで腕を抱えてこぼす
[$W]
「やれやれ、研究に没頭しているうちは年頃の娘のような恋やロマンスとは無縁だと思っていたが……」
[$W]
「はぁ……参った。これでは研究が手につきやしない。目を閉じれば思い浮かんだはずの術式や数式を押しのけて出てくるのは、決まってあの顔だ」[$W]
「自分の頭は精緻な計算機械のようなものだと自負していたのだが……どうにも過信だったようだ。この頃は…てんで使い物にならないな……」
[$W]
「さぁて……どうしたものだろうね。あぁ、こんな難解な問いは……生まれて初めてだな」
[$W]</contents>
  </command>
  <command eventId="62" name="親愛" priority="1">
    <contents>[$KNAME]は、これまで繰り返し繰り返しそうしてきたように[$MNAME]の腕の間に収まって、鼻歌を歌っている
[$W]
「私はこれでも甘党なんだ。知っていたかな？まぁ、どちらでもいいさ」[$W]
「この脳はお世辞にも効率がいいとは言えない。全力で回転させるには栄養がたーっぷりといる」
「角砂糖を三つ、四つ、五つ……まぁ多いに越したことはない」
[$W]
彼女の白く細い指が[$MNAME]の頬を伝い、顎から首筋をそっとなぞる
[$W]
「甘いものは……なんだって歓迎だ。キミが振る舞ってくれるものなら特に……ね」
[$W]
返答代わりに彼女を抱く腕により力を込めると、目を閉じて心地よさそうに微笑み、満足気に息をこぼす
[$W]
「ふふっ、やっぱりここが一番だ。ただ、研究者という生き物はどにも欲が深い性分でね……」[$W]
「どうすればとっと刺激的で、もっと甘美な成果を得られるか、際限なく求めてしまう」[$W]
「というわけでキミにはこれからも探求に付き合ってもらうとしよう。今日も、明日もこれからもずっと……ね」[$W]
[$W]
「なぁに、損はさせないよ。私の喜びはすなわち君の喜び。お互いに成果を分かち合おうじゃないか」
[$W]
[$KNAME]は不意に顔をぐっと寄せると、唇を重ねると熱烈に舌を絡めてきた
[$W]
双方の熱い吐息が口腔を満たし、情欲が鼓動に拍車をかける[$W]
巡る血液がみるみる頬を紅潮させ、帯びた熱が思考を溶かす[$W]
互いに息が切れかけたところで、[$KNAME]が口を解放すると、だらりと滴った互いの唾液が糸を引いた
[$W]
[$KNAME]は口を伝う唾液をぺろりと舐め取ると、すっかり紅潮しきった顔にいたずらな笑みを浮かべた
[$W]
「ふふっ、ほんの挨拶一つでこの有様だ。これから一体どうなってしまうのか……楽しみだね❤」
[$W]</contents>
  </command>
  <command eventId="63" name="服従" priority="1">
    <contents>[$KNAME]は腕を組み顔をしかめ[$MNAME]を見つめている
[$W]
プライドの高い彼女との生活は当初から鍔迫り合いのようなものであった
しかしながら昨今の彼女の態度を見るに、戦局は[$MNAME]に傾きつつあるようだ
[$W]
「……こんどはどんな下卑た考えをその頭の中で弄んでいるのかな？」[$W]
「一研究者としては観察してみたいものだが、さりとて自分から汚物溜の中に頭をつっこむのも気が進ま――っ！？」[$W]
[$W]
彼女の腕を強引に引き、抱き寄せる、唇を重ねて塞ぐ[$W]
その舌が罵倒の言葉を並べ終わる前に自身の絡め取り、表現を奪う
[$W]
[$KNAME]は申し訳程度に抵抗したものの、次第に脱力し、されるがままとなった
[$W]
「キミはいつもそうだ……。私の気持ちなんかなんとも思ってやしないんだろう？」
[$W]
細く華奢な肢体に指を這わせ、弄ぶと身体は敏感に反応し、小動物のように小さく震える
それが意志に準じてか反してなのか、どちらかはわからない。だが、抵抗する気はない
[$W]
「やれやれ全く……私はもう少し自分が賢い人間だと思っていたんだがね……」
[$W]</contents>
  </command>
  <command eventId="64" name="隷属" priority="1">
    <contents>「……はぁ、わかった、わかったよ。降参だ、私の負けだよ」
[$W]
[$KNAME]は力なく項垂れ、自嘲的に笑う
[$W]
「自由を目指して羽ばたいたはいいが……全く、とんだ鳥籠に迷い込んだものだ」[$W]
「おまけに鳥籠の主はあぁ全く……なんとも素敵な御人だろう」
[$W]
[$KNAME]は[$MNAME]に軽口を叩き、見え透いた挑発の言葉を投げつける[$W]
だがその白い頬はすっかり紅潮し、マリンブルーの瞳は情欲に満ちて潤んでいる
強気な態度の裏でどこか[$MNAME]の\"懲罰\"を期待しているようだ
[$W]
「私としては……まぁ我ながら度し難いことだが……この鳥籠の中の暮らしも悪くないと思っているよ」[$W]
「もっともそれは、ご主人様が適切な\"餌\"を振る舞ってくれる限り……だがね」[$W]
[$W]
「ねぇ……ほら、なんとか言ってみたらどうだい？これまでも散々そうしてきたように、生意気な小鳥の翼を押さえつけて、組み伏せて、蹂躙すればよいだろう？」
[$W]
「そうしてくれないと……いつまでもキミの耳元でさえずり続けてしまうよ？」[$W]
「……ねぇ、私の愛しい愛しい……ご主人様……❤」
</contents>
  </command>
  <command eventId="80" name="主人取得" priority="1">
    <contents>「私はね、人にものを教えることにかけては結構自身があったんだ」
「アカデミーでも教壇側に立つことはそう珍しいことではなかったしね」[$W]

「でもねぇ……キミみたいな度し難い生徒は…初めてだよ」[$W]
「だってこれは…その……、どう見ても動物に対する躾だろう？」[$W]

「こう言った傍からもう股座を濡らしているのかい？やれやれ……」[$W]

「どうやら特別補習が…必要みたいだね」[$W]</contents>
  </command>
  <command eventId="81" name="所有者取得" priority="1">
    <contents>「はぁ……やれやれ……とんだ御人のところに転がり込んだものだ」[$W]
「キミとは有益で対等なパートナーシップが築けると、そう思っていたのだが、とんだ思い違いだったらしい」[$W]

[$KNAME]は両腕を[$MNAME]の首筋に絡め、耳元で囁き続ける[$W]

「こらこら、勝手に動いていいなんて、言っていないだろう？」
「キミがいい出したことじゃないか❤　私のものになりたいって」[$W]

「だからキミのお望み通り、そうしてあげよう」
「キミのこの髪も、手も、一挙手一投足から吐息に至るまで、もう私のもの」[$W]
「……無論、心もね❤」[$W]

「……さて、何から始めようか。キミが素直な良い子である限り、私も寛大な主でいてあげよう」[$W]
「何が欲しい？　快楽かな？　痛みかな？　それとも……両方？」[$W]

エルの熱い舌先が[$MNAME]の耳の縁をつっと這う[$W]

「ほら、包み隠さずにキミの欲求をさらけ出してごらん？　でないと……仕置、してしまうよ？」[$W]</contents>
  </command>
  <command eventId="501" name="行為判定成功" priority="1" emotion="!NEGATIVE">
    <contents>「ふふん、まぁこんなところだろうね」</contents>
  </command>
  <command eventId="501" name="行為判定成功" priority="1">
    <contents>「この程度なんてことはないさ」</contents>
  </command>
  <command eventId="502" name="行為判定失敗" priority="1" emotion="!NEGATIVE">
    <contents>「おおっとしまった……！」</contents>
  </command>
  <command eventId="502" name="行為判定失敗" priority="1" emotion="!NEGATIVE" eval="{QST_PARTYNUM >= 2}">
    <contents>「しくじっちゃった……ごめんね！」</contents>
  </command>
</data>


code:
;声が出ない
@KOJO_K7_CANNOT_TALK(エル_対象)
#DIM エル_対象
#DIM エル
#DIM エル_表示フラグ
#DIMS エル_最大部位称
#DIMS エル機嫌

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル_表示フラグ = 0
エル_最大部位称 '= ""

エル = NAME_TO_CHARA("エル")

;口枷（試験的にかなり細かく区切ってみた。ランダム性は上がるが試行回数が足りないので妙な声になる可能性も）
IF SELECTCOM == 86 || IS_EQUIP_TARGET(エル, 86)
	PRINT 「
	PRINTFORM %SPLIT_R("う：ん：ぐ：んご：む：ぷ")%
	PRINTFORM %SPLIT_R("う：：ん：：ぁ：：む：：ぷ")%
	PRINTFORM %SPLIT_R("ー：：：ぅ：：：っ：：：ぉ")%
	PRINTFORM %SPLIT_R("くふ：：：うぷ：：：ぢゅ：：：ふぶ：：：むぁ：：：んぐ")%
	PRINTFORM %SPLIT_R("ー：ぅ：っ")%
	PRINTFORM %SPLIT_R("。：：、：：……")%
	PRINTFORM %SPLIT_R("う：ん：ぐ：んご：む：ぷ")%
	PRINTFORM %SPLIT_R("う：：ん：：ぁ：：む：：ぷ")%
	PRINTFORM %SPLIT_R("ー：：：ぅ：：：っ：：：ぉ")%
	PRINTFORM %SPLIT_R("。う：。ぐ：。ふ：。む：：、あ：、う：、ふ：、ぷ：：ぁは……")%
	PRINTFORM %SPLIT_R("くふ：：：うぷ：：：ぢゅ：：：ふぶ：：：むぁ：：：んぐ")%
	PRINTFORM %SPLIT_R("ー：ぅ：っ")%
	PRINTFORM %SPLIT_R("。：：、：：……")%
	PRINTFORM %SPLIT_R("う：ん：ぐ：んご：む：ぷ")%
	PRINTFORM %SPLIT_R("う：：ん：：ぁ：：む：：ぷ")%
	PRINTFORM %SPLIT_R("ー：：：ぅ：：：っ：：：ぉ")%
	PRINTFORM %SPLIT_R("くふ：：：うぷ：：：ぢゅ：：：ふぶ：：：むぁ：：：んぐ")%
	PRINTFORM %SPLIT_R("ー：ぅ：っ")%
	PRINTFORM %SPLIT_R("……：：：：：：：：")%
	PRINTL 」
	RETURN 0
ENDIF

;バードキス（PLAYERでもTARGETでも）
IF SELECTCOM == 340 || IS_EQUIP(エル, 340)
CFLAG:250 = 1;初めてキスをしたフラグ※パッチ変更部分
	PRINT 「
	;陥落しているか主導権があるとき
	IF CHECK_K7("陥落", エル_対象) || IS_INITIATIVE(エル)
		PRINTDATA
			DATAFORM ちゅっ……ん
			DATAFORM ん。ちゅっ❤　ちゅっ
			DATAFORM ……んっ……ふ
			DATAFORM んくっ……ん
			DATAFORM ちゅ……❤　ん
			DATAFORM ちゅ……っ❤　ふ、あ
		ENDDATA
		PRINTFORM %BREAK_K7("末", エル_対象)%
	;陥落してなくて主導権もないとき
	ELSE
		PRINTDATA
			DATAFORM ……う？　……
			DATAFORM ん……や
			DATAFORM んむ……？　ん
			DATAFORM んんっ！　……う
			DATAFORM ん？　ん……ん
			DATAFORM んむ……？　ん
		ENDDATA
		PRINTFORM %BREAK_K7("末", エル_対象)%
	ENDIF
	PRINTL 」
	RETURN 0
ENDIF

;ソフトキス（PLAYERでもTARGETでも）
IF SELECTCOM == 341 || IS_EQUIP(エル, 341)
CFLAG:250 = 1;初めてキスをしたフラグ※パッチ変更部分
	PRINT 「
	;陥落しているか主導権があるとき
	IF CHECK_K7("陥落", エル_対象) || IS_INITIATIVE(エル)
		PRINTDATA
			DATAFORM ちゅっ❤　んくぅ
			DATAFORM んっ……ちゅっ❤　んっ
			DATAFORM んぅ……❤　ちゅっ
			DATAFORM んんっ❤　あむ
			DATAFORM んぅ、ん。ちゅっ
			DATAFORM んぅ
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%

		PRINTDATA
			DATAFORM あむ……ふっ。んんっ
			DATAFORM ふぁ
			DATAFORM ふ❤　んく。はぁ
			DATAFORM ん……ふ
			DATAFORM んく
			DATAFORM ちゅ
		ENDDATA
		PRINTFORM %BREAK_K7("末", エル_対象)%
	;陥落してなくて主導権もないとき
	ELSE
		PRINTDATA
			DATAFORM ……う……
			DATAFORM むっ……う
			DATAFORM むく、ん
			DATAFORM ん……んく
			DATAFORM くっ……う、ん
			DATAFORM んくぅ……
		ENDDATA
		PRINTDATA
			DATAFORM っ。や。ふ
			DATAFORM 、くふ
			DATAFORM ふ……ぁく
			DATAFORM ん……
			DATAFORM 。ふぁ
			DATAFORM んぅ
		ENDDATA
		PRINTFORM %BREAK_K7("末", エル_対象)%
	ENDIF
	PRINTL 」
	RETURN 0
ENDIF

;キス（閨）ディープキス（PLAYERでもTARGETでも）
IF SELECTCOM == 20 || SELECTCOM == 342 || IS_EQUIP(エル, 20, 342)
CFLAG:250 = 1;初めてキスをしたフラグ※パッチ変更部分
	;陥落しているか主導権があるとき
	IF CHECK_K7("陥落", エル_対象) || IS_INITIATIVE(エル)
		PRINT 「
		PRINTDATA
			DATAFORM ちゅっ。んんっ
			DATAFORM はぁ
			DATAFORM く、んっ……
			DATAFORM んんっ。はぁ………
			DATAFORM んんっ
			DATAFORM ん
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%

		PRINTDATA
			DATAFORM あむ。ふ
			DATAFORM ふぁ
			DATAFORM ふ、んく
			DATAFORM んっ…ふぅ
			DATAFORM んぷあ
			DATAFORM ちゅ
		ENDDATA
		PRINTFORM %BREAK_K7("中", エル_対象)%

		PRINTDATA
			DATAFORM んっ……んっ
			DATAFORM れる、ちゅ
			DATAFORM く、ふぁ。れぅ
			DATAFORM あむっ……はむ、ん
			DATAFORM んっ
		ENDDATA
		PRINTDATA
			DATAFORM あむ。ふ
			DATAFORM んんぅ
			DATAFORM はぁ
			DATAFORM っ
			DATAFORM ん。ぷ、ふあ
			DATAFORM ちゅ。はふ
		ENDDATA
		PRINTFORM %BREAK_K7("末", エル_対象)%
		PRINTL 」

	;陥落してなくて主導権もないとき
	ELSE
		PRINT 「
		PRINTDATA
			DATAFORM ……う……
			DATAFORM むっ……う
			DATAFORM あぐ、んれぇ
			DATAFORM ふ……んぐ
			DATAFORM くっ……う、ん
			DATAFORM んくぅ……
		ENDDATA
		PRINTDATA
			DATAFORM っ。や。ふ
			DATAFORM 、くふ
			DATAFORM ふ……んく
			DATAFORM ん……
			DATAFORM 。ふぁ
			DATAFORM んぅ
		ENDDATA
		PRINTFORM %BREAK_K7("末", エル_対象)%
		PRINTL 」
	ENDIF
	RETURN 0
ENDIF

;その他
;PLAYER 2=クンニ 8=アナル舐め 9=乳首吸い 11=フェラ 20=キス 104=足舐め 107=亀頭フェラ 330=日常口奉仕
;TARGET 90=イラマ 101=顔面騎乗 102=Ａ顔面騎乗 105=Ｗ顔面騎乗 132=口内放尿 210=触手口辱

PRINT 「
PRINTDATA
	DATAFORM ん、んぐ
	DATAFORM んれぇ……ぢゅ
	DATAFORM くふ、ぢゅうっ
	DATAFORM あむっ
	DATAFORM んぇ
	DATAFORM んぁむ
	DATAFORM んぷ
	DATAFORM じゅるるっ、んぐっ
ENDDATA
PRINTDATA
	DATAFORM 、あむ、ふ
	DATAFORM 、ふ、ぅぷ
	DATAFORM ……ん、む、ふぐ
	DATAFORM ……ふぐぅ。ふ
	DATAFORM 。ん。ぷ
	DATAFORM 。ぷふぁ
	DATAFORM 。あぷ、ふ
ENDDATA
PRINTFORM %BREAK_K7("中", エル_対象)%

PRINTDATA
	DATAFORM はあっ、は
	DATAFORM ふぅっ！　ん
	DATAFORM はぷっ！　んぅ
	DATAFORM はあっ！　はぁ
	DATAFORM んはぁ
	DATAFORM はーっ、ふ
	DATAFORM はぁ
ENDDATA
PRINTFORM %BREAK_K7("中", エル_対象)%

PRINTDATA
	DATAFORM んく
	DATAFORM んれぇうぅ
	DATAFORM くふぅちゅぷ、んぅ
	DATAFORM んくう、ぢゅ
	DATAFORM んぇ……むぁ
	DATAFORM れう
	DATAFORM んふ
ENDDATA
PRINTDATA
	DATAFORM ふぐ。んふぅ
	DATAFORM んぷ
	DATAFORM はぷ
	DATAFORM ……ぉ、ふ
	DATAFORM ……ん。ぷはぁ
	DATAFORM ……んぷ、ぢゅ
ENDDATA
PRINTFORM %BREAK_K7("末", エル_対象)%

PRINTL 」

;───────────────────────────────────────
;●戻る
;───────────────────────────────────────
RETURN 0

;───────────────────────────────────────
;◆行為後感想
;───────────────────────────────────────

@KOJO_K7_NOTTALK_AFTER(エル_対象)
#DIM エル
#DIM エル_対象
#DIMS エル機嫌
#DIM エル_表示フラグ
#DIMS エル_最大部位称

IF !エル_対象
	エル_対象 = MASTER
ENDIF

エル = NAME_TO_CHARA("エル")
エル機嫌 '= TOSTR_EMOTION(エル)
エル_表示フラグ = 0
エル_最大部位称 '= ""

CALL KOJO_K7_MESSAGE_AFTER(エル_対象)

;───────────────────────────────────────
;●戻る
;───────────────────────────────────────
RETURN 0