コマンドバトルRPG×エロステータス調教シミュレーションゲーム「eraMegaten」攻略・開発Wiki　※本作は二次創作フリーゲームです

口上テンプレ

履歴

追加された行はこの色です。
削除された行はこの色です。

口上テンプレは色々な形式があるので、このページで説明していきます
----
#contents
----
*EVENT_KX1_ALL(旧)
-多分口上の中で一番シンプル
-各項目にPRINTFORMでセリフを入れていく
-屈服刻印Lv3やそれ以外のみに口上を入れると、陥落後しゃべらなくなる問題があった
[+]
**形式
[+]
CASE 0
　CALL TRAIN_MESSAGE
　;初めて
　IF CFLAG:300 == 0
　　PRINTFORMW
　　CFLAG:300 = 1
　;二回目以降
　ELSE
　　;陥落済み
　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:300 < 4 || FLAG:7 == 2)
　　　;恋慕、親愛
　　　IF TALENT:3 || TALENT:6
　　　　PRINTFORMW
　　　;淫乱、娼婦
　　　ELSEIF TALENT:4 || TALENT:7
　　　　PRINTFORMW
　　　;服従、隷属
　　　ELSEIF TALENT:5 || TALENT:8
　　　　PRINTFORMW
　　　ENDIF
　　CFLAG:300 = 4
　　;屈服刻印Lv3
　　ELSEIF MARK:2 == 3 && (CFLAG:300 < 3 || FLAG:7 == 2)
　　　PRINTFORMW
　　　CFLAG:300 = 3
　　;それ以外
　　ELSEIF CFLAG:300 < 2 || FLAG:7 == 2
　　　PRINTFORMW
　　　CFLAG:300 = 2
　　ENDIF
　ENDIF
[END]
**使用例
[+]
CASE 0
　CALL TRAIN_MESSAGE
　;初めて
　IF CFLAG:300 == 0
　　PRINTFORMW 「初めてのキスはどんな味？」
　　CFLAG:300 = 1
　;二回目以降
　ELSE
　　;陥落済み
　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:300 < 4 || FLAG:7 == 2)
　　　;恋慕、親愛
　　　IF TALENT:3 || TALENT:6
　　　　PRINTFORMW
　　　;淫乱、娼婦
　　　ELSEIF TALENT:4 || TALENT:7
　　　　PRINTFORMW
　　　;服従、隷属
　　　ELSEIF TALENT:5 || TALENT:8
　　　　PRINTFORMW 「給食の揚げパンが大嫌いなんだ〜」
　　　ENDIF
　　CFLAG:300 = 4
　　;屈服刻印Lv3
　　ELSEIF MARK:2 == 3 && (CFLAG:300 < 3 || FLAG:7 == 2)
　　　PRINTFORMW 「もみあげ刺すな〜」
　　　CFLAG:300 = 3
　　;それ以外
　　ELSEIF CFLAG:300 < 2 || FLAG:7 == 2
　　　PRINTFORMW 「ズンドコべろべろ」
　　　CFLAG:300 = 2
　　ENDIF
　ENDIF
[END]
[END]
**使用してる口上
-EVENT_K4502_ユミ_ALL
-EVENT_K4501_ベス_ALL　等々多数
--一番古い口上なので一番使われている

