里々で簡単なコマンド入力を受け付けるスクリプト。
自分用に作ったのですが、何かに使えればご自由にお使いください。

入力されたコマンドは"、"で区切られ後ろに付け足されていきます。
コマンドの完成時以外はポストの「＞（Ｒ０）が押された」と同じ動きをします。
昇龍拳やコナミコマンドはサンプルです。
この形でなくても動きますが、コマンドの認識にはcompare_tailを使うのが安全だと思います。
コマンドの完成時やゴーストの終了時には＄コマンドと＄分割数を消したほうがいいです。

＊OnKeyPress
＄コマンド【タブ】（if,（count,（コマンド）,コマンド）==0,（コマンド）、）（Ｒ０）
＃ここにコマンドを書く
＞昇龍拳【タブ】（compare_tail,（コマンド）,right、down、right、p）||（compare_tail,（コマンド）,6、2、3、p）
＞波動拳【タブ】（compare_tail,（コマンド）,down、right、p）||（compare_tail,（コマンド）,2、3、6、p）
＞竜巻旋風脚【タブ】（compare_tail,（コマンド）,down、left、k）||（compare_tail,（コマンド）,2、1、4、k）
＞コナミコマンド【タブ】（compare_tail,（コマンド）,up、up、down、down、left、right、left、right、b、a）||（compare_tail,（コマンド）,8、8、2、2、4、6、4、6、b、a）
＄分割数【タブ】（split,（コマンド）,、）
＞（Ｓ（han2zen,（calc,（分割数）-1）））が押された

＊昇龍拳
：昇龍拳！

＊波動拳
：波動拳！

＊竜巻旋風脚
：竜巻旋風脚！

＊コナミコマンド
：フル装備！

拍手。
8日、9日、11日に頂いています。ありがとうございます。

＞8日の方
＞やっと■が届いて嬉しい限り
届いてよかったです。ご迷惑をおかけしました。
＞顔赤くして戻ってくるのがとくにｗ
ああいう状況には慣れてないでしょうからものすごく動揺しているはずです。
その先にも色々変化をつけられればいいんですけどね。

＞9日の方
＞結婚ですね、分かります
ご想像にお任せします。
もしかしたら、単に「二度とこんな姿はごめんだ」という程度の意味かもしれません。

＞もう一つ9日の方
＞ユーザー名が「あなた」に固定
一言で言ってしまえば仕様です。
そこそこの時間一緒にいるし今は何もできないのに生け贄くれるし
いつまでも人間と呼ぶのもどうかと思った彼女なりの配慮だと思ってください。

奈落の王をねとわくしました。

拍手。
8月の26日、28日、29日、30日、
9月の1日から4日と7日に頂きました。
ありがとうございます。