*EVENT_KX1_ALL(新)
-EVENT_KX1_ALL(旧)の陥落後しゃべらなくなる問題を解決したもの
-形式を変えて三種陥落ごとにコメントアウトできるように
-使わない陥落はコメントアウトしておく
-三種陥落全てをコメントアウトすると屈服刻印Lv3をしゃべってくれる
[+]
**形式
[+]
　CASE 2
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:302 == 0
　　　PRINTFORMW
　　　CFLAG:302 = 1
　　;二回目以降　　　　　
　　ELSE　　　
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8 || MARK:2 == 3) && (CFLAG:302 < 3 || FLAG:7 == 2)　　
　　　　;通す　
　　　　IF 0 == (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8 || MARK:2 == 3) && (CFLAG:302 < 3 || FLAG:7 == 2)　
　　　　;恋慕、親愛　
　　　　;ELSEIF TALENT:3 || TALENT:6 && (CFLAG:302 < 4 || FLAG:7 == 2)　
　　　　;　PRINTFORMW
　　　　;　CFLAG:302= 4
　　　　;淫乱、娼婦　
　　　　;ELSEIF TALENT:4 || TALENT:7 && (CFLAG:302 < 4 || FLAG:7 == 2)　
　　　　;　PRINTFORMW
　　　　;　CFLAG:302= 4
　　　　;服従、隷属　
　　　　;ELSEIF TALENT:5 || TALENT:8 && (CFLAG:302 < 4 || FLAG:7 == 2)　
　　　　;　PRINTFORMW
　　　　;　CFLAG:302= 4
　　　　;屈服刻印Lv3　
　　　　ELSE　
　　　　　PRINTFORMW
　　　　　CFLAG:302= 3
　　　　ENDIF　
　　　;それ以外　　
　　　ELSEIF CFLAG:302 < 2 || FLAG:7 == 2
　　　　PRINTFORMW
　　　　CFLAG:302 = 2
　　　ENDIF
　　ENDIF
-最初から陥落口上の左に；でコメントアウトしてある
[END]
**使用例
[+]
　CASE 2
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:302 == 0
　　　PRINTFORMW 「初めてのキスはどんな味？」
　　　CFLAG:302 = 1
　　;二回目以降　　　　　
　　ELSE　　　
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8 || MARK:2 == 3) && (CFLAG:302 < 3 || FLAG:7 == 2)　　
　　　　;通す　
　　　　IF 0 == (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8 || MARK:2 == 3) && (CFLAG:302 < 3 || FLAG:7 == 2)　
　　　　;恋慕、親愛　
　　　　;ELSEIF TALENT:3 || TALENT:6 && (CFLAG:302 < 4 || FLAG:7 == 2)　
　　　　;　PRINTFORMW
　　　　;　CFLAG:302= 4
　　　　;淫乱、娼婦　
　　　　;ELSEIF TALENT:4 || TALENT:7 && (CFLAG:302 < 4 || FLAG:7 == 2)　
　　　　;　PRINTFORMW
　　　　;　CFLAG:302= 4
　　　　;服従、隷属　
　　　　ELSEIF TALENT:5 || TALENT:8 && (CFLAG:302 < 4 || FLAG:7 == 2)　
　　　　　PRINTFORMW 「給食の揚げパンが大嫌いなんだ〜」
　　　　　CFLAG:302= 4
　　　　;屈服刻印Lv3　
　　　　ELSE　
　　　　　PRINTFORMW 「もみあげ刺すな〜」
　　　　　CFLAG:302= 3
　　　　ENDIF　
　　　;それ以外　　
　　　ELSEIF CFLAG:302 < 2 || FLAG:7 == 2
　　　　PRINTFORMW 「ズンドコべろべろ」
　　　　CFLAG:302 = 2
　　　ENDIF
　　ENDIF
-使用する陥落のみコメントアウトする
[END]
[END]
**使用してる口上
-EVENT_K757_セイリュウ_ALL
-EVENT_K4998_ダークサマナー
-EVENT_K4669_千早_ALL　など
--新規口上はこれが使われているものがある
*EVENT_KX1_ALL VER.2.1
-LOCALSにセリフがあるか無いかで判断して陥落〜それ以外まで調べられるようになった
-IF、ENDIFを多用し陥落から下は「 && LOCALS:0 == ""」が使われている
-関数の最初と最後に専用の処理がある
[+]
**形式
[+]
;-------------------------------------------------
;LOCALS
;-------------------------------------------------
FOR GYOU,0,51
　LOCALS:GYOU =
　LOCAL:GYOU = 0
NEXT
＝＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　PRINTFORML
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　LOCALS:0 =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　LOCALS:0 =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　LOCALS:0 =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF LOCALS:0 == ""
　　　　　LOCALS:0 =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && LOCALS:0 == ""
　　　　LOCALS:0 =
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && LOCALS:0 == ""
　　　　PRINTFORML
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝＝＝
FOR GYOU,0,51
　SIF LOCALS:GYOU == ""
　　BREAK
　PRINTFORM %LOCALS:GYOU%
　IF LOCAL:GYOU
　　PRINTW
　ELSE
　　PRINTL
　ENDIF
NEXT
SIF LOCAL:GYOU == 0
　PRINTW
[END]
**使用例1
[+]
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　PRINTFORML 「初めてのキスはどんな味？」
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　LOCALS:0 =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　LOCALS:0 =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　LOCALS:0 = 「給食の揚げパンが大嫌いなんだ〜」
　　　　　LOCALS:1 = 「ずっどおおおおおん！！！！」
　　　　　LOCALS:2 = 「ぼかああああああん！！！！」
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF LOCALS:0 == ""
　　　　　LOCALS:0 =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && LOCALS:0 == ""
　　　　LOCALS:0 = 「もみあげ刺すな〜」
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && LOCALS:0 == ""
　　　　PRINTFORML 「ズンドコべろべろ」
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
[END]
**使用例2
[+]
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　PRINTFORML 「初めてのキスはどんな味？」
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　LOCALS:0 =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　LOCALS:0 =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　PRINTFORML 「給食の揚げパンが大嫌いなんだ〜」
　　　　　LOCALS:0 = ＿＿
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF LOCALS:0 == ""
　　　　　LOCALS:0 =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && LOCALS:0 == ""
　　　　PRINTFORML 「もみあげ刺すな〜」
　　　　LOCALS:0 = ＿＿
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && LOCALS:0 == ""
　　　　PRINTFORML 「ズンドコべろべろ」
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
-PRINTFORMで口上を出してる
-＿＿は空白部分
-LOCALSに文字が入っていればしゃべったと認識してくれる
-PRINTFORMでしゃべってる所だけに使う
[END]
[END]
**使用してる口上
-EVENT_K4669_千早_ALL

*EVENT_KX1_ALL VER.3.0
-口上用変数のKSTRができCALL ○○で移動しても文字を挿入できるようになった
--それに伴い口上用変数.ERHができたため、ERBファイルに入れておく必要がある
-KSTR:(K++)にセリフを入れていく
-KSTRにセリフがあるか無いかで判断して陥落〜それ以外まで調べられるようになった
-さらになかった場合は「○○系コマンドその他」という共通の項目に行く
--例:愛撫系コマンドその他に書き込めば、尻愛撫や羽愛撫などセリフを書いていなければこの項目のセリフをしゃべる
-関数の終わりと初めに専用の処理がある
[+]
**形式
[+]
K = 0
VARSET KSTR
VARSET W
CALLFORM COMTYPE_{SELECTCOM}
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　;KSTR:(K++) =
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;KSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;KSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;KSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == ""
　　　　　;KSTR:(K++) =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && KSTR:0 == ""
　　　　;KSTR:(K++) =
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && KSTR:0 == ""
　　　　;KSTR:(K++) =
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
;-------------------------------------------------
;○○系コマンドその他
;-------------------------------------------------
　　IF KSTR:0 == ""
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && FLAG:7 == 2
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;KSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;KSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;KSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == ""
　　　　　;KSTR:(K++) =
　　　　ENDIF
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && FLAG:7 == 2 && KSTR:0 == ""
　　　　;KSTR:(K++) =
　　　ENDIF
　　　;それ以外
　　　IF FLAG:7 == 2 && KSTR:0 == ""
　　　　;KSTR:(K++) =
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
SIF KSTR:0 == ""
　RETURN 0
FOR K,0,501
　SIF KSTR:K == ""
　　BREAK
　PRINTFORM %KSTR:K%
　IF W:(K + 1)
　　PRINTW
　ELSE
　　PRINTL
　ENDIF
NEXT
SIF W:K == 0
　PRINTW
[END]
**使用例
[+]
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　KSTR:(K++) = 「初めてのキスはどんな味？」
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　KSTR:(K++) = 「給食の揚げパンが大嫌いなんだ〜」
　　　　　KSTR:(K++) = 「いやだ〜〜〜〜〜」
　　　　　KSTR:(K++) = 「もみあげが襲ってくる〜〜〜」
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　KSTR:(K++) = 「もみあげ刺すな〜」
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　KSTR:(K++) = 「ズンドコべろべろ」
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == ""
　　　　　;KSTR:(K++) =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && KSTR:0 == ""
　　　　;KSTR:(K++) =
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && KSTR:0 == ""
　　　　;KSTR:(K++) =
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
;-------------------------------------------------
;○○系コマンドその他
;-------------------------------------------------
　　IF KSTR:0 == ""
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && FLAG:7 == 2
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;KSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;KSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;KSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == ""
　　　　　;KSTR:(K++) =
　　　　ENDIF
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && FLAG:7 == 2 && KSTR:0 == ""
　　　　;KSTR:(K++) =
　　　ENDIF
　　　;それ以外
　　　IF FLAG:7 == 2 && KSTR:0 == ""
　　　　KSTR:(K++) =「ズンドコ」
　　　ENDIF
　　ENDIF
-こういう書き方にすれば陥落してなければその他、陥落すればその口上のセリフをしゃべる
-特に特別な書き込みはいらず　KSTR:(K++)　に文章を入れれば２行、３行セリフを書ける
-使わない項目の　KSTR:(K++)　はコメントアウトしておく
[END]
[END]
**使用してる口上
EVENT_K4518_1_あかり_ALL VER.3.0
EVENT_K801_ネコマタ_1_ALL
EVENT_K878_イナバシロウサギ_1_ALL
*EVENT_KX1_ALL VER.3.1
-VER.3.0をベースに口上用変数をKSTR、WSYR、NSTRの３つになりPRINTFORMのようなことができやすいようになった
--それに伴い口上用変数.ERHができたため、ERBファイルに入れておく必要がある(VER3.1)
-KSTRは文章+改行(PRINTFORML)、WTSRは文章+WAIT(PRINTFORMW)、NSTRは改行なし文章(PRINTFORM)
--以下各STRと表記する
-口上用変数なのでCALL ○○で移動しても文字を挿入できます
-各STR:(K++)にセリフを入れていく
-各STRにセリフがあるか無いかで判断して陥落〜それ以外まで調べられるようになった
-さらになかった場合は「○○系コマンドその他」という共通の項目に行く
--例:愛撫系コマンドその他に書き込めば、尻愛撫や羽愛撫などセリフを書いていなければこの項目のセリフをしゃべる
-関数の終わりと初めに専用の処理がある
-書く項目をかなり減らした初心者向け口上テンプレがある(2019/04/02に更新)
[+]
**形式
[+]
VARSET KSTR
VARSET WSTR
VARSET NSTR
K = 0
CALLFORM COMTYPE_{SELECTCOM}
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　;WSTR:(K++) =
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;WSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;WSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　;WSTR:(K++) =
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　;WSTR:(K++) =
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
;-------------------------------------------------
;○○系コマンドその他
;-------------------------------------------------
　　IF KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && FLAG:7 == 2
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;WSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;WSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && FLAG:7 == 2 && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　;WSTR:(K++) =
　　　ENDIF
　　　;それ以外
　　　IF FLAG:7 == 2 && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　;WSTR:(K++) =
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
FOR K,0,51
　SIF KSTR:K == "" && WSTR:K == "" && NSTR:K == ""
　　BREAK
　IF !(KSTR:K == "")
　　PRINTFORML %KSTR:K%
　ELSEIF !(WSTR:K == "")
　　PRINTFORMW %WSTR:K%
　ELSEIF !(NSTR:K == "")
　　PRINTFORM %NSTR:K%
　ENDIF
NEXT
SIF K == 0 || WSTR:(K - 1) == ""
　PRINTW
[END]
**使用例
[+]
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　KSTR:(K++) =「初めてのキスはどんな味？」
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　NSTR:(K++) = 「給食の揚げパンが
　　　　　WSTR:(K++) = 大嫌いなんだ〜」
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　KSTR:(K++) = 「もみあげが襲ってくる〜〜〜」
　　　　　KSTR:(K++) = 「もみあげ刺すな〜」
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　NSTR:(K++) = 「いやだ〜〜〜〜〜
　　　　　KSTR:(K++) = 〜」
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　;WSTR:(K++) =
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　;WSTR:(K++) =　　　　
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
;-------------------------------------------------
;○○系コマンドその他
;-------------------------------------------------
　　IF KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && FLAG:7 == 2
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;WSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;WSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && FLAG:7 == 2 && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　;WSTR:(K++) =
　　　ENDIF
　　　;それ以外
　　　IF FLAG:7 == 2 && KSTR:0 == "" && WSTR:0 == "" && NSTR:0 == ""
　　　　WSTR:(K++) =「ズンドコべろべろ」
　　　ENDIF
　　ENDIF
-特に特別な書き込みはいらずPRINTFORMのように　KSTR:(K++)　WSTR:(K++)　NSTR:(K++)のように使い分ければいい
-使わない項目の　各STR:(K++)　はコメントアウトしておく(テンプレには最初からコメントアウトしてある)
[END]
[END]
**使用してる口上
EVENT_K4771_トキ_ALL VER.3.1
*EVENT_KX1_ALL VER.3.2
-VER.3.1の表示部分と初期化部分とを関数化したもの
--それに伴い口上用関数.ERBというファイルができた
-口上用関数.ERBには4種類ある
--口上変数初期化…3.1の各STR初期化と、Kを0にする
--口上変数表示……各STRの中身を表示する
--WSTR書き込み……引数の行のWSTRに各STRに入っている口上を入れる。絶頂時等に使用している
--口上有無確認……FUNCTION関数　引数の行の口上が入っているか調べる。引数はほとんど0。Kを口上のない行の数にする処理もしている
-書く項目をかなり減らした初心者向け口上テンプレがある
[+]
**形式
[+]
CALL 口上変数初期化
CALLFORM COMTYPE_{SELECTCOM}
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　;WSTR:(K++) =
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;WSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;WSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF !口上有無確認(0)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && !口上有無確認(0)
　　　　;WSTR:(K++) =
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && !口上有無確認(0)
　　　　;WSTR:(K++) =
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
;-------------------------------------------------
;○○系コマンドその他
;-------------------------------------------------
　　IF !口上有無確認(0)
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && FLAG:7 == 2
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;WSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;WSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF !口上有無確認(0)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && FLAG:7 == 2 && !口上有無確認(0)
　　　　;WSTR:(K++) =
　　　ENDIF
　　　;それ以外
　　　IF FLAG:7 == 2 && !口上有無確認(0)
　　　　;WSTR:(K++) =
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
CALL 口上変数表示
[END]
**使用例
[+]
　CASE 1
　　CALL TRAIN_MESSAGE
　　;初めて
　　IF CFLAG:301 == 0
　　　KSTR:(K++) =「初めてのキスはどんな味？」
　　　CFLAG:301 = 1
　　ELSE
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && (CFLAG:301 < 3 || FLAG:7 == 2)
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　NSTR:(K++) = 「給食の揚げパンが
　　　　　WSTR:(K++) = 大嫌いなんだ〜」
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　KSTR:(K++) = 「もみあげが襲ってくる〜〜〜」
　　　　　KSTR:(K++) = 「もみあげ刺すな〜」
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　NSTR:(K++) = 「いやだ〜〜〜〜〜
　　　　　KSTR:(K++) = 〜」
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF !口上有無確認(0)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　CFLAG:301 = 4
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && (CFLAG:301 < 2 || FLAG:7 == 2) && !口上有無確認(0)
　　　　;WSTR:(K++) =
　　　　CFLAG:301 = 3
　　　ENDIF
　　　;それ以外
　　　IF (CFLAG:301 || FLAG:7 == 2) && !口上有無確認(0)
　　　　;WSTR:(K++) =　　　　
　　　　CFLAG:301 = 2
　　　ENDIF
　　ENDIF
＝＝＝＝＝＝＝＝＝＝＝＝省略＝＝＝＝＝＝＝＝＝＝＝＝
;-------------------------------------------------
;○○系コマンドその他
;-------------------------------------------------
　　IF !口上有無確認(0)
　　　IF (TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8) && FLAG:7 == 2
　　　　;恋慕、親愛
　　　　IF (TALENT:3 || TALENT:6)
　　　　　;WSTR:(K++) =
　　　　;淫乱、娼婦　
　　　　ELSEIF (TALENT:4 || TALENT:7)
　　　　　;WSTR:(K++) =
　　　　;服従、隷属　
　　　　ELSEIF (TALENT:5 || TALENT:8)
　　　　　;WSTR:(K++) =
　　　　ENDIF
　　　　;陥落済み共通
　　　　IF !口上有無確認(0)
　　　　　WSTR:(K++) =
　　　　ENDIF
　　　ENDIF
　　　;屈服刻印Lv3
　　　IF MARK:2 == 3 && FLAG:7 == 2 && !口上有無確認(0)
　　　　;WSTR:(K++) =
　　　ENDIF
　　　;それ以外
　　　IF FLAG:7 == 2 && !口上有無確認(0)
　　　　WSTR:(K++) =「ズンドコべろべろ」
　　　ENDIF
　　ENDIF
-陥落済み共通の所がうっかりコメントアウトを外しているが、口上有無確認を呼びだすたびにKを口上のない行に移動しているので問題はない
[END]
[END]
**使用してる口上
EVENT_K4560_千枝(19/04/28に3.2に復元された)

*EVENT_KX1_ALL VER.3.3
-タイプBテンプレ(EVENT_KX1_ALL VER.3.3 TYPE.B)が追加された。
-無印、タイプB双方とも書く項目をかなり減らした初心者向け口上テンプレがある。
-形式と使用例はVER.3.2と一緒
--VER.3.2に新しく二つの要素が追加されただけなのでほとんど変わってない
-口上用変数K_CALLが追加された。
[+]
**K_CALLのおすすめの使い道
��AA(アスキーアート)を使う時
��TRAIN_MASSEGE等の既存の必ずPRINTを使用している関数を呼び出す時
�Ｈ廠僂離▲鵐澄璽弌�(_)をどうしても口上で使用したいとき

※KSTR:(K++)の場合、PRINT_STRを経由してしまうため_が消えてしまう
　なのでKSTR:(K++)はAA使用に不向き
**使用例
K_CALL:K = SIAN
KSTR:(K++) = SIANをK_CALLで呼び出したい
K_CALL:K = RED
K_CALL:K = YERROW
;↑二回連続で設定しても読み込むのは一つ
;※この場合後から入力したYERROWのほうになる

@SIAN
PRINTL シ_ア_ン
;↑K_CALLで呼び出す口上はPRINTを使用する
;※KSTR:(K++) = にしてしまうと一番最後にそれを喋るようになる
@RED
PRINTL レッド
@YERROW
PRINTL 黄色

上記の準備で口上変数表示を呼び出す

結果
↓
シ_ア_ン
SIANをKCALLで呼び出したい
黄色
;一行目はPRINTで表示してるので_を書き込んでる
;二行目はPRINT_STRを経由しているので_が消えている
;三行目はREDが上書きされてYERROWを呼び出してる
[END]
-口上用関数の口上変数表示にPRINT_STRの処理が組み込まれている。
[+]
**使用例��
KSTR:(K++) = 一人称_ね…、_二人称_のせいでとてもエッチな子になっちゃった…
↓
ぼくね…、きみのせいでとてもエッチな子になっちゃった…
※調教対象の一人称が「ぼく」、二人称が「きみ」の場合
**使用例��
KSTR:(K++) = %CSTR:一人称%ね…、_二人称_のせいでとてもエッチな子になっちゃった…
↓
ぼくね…、きみのせいでとてもエッチな子になっちゃった…
※CSTRもいつも通り使える
**使用例��
KSTR:(K++) = あんっ_PH_気持ちいいよぉ…_PH
↓
あんっ○気持ちいいよぉ…○
※○の部分にはピンク色のハートが入る
　%UNICODE(0x2661)%を使わずバランスよく口上を書けるようになりました

**「_」で区切った対応する文字
・CALLNAME:TARGET、調教対象、被調教者
　　　調教対象(TARGET)の呼び名を呼び出す
　　　
・CALLNAME:PLAYER、調教者
　　　現在調教しているキャラの呼び名を呼び出す
　　　（助手と交代してる場合は助手、してない場合はあなた）
　　　
・CALLNAME:ASSI、助手呼、助手
　　　助手の呼び名を呼び出す
　　　
・CALLNAME:MASTER、主人、主人公
　　　あなたの呼び名を呼び出す
　　　
・一人称
　　　調教対象(TARGET)のキャラの一人称を呼び出す
　　　
・二人称
　　　調教対象(TARGET)の二人称を呼び出すが、
　　　助手と交代してる場合は
　　　助手の呼び名を呼び出す
　　　
・第三者
　　　助手の呼び名を呼び出すが、
　　　助手と交代してる場合は
　　　調教対象(TARGET)の二人称を呼び出す
　　　
・主人呼
　　　第二引数のキャラの二人称を呼び出す
　　　
・呼び名
　　　第二引数のキャラの呼び名を呼び出す
　　　
・名前
　　　第二引数のキャラの名前を呼び出す
　　　
・BUTTON
　　　次の文字をボタンにする
　　　※器用に扱える人でない限り使わない方がいい
　　　
・NOBUTTON
　　　次の文字をボタンにしない
　　　※器用に扱える人でない限り使わない方がいい
　　　
・CALL
　　　次の文字をCALLで呼び出す
　　　引数は設定できない（「,」や「()」を入れるとエラーがでる）
　　　存在しない関数を呼び出すとエラーがでる
　　　※口上を呼び出す場合、PRINTやPRINTFORM等を使うように
　　　
・INPUT
　　　INPUTを呼び出す
　　　数字入力を呼び出す
　　　※器用に扱える人でない限り使わない方がいい
　　　
・INPUTS
　　　INPUTSを呼び出す
　　　文字入力を呼び出す
　　　※器用に扱える人でない限り使わない方がいい
　　　
・-
　　　次の文字に打消し線を引く
　　　
・L、改行
　　　改行する
　　　
・W、WAIT
　　　WAITを呼び出す（止まる）
　　　
・FORCEWAIT
　　　FORCEWAITを呼び出す
　　　
・H
　　　ハートマークを呼び出す（UNICODE(0x2665)）
　　　
・WH
　　　白抜きのハートマークを呼び出す（UNICODE(0x2661)）
　　　
・BH
　　　全角のハートマークを呼び出す（UNICODE(0x2764)）
　　　
・PH
　　　ピンク色のハートマークを呼び出す（UNICODE(0x2665)）
　　　
・WPH
　　　ピンク色の白抜きのハートマークを呼び出す（UNICODE(0x2661)）
　　　
・BPH
　　　ピンク色の全角のハートマークを呼び出す（UNICODE(0x2764)）
　　　
・／／／
　　　ピンク色の「///」を呼び出す（照れている表現？）
　　　
・赤等のCOLOR関数に対応した文字
　　　次の文字をその色に変える（黒（0x000000）以外）
　　　※変えるのは次の文字のみ
　　　
・「CALL 」で始まる文字列
　　　「CALL 」以降の文字列をCALLで呼び出す
　　　引数は設定できない（「,」や「()」を入れるとエラーがでる）
　　　存在しない関数を呼び出すとエラーがでる
　　　※口上を呼び出す場合、PRINTやPRINTFORM等を使うように
[END]


**使用してる口上
EVENT_K4664_芳澤かすみ_ALL VER.3.3 TYPE.B
 

どなたでも編集できます