プログラマブル準AIモジュール "華和梨" インラインスクリプト リファレンスマニュアル

例
  # dataエントリ内の単語を調べ、「END」だったらループから抜ける
  $(
    setstr @count 0;
    loop $(size data) $(
      if $[ $data[${@count}] == "END" ] $(
        break;
      ) else $(
        inc @count;
      );
    );
    get data[${@count}];
  )

例
  # dataエントリの単語で「ゴースト」を含む単語のみdata2エントリにコピー
  $(
    loop $(size data) $(
        setstr @count ${-1};
        echo $data[${@count}];
        if $[ $data[${@count} !~ "ゴースト" ] $(
            continue;
        );
        pushstr data2 $data[${@count}];
    );
  )

関数コマンドを定義する。 関数定義中、@argエントリが引数として使用できる。$@arg[0]は関数名で、 引数は$@arg[1]からとなる。 関数定義全体の戻り値が、関数の戻り値となる。

組み込み関数と同じ名前のコマンド(ただし、構文コマンドは不可)も定義可能。 同名の組み込みコマンドとユーザ定義コマンドが存在した場合、 ユーザ定義コマンドが優先して呼び出される。 その場合、先頭に"."を付けて呼び出すことにより、 元の組み込みコマンドを強制的に呼び出すことができる。

引数が関数名だけだった場合、関数定義の内容の文字列表現が返る。 この戻り値は、関数定義内容をエントリに記述し、 getcodeコマンドでエントリを呼び出した場合と等価である。

例
  =kis
  # エントリにセットした値を戻り値とする関数を定義する
  function tset $(
    # 引数が2個でなければ何もしない
    if $[ $(size @arg) != 3 ] $(return "");
    set $@arg[1] $(getcode @arg[2]);
    get @arg[2];
  );
  # ユーザ定義関数tsetの定義を、funcdefエントリに格納
  set funcdef $(function tset);
  =end

例1
  $(if $[ ${mode} == "Y" ] "\h\はい\e" else "\hいいえ\e")
    # modeエントリの内容で検索したものが"Y"の場合、「はい」と表示
    # それ以外の場合は「いいえ」と表示

例2
  $(if "true" $(set a "1" ; set b "2") )
    # aエントリの内容は1、bエントリの内容は2になる
    # マルチステートメント(複文)を使っている

例3
  =dict
  a : 1
  b : 2
  =end
  
  =kis
  if $[ ${a} == "1" ] $(
    if $[ ${b} == "2"] $(
      echo "あたり";
    ) else $(
      echo "はずれ";
    );
  ) else $(
    echo "はずれ";
  );
  =end
  # if文の入れ子の例
  # 「あたり」と表示される

例
  $(set N 0 ; foreach i npw $(echo ${i}様、 ; inc N) ; echo 以上${N}名)
  # npwエントリ内の人名を全て「様」をつけて呼び、最後に「以上n名」と
  # 人数を表示

例
  $(loop 10 "tick!")
  # 「tick!」と10回表示される

例
  =kis
  function じゃんけん $(
    if $[ $@arg[1] == 1 ] $(
      return "ぐー";
    ) else if $[ $@arg[1] == 2 ] $(
      return "ちょき";
    ) else $(
      return "ぱー";
    );
  );
  =end

ユーザが定義した関数コマンドを削除する。

例
  =kis
  # my_findコマンドを削除する
  rmfunc my_find;
  =end

例
  $(echo 1 ; echo 2 ; silent ; echo 3)
  #「3」がブロックの戻り値になる
参考
  $(echo 1 ; echo 2 ; echo 3)
  #「123」がブロックの戻り値になる

例
  =kis
  setstr A ${npw};
  setstr B ${npw};
  until $[ ${A} != ${B} ] $(
    setstr B ${npw};
  );
  # AエントリとBエントリが必ず異なるようにする
  =end

例
  =kis
  setstr A ${npw};
  setstr B ${npw};
  while $[ ${A} == ${B} ] $(
    setstr B ${npw};
  );
  # AエントリとBエントリが必ず異なるようにする
  =end

例
  =kis
  if $[ ${test1} == $(NULL) ] $(
    echo "test1はカラ";
  );
  =end
  # test1が空のエントリ、もしくは評価結果が""の場合、
  # 「エントリ1はカラ」を返す

例
  $(? "右" "左")"に行く"
  # 「右に行く」または「左に行く」が返る

• 「エントリ1」と書いた場合、エントリ1全体を指す。
• 「エントリ1[0]」と書いた場合、エントリ1の1番目の単語を指す。
• 「エントリ1[0..3]」と書いた場合、 エントリ1の1番目から4番目の単語を指す。
• 「エントリ1[-1]」と書いた場合、エントリ1の末尾の単語を指す。
• 「エントリ1[-2..-4」と書いた場合、 エントリ1の末尾から2番目から、末尾から4番目の単語を指す。

例
  word : "one" , "two" , "three" , "four" , "five" , "six" , "seven"
  
  =kis
  setstr word[4] "5th element";
  # wordエントリ5番目の単語を「5th element」で置き換える
  
  setstr word2[0..5] "初期値";
  # word2エントリに6個の「初期値」という文字列をセットする
  
  clear word[1];
  # wordエントリの2番目の単語(two)を削除

  get word;
  # 「onethreefour5th elementsixseven」を返す
  
  get word[100];
  # wordエントリには6個しか単語がないので、何も返さない
  =end

例
  =kis
  # npwエントリに「田中真紀子」を追加
  adddict npw 田中真紀子;
  
  # nameエントリにnpwエントリ中の単語を追加
  adddict name ${npw}
  
  # Actエントリに単語「${normal}」を追加
  adddict Act "${normal}";
  
  # 次の行を実行すると、normalエントリの中を単語を呼び出す
  echo ${Act};
  =end

例
  =kis
  # npwエントリに「田中真紀子」を追加
  adddictstr npw 田中真紀子;
  
  # nameエントリにnpwエントリ中の単語を追加
  adddictstr name ${npw}
  
  # Actエントリに文字列「${normal}」を追加
  adddictstr Act "${normal}";
  
  # 次の行を実行すると、「${normal}」を返す。
  echo ${Act};
  =end

例
  test1 : word1, word2, word3

  =kis
  foreach @word test1 $(echo ${@word})
  # 「word1word2word3」を返す

  clear test1;
  # test1エントリの内容を全て消去

  foreach @word test1 $(echo ${@word})
  # 何も返さない
  =end

例
  ghost1.name : まゆら
  ghost1.shiori : 華和梨
  ghost1.shiori.phase : 7.3.1
  ghost1.author : 夢蛍
  ghost1.shell : サンタ,着せ替え,白,夏服
  
  =kis
  cleartree ghost1;
  =end
  # 上記エントリの内容は全て削除される

例
  ghost1 : さくら , まゆら , 奈留 , 理夢 , ${ghost2}
  ghost2 : サンバーレイン , 毒子 , 花ちゃん
  
  =kis
  copy ghost1 ghost3;
  
  getcode ghost3;
  # 「"さくら""まゆら""奈留""理夢"${ghost2}」が返る
  
  size ghost1;
  # 5が返る
  =end

例
  ghost1.name : まゆら
  ghost1.shiori : 華和梨
  ghost1.shiori.phase : 7.3.1
  ghost1.author : 夢蛍
  ghost1.shell : サンタ,着せ替え,白,夏服
  
  =kis
  copytree ghost1 ghost2;
  =end
  # 「ghost2.」で始まるエントリの内容が、次のようになる
  # ghost2.name : まゆら
  # ghost2.shiori : 華和梨
  # ghost2.shiori.phase : 7.3.1
  # ghost2.author : 夢蛍
  # ghost2.shell : サンタ,着せ替え,白,夏服

例
  地名: ここ, ${人名}の家, 三丁目, ここ, ${人名}の仕事場
  候補: ${人名}の家

  =kis
  find 地名 ここ;
  # "0"が返る。

  find 地名 ここ 1;
  # "3"が返る。

  find 地名 "${人名}"の家;
  # "1"が返る。

  find 地名 $(getcode 候補[0]);
  # "1"が返る。
  =end

例
  word1 : あ , い , う , え , お
  word2 : $(date %y) , $(date %M) , $(date %d)

  =kis
  get word1;
  # 「あいうえお」を返す
  get word2;
  # 「20020425」の形式で今日の日付を返す
  =end

例
  word1 : あ , い , う , え , お
  word2 : $(date %y) , $(date %M) , $(date %d)

  =kis
  get word1;
  # 「"あ""い""う""え""お"」を返す
  get word2;
  # 「$(date %y)$(date %M)$(date %d)」を返す
  =end

例
  =kis
  getrandom "npw";
  # ${npw}と同じ
  
  getrandom "message."$(rand 3);
  # ${message.0}から${message.2}のどれかと同じ

  getrandom "System.OtherGhost" ${myname};
  # ${System.OtherGhost}と同じ
  # 結果が空の場合は、${myname}の戻り値が返る
  =end

例
  word : 1 , 2 , 3 , 4 , 5 , 6 , 7
  key : AAA
  
  =kis
  get word;
  # 「1234567」が返る
  
  insert word[3] "${key}";
  
  get word;
  # 「123AAA4567」が返る
  =end

例
  word : 1 , 2 , 3 , 4 , 5 , 6 , 7
  key : AAA
  
  =kis
  get word;
  # 「1234567」が返る
  
  insertstr word[3] "${key}";
  
  get word;
  # 「123${key}4567」が返る
  =end

例
  ghost1.name : まゆら
  ghost1.shiori : 華和梨
  ghost1.shiori.phase : 7.3.1
  ghost1.author : 夢蛍
  ghost1.shell : サンタ,着せ替え,白,夏服
  
  =kis
  listsub 一覧 ghost1;

  getcode 一覧;
  # "ghost1.name""ghost1.shiori""ghost1.author""ghsot1.shell"が返る。

例
  =kis
  listtree SHIORI System.Request;
  # SHIORIエントリに、本体からのリクエストヘッダ一覧を追加する
  
  listree Entries .;
  # 全エントリ名をEntriesエントリに追加。主に今は亡き対GET Status用

例
  ghost1 : さくら , まゆら , 奈留 , 理夢 , ${ghost2}
  ghost2 : サンバーレイン , 毒子 , 花ちゃん
  
  =kis
  move ghost1 ghost3;
  
  getcode ghost3;
  # 「"さくら""まゆら""奈留""理夢"${ghost2}」が返る
  
  size ghost1;
  # 0が返る
  =end

例
  ghost1.name : まゆら
  ghost1.shiori : 華和梨
  ghost1.shiori.phase : 7.3.1
  ghost1.author : 夢蛍
  ghost1.shell : サンタ,着せ替え,白,夏服
  
  =kis
  movetree ghost1 ghost2;
  =end
  # 「ghost2.」で始まるエントリの内容が、次のようになる
  # ghost2.name : まゆら
  # ghost2.shiori : 華和梨
  # ghost2.shiori.phase : 7.3.1
  # ghost2.author : 夢蛍
  # ghost2.shell : サンタ,着せ替え,白,夏服

例
  PASOPIA : パソピア7
  oldmachine : PC9801,X68k,MSX2,PC8801,X1,PC8001,${PASOPIA}
  
  =kis
  foreach @pc oldmachine $(echo " "${@pc});
  # 「 PC9801 X68k MSX2 PC8801 X1 PC8001 パソピア7」を返す
  
  pop oldmachine;
  # 「パソピア7」を返す
  
  foreach @pc oldmachine $(echo " "${@pc});
  # 「 PC9801 X68k MSX2 PC8801 X1 PC8001」を返す
  =end

例
  PASOPIA : パソピア7
  oldmachine : PC9801,X68k,MSX2,PC8801,X1,PC8001,${PASOPIA}
  
  =kis
  foreach @pc oldmachine $(echo " "${@pc});
  # 「 PC9801 X68k MSX2 PC8801 X1 PC8001 パソピア7」を返す
  
  popcode oldmachine;
  # 「${PASOPIA}」を返す
  
  foreach @pc oldmachine $(echo " "${@pc});
  # 「 PC9801 X68k MSX2 PC8801 X1 PC8001」を返す
  =end

例
  =kis
  # npwエントリに「田中真紀子」を追加
  push npw 田中真紀子;
  
  # nameエントリにnpwエントリ中の単語を追加
  push name ${npw}
  
  # Actエントリに単語「${normal}」を追加
  push Act "${normal}";
  
  # 次の行を実行すると、normalエントリの中を単語を呼び出す
  echo ${Act};
  =end

例
  =kis
  # npwエントリに「田中真紀子」を追加
  pushstr npw 田中真紀子;
  
  # nameエントリにnpwエントリ中の単語を追加
  pushstr name ${npw}
  
  # Actエントリに文字列「${normal}」を追加
  pushstr Act "${normal}";
  
  # 次の行を実行すると、「${normal}」を返す。
  echo ${Act};
  =end

例
  地名: ここ, ${人名}の家, 三丁目, ここ, ${人名}の仕事場
  候補: ${人名}の家

  =kis
  rfind 地名 ここ;
  # "3"が返る。

  rind 地名 ここ 2;
  # "0"が返る。

  rfind 地名 "${人名}"の家;
  # "1"が返る。

  rfind 地名 $(getcode 候補[0]);
  # "1"が返る。
  =end

例
  dummy : 1
  angry : 怒ってるゾ！
  
  =kis
  set mode 1;
  # modeエントリの内容は「1」だけになる
  
  set mody ${dummy};
  # modeエントリの内容は${dummy}＝「1」になる
  
  set emotion "${angry}";
  # emotionエントリの内容は単語「${angry}」になる
  
  echo ${emotion};
  # 「怒ってるゾ！」を返す
  
  =end

例
  dummy : 1
  angry : 怒ってるゾ！
  
  =kis
  setstr mode 1;
  # modeエントリの内容は「1」だけになる
  
  setstr mody ${dummy};
  # modeエントリの内容は${dummy}＝「1」になる
  
  setstr emotion "${angry}";
  # emotionエントリの内容は文字列「${angry}」になる
  
  echo ${emotion};
  # 「${angry}」を返す
  
  =end

例
  counter : 1, 2, 3, 4, 5
  sentence : \hこの文が呼ばれるのは$(shift counter)回目だね。\e

例
  counter : 1, 2, 3, 4, 5
  sentence : \hこの文が呼ばれるのは$(shiftcode counter)回目だね。\e

例
  理夢 : 理夢
  ninni.angels,famous.ghosts : 奈留, せりこ, まゆら, ${理夢}
  dark.sisters,famous.ghosts : 毒子, 花ちゃん, サンバーレイン, ${理夢}
  
  =kis
  size dark.sisters;
  # 4が返る
  
  size famous.ghosts;
  # 8が返る
  =end

例
  ghosts : まゆら,理夢,毒子,白子,美耳,陽子
  任意 : さくら
  
  =kis
  get ghosts;
  # 「まゆら理夢毒子白子美耳陽子」を返す
  
  unshift ghosts "${任意}";
  
  get ghosts;
  # 「さくらまゆら理夢毒子白子美耳陽子」を返す
  =end

例
  ghosts : まゆら,理夢,毒子,白子,美耳,陽子
  任意 : さくら
  
  =kis
  get ghosts;
  # 「まゆら理夢毒子白子美耳陽子」を返す
  
  unshift ghosts "${任意}";
  
  get ghosts;
  # 「${任意}まゆら理夢毒子白子美耳陽子」を返す
  =end

例
  username : ご主人様

  =kis
  writeprotect username;
  =end

例
  =kis
  # ここではMS Windows上のオリジナル華和梨を想定している
  
  # "..\..\unix"が返る
  cncpath ../../unix;
  
  # "C:\WINDOWS\SYSTEM"が返る
  cncpath C:/WINDOWS\SYSTEM
  
  # "..\..\UNIX\LS.EXE"が返る
  cncpath ../../UNIX/ LS.EXE
  =end

例
  =kis
  # ここではMS Windows上のオリジナル華和梨を想定している
  
  # "C:\Program Files\Microsoft Office\Office"が返る
  dirname "C:/Program Files/Microsoft Office/Office/POWERPNT.EXE"
  =end

例
  =kis
  # ここではMS Windows上のオリジナル華和梨を想定している
  
  # "POWERPNT.EXE"が返る
  filename "C:/Program Files/Microsoft Office/Office/POWERPNT.EXE"
  =end

例
  =kis
  # MATERIAのghost\masterフォルダで実行した場合を想定
  
  isdir $(cncpath profile);
  # 1が返る
  isdir shiori.dll;
  # ""が返る
  =end

例
  =kis
  # MATERIAのghost\masterフォルダで実行した場合を想定
  
  isexist $(cncpath profile);
  # 1が返る
  isexist shiori.dll;
  # 1が返る
  isexist $(cncpath ..\..\..\..\embryo.exe);
  # ""が返る
  =end

例
  =kis
  # MATERIAのghost\masterフォルダで実行した場合を想定
  
  isfile $(cncpath profile);
  # ""が返る
  isfile shiori.dll;
  # 1が返る
  =end

例
  =kis
  load dict-flag.txt;
  # dict-flag.txtを読み込む
  =end

例
  =kis
  readdir shell "..\..\shell";
  # 自ゴーストで使用できるシェル一覧をshellに保存
  =end

例
  =kis
  save dict-flag.txt flag1 flag2 flag3;
  # flag1、flag2、flag3エントリをdict-flag.txtに保存
  =end

例
  =kis
  savecrypt dict-flag.txt flag1 flag2 flag3;
  # flag1、flag2、flag3エントリをdict-flag.txtに暗号化して保存
  =end

例
  =kis
  textappend highscore.dat 新タイトル保持者名;
  # highscore.datに、「新タイトル保持者名」エントリの内容を追記
  =end

例
  =kis
  textload poem mypoem.txt;
  # poemエントリにファイル'mypoem.txt'を読み込む
  
  echo \0$(set @i 0 ; loop $(size poem) $(get poem[${@i}] ; inc @i))\e;
  # ファイルmypoem.txtの内容を読み込み、さくら側バルーンで内容を表示する
  =end

例
  =kis
  textsave highscore.dat タイトル保持者名一覧;
  # highscore.datに、「タイトル保持者名一覧」エントリの内容を保存
  =end

例
  =kis
  dec N;
  # Nを1だけ減らす
  
  dec N 5;
  # Nを5だけ減らす
  
  dec N 10 0;
  # Nを10だけ減らし、結果が0より小さければNは0とする
  
  dec N[0];
  # N[0]を1だけ減らす
  
  dec N[0..3] 2 0;
  # N[0]からN[3]までをそれぞれ2だけ減らし、結果が0より小さければ0とする
  =end

例
  =kis
  inc N;
  # Nを1だけ増やす
  
  inc N 5;
  # Nを5だけ増やす
  
  inc N 10 100;
  # Nを10だけ増やし、結果が100より大きければNは100とする
  
  inc N[2] 4;
  # N[2]を4だけ増やす
  
  inc N[1..-1] 2 100;
  # N[0]以外のNをそれぞれ2だけ増やし、結果が100より大きければ100とする
  =end

例
  =kis
  char_at 世界よ、こんにちは。 2;
  # 「よ」が返る
  =end

例
  =kis
  chr 1;
  # いわゆる「バイト値1」が返る
  
  chr 2;
  # いわゆる「バイト値2」が返る
  =end

例
  dict : a , aa , b , c , xa , xy , z
  word : hello
  
  =kis
  setstr @count 0;
  loop $(size dict) $(
    if $[ $(compare $dict[${@count}] ${word}) < 1 ] $(
      inc @count;
    ) else $(
      break;
    );
  );
  insertstr dict[${@count}] ${word};
  
  # compareを使った大小比較の例
  # 辞書順にソートしたエントリに対し、添え字0から${word}と比較し、
  # ${word}より大きな単語の直前に${word}を挿入している
  =end

例
  =kis
  gsub hogehogehoge ge ro;
  # 「horohorohoro」が返る
  =end

例
  path : WINDOWS, SYSTEM32, drivers, etc
  =kis
  join path "\\";
  # 「WINDOWS\SYSTEM32\drivers\etc」が返る
  =end

例
  =kis
  length とても長くてすぐには何文字か分からない1byte文字も交えた例;
  # 31が返る
  =end

例
  =kis
  match 芝村をやっている 村を;
  # 1が返る
  
  match あーりーあーもー殺ーるーのー あー 2;
  # 4が返る
  
  match 我は、我である。 ジャム;
  # -1が返る
  =end

例
  =kis
  match_at 芝村をやっている 村を;
  # ""が返る
  
  match_at 芝村をやっている 村を 1;
  # 1が返る
  
  match_at あーりーあーもー殺ーるーのー あー 4;
  # 1が返る
  
  match_at 我は、我である。 ジャム;
  # ""が返る
  =end

例
  =kis
  reverse 上から読んでも山本山
  # 「山本山もでん読らか上」が返る
  =end

例
  =kis
  rmatch 芝村をやっている 村を;
  # 1が返る
  
  rmatch あーりーあーもー殺ーるーのー あー 2;
  # 0が返る
  
  rmatch 我は、我である。 ジャム;
  # -1が返る
  =end

例
  =kis
  rsub hogehogehoge ge ro;
  # 「hogehogehoro」が返る
  =end

例
  =kis
  split string "AA:BB:CC" ":";
  # AA、BB、CCに分割
  
  split Header ${System.GhostEx} $(chr 1);
  # GhostExヘッダをバイト値1で分割
  
  split Msg "籠の中の鳥" "の";
  # 籠、中、鳥に分割
  
  split test "1ch2ch3ch" "ch";
  # 1、2、3に分割
  
  split char "世界よ、こんにちは！";
  # "世界よ、こんにちは！"を文字ごとに分割
  =end

例
  =kis
  sub hogehogehoge ge ro;
  # 「horohogehoge」が返る
  =end

例
  =kis
  substr ABCDEFG 3 2;
  # 「DE」を返す
  
  substr ABCDEFG 3;
  # 「DEFG」を返す
  =end

例
  =kis
  tolower ABC def;
  # 「abc def」が返る
  
  tolower ＸＹＺ XYZ;
  # 「ＸＹＺ xyz」が返る
  =end

例
  =kis
  toupper ABC def;
  # 「ABC DEF」が返る
  
  toupper ｘｙｚ xyz;
  # 「ｘｙｚ XYZ」が返る
  =end

例
  =kis
  tr AbＣｄあいう ABCDＡＢＣＤａｂｃｄ abcdwxyz1234;
  # 「aby4あいう」が返る
  =end

SAORIモジュールの登録。 DLLファイルには、相対パスまたは絶対パスでDLLを指定する。 エイリアスは、callsaoriコマンドでSAORIモジュールを呼ぶ際のキーワードを指定する。

オプションには、SAORIモジュールをロードするタイミングを指定する。 SAORIの中にはロードに時間のかかるものや、 呼ばれない可能性があることも考えられるため、 このような調整が可能となっている。 タイミングには"preload", "loadoncall", "noresident" の3種類があり、 それぞれ、「saoriregist時にロード」「最初にcallsaori(x)された時にロード」 「callsaori時にロードし、終わったら即アンロード」を意味する。 デフォルトはloadoncallである。

例
  =kis
  # saori_cpuid.dllをcpuidとして登録。今すぐロード。
  saoriregist modules\saori_cpuid.dll cpuid preload
  =end

例
  =kis
  # cpuidをアンロード
  saorierase cpuid;
  =end

例
  =kis
  # System.SaoriListエントリに登録済SAORIエイリアスの一覧を格納
  saorilist System.SaoriList;
  =end

例
  sentence : \0\s[0]ここのOSは$(callsaori cpuid os.name)ね。\e

例
  # tmizu氏作のwmove.dllを使い、キャラクタの立ち位置を取得する
  =kis
  fuction getposition $(
    # 引数1 : 0=Sakura、1=Kero
    # 引数2 : 戻り値返却用エントリ名
    if $[ $@arg[1] == 0 ] $(
      setstr @characterHWnd $System.HWnd.shell[0];
    ) else if $[ $@arg[1] == 1 ] $(
      setstr @characterHWnd $System.HWnd.shell[1];
    ) else $(
      return "";
    );

    callsaorix wmove $@arg[2] GET_POSITION ${@characterHWnd};
  );
  =end

例
  毒子.keyword1 : うむ , ふはははは , 変態
  毒子.answer1  : \t\0\s[7]胸のことは言うなっ！\e
  毒子.answer1  : \t\0\s[1]…。\e
  
  花ちゃん.keyword1 : どないしたんや , 同じ中学生なのに
  花ちゃん.answer1  : \t\0\s[8]あ‥‥\w8あまりじろじろ見んといてな。\e
  花ちゃん.answer1  : \t\0\s[1]花ちゃんかて…。\e
  
  match_keys : $(
    if $[ ${System.Request.Reference0} == "毒子" ] $(
      if $(xargs 毒子.keyword1 matchall ${System.Request.Reference1})
        毒子.answer1
    )
  )
  
  match_keys : $(
    if $[ ${System.Request.Reference0} == "花ちゃん" ] $(
      if $(xargs 花ちゃん.keyword1 matchall ${System.Request.Reference1})
        花ちゃん.answer1
    )
  )
  
  event.OnCommunicate : $(communicate match_keys ${communicate.else})
  
  # コミュニケートコマンド群を用いたコミュニケートの実装例
  # OnCommunicateイベントでcommunicateコマンドを使い、イベント反応を
  # 記述したmatch_keysエントリを全て評価、戻り値のうち一つを選ぶ
  # そして、戻り値をエントリ名と見なしてエントリ呼び出しを行い、それを返す
  # 何も無い場合、communicate.elseエントリの単語を返す

例
  毒子.keyword1 : あらあら , 最近 , 中学生 , 乳
  
  =kis
  matchall ${System.Request.Reference1} こんにちは;
  # Reference1に「こんにちは」が含まれる場合、真を返す
  
  matchall ${System.Request.Reference1} うにゅう おいしい ？;
  # Reference1に「うにゅう」「おいしい」「？」が含まれる場合、真を返す
  # 例えば「うにゅうっておいしいの？」と言う文章がきた場合、真を返す
  
  xargs 毒子.keyword1 matchall ${System.Request.Reference1};
  # xargsとの合わせ技
  # xargsで毒子.keyword1エントリの単語を「matchall..」以降に列挙
  # 結果として、毒子.keyword1エントリの単語がすべてReference1に含まれる
  # 場合、真を返す
  =end

例
  =kis
  echo 1 2 3 4 5;
  # 「1 2 3 4 5」が返る
  
  setstr test1 "TEST";
  echo ${test1};
  # 「TEST」が返る
  =end

例
  =kis
  encode_entryname "「#」や「,」や「 」はエントリ名に使えません";
  # "「_」や「_」や「_」はエントリ名に使えません"が返る。
  =end

例
  event.OnFileDropped : (
      $(escape ${System.Request.Reference0})
      がドロップされました。)
  # ドラッグ＆ドロップされたファイル名を表示する

例
  =kis
  entry "npw";
  # ${npw}と同じ
  
  entry "message."$(rand 3);
  # ${message.0}から${message.2}のどれか
  
  entry "system.OtherGhost" ${myname};
  # ${system.OtherGhost}と同じ
  # 空の場合は${myname}の戻り値が返る
  =end

例
  $(entrycount)

例
  kawari     : 華和梨
  nise       : 偽
  shiori     : 栞
  niseshiori : ${nise}${shiori}
  
  =kis
  eval "理夢の偽AIは${kawari}です";
  # 「理夢の偽AIは華和梨です」が返る
  
  eval "奈留の偽AIは${niseshiori}です";
  # 「奈留の偽AIは偽栞です」が返る
  =end

参考
  =kis
  echo "奈留の偽AIは${niseshiori}です";
  # 「奈留の偽AIは${niseshiori}です」が返る
  =end

例
  futaba : "http://futaba.mikage.to/"
  kawari : "http://meister-d-i.hoops.ne.jp/"

  # さくら側のおすすめサイトのリスト
  resource.sakura.recommendsites : $(
    urllist "ふたばみかげ" ${futaba} ${futaba}"banner.png"
    "何か以外の何か" ${kawari} ${kawari}"banner.png"
  )

  # うにゅう側のおすすめサイトのリスト
  resource.kero.recommendsites : (
    $(urllist "ふたばみかげ" "http://futaba.mikage.to/" "banner.png")
    $(urllist "-" "-" "-")
    $(urllist "何か以外の何か" "http://meister-d-i.hoops.ne.jp/" "banner.png")
  )
  # サイトごとにurllistコマンドを分けて書くことも出来る
  # 仕切り線の場合でも、ダミーのURLとバナーURLを与える必要がある

例
  $(wordcount)

例
  SaveEntries : HighScore , Life , 喋り頻度 , 好感度 , 最終更新日
  
  RecommendSites : "伺か" , "http://sakura.mikage.to" , "-"
  RecommendSites : "まゆら" , "http://mayura.jp/" , "-"
  RecommendSites : "-" , "-" , "-"
  RecommendSites : "華和梨" , "http://kawari.sf.net/" , "-"
  
  keyword1 : 華和梨 , SHIORI , ゴースト
  
  =kis
  xargs SaveEntries save parameter.txt;
  # SaveEntriesの内容を展開してsaveコマンドを実行。
  # 「save parameter.txt HighScore Lige 喋り頻度 好感度 最終更新日」
  # を実行した場合と等価。
  
  xargs RecommendSites urllist;
  # urllistコマンドにRecommendSitesエントリの内容を展開して与える
  
  xargs keyword1 matchall ${System.Request.Reference0};
  # keyword1エントリの全ての単語がReference0にマッチしたら真を返す
  =end

%d	: 日(2桁,01..31)
%e	: 日(1..31)
%H	: 時(2桁,00..23)
%j	: 元日からの通算日(3桁,001..366)
%J	: 元日からの通算日(1..366)
%k	: 時(0..23)
%m	: 月(2桁,01..12)
%M	: 分(2桁,00..59)
%n	: 月(1..12)
%N	: 分(0..59)
%r	: 秒(0..59)
%S	: 秒(2桁,00..59)
%s	: 1970/1/1 00:00:00(協定時)からの通算秒数
%w	: 曜日(0..6,日曜日が0)
%y	: 年(4桁,2000...)
%Y	: 年(4桁,2000...)

例1
  event.OnBoot : $(entry "time."$(date %H) )
  time.01 : 午前一時です\e
  time.02 : 午前二時です\e
  (中略)
  time.23 : 午後十一時です\e
  

例2
  event.OnFirstBoot : $(setstr 1stTime $(date %s) ; entry TalkFirstBoot)
  sentence : (
      \0\s[0]私が最初に起動したのは
      $(date %y ${1stTime})年の
      $(date %n ${1stTime})月
      $(date %e ${1stTime})日で、\w8\w8
      今日で$[ ($(date %s) - ${1stTime}) / (3600 * 24) ]日目です。\e
  )

例
  =kis
  # 幸水にてデバッグ中
  debugger on;
  =end

例
  $(getenv windir)
  # 環境変数windirが存在する場合、その内容を返す

例("幸水"での実行例)
  echo-mode > $(help help)
  help
  syntax  : help Command1
  return  : help message
  comment : return online help of KIS commnad (for Kosui use)
  echo-mode > $(help)
  Command list :
          echo
          set
      (・・・中略・・・)
          escape
  echo-mode >

例
  =kis
  # 日付付きログファイルを作成
  logfile kawari-$(date %Y%m%d%H%M%S).log;
  
  # ログ禁止
  logfile;
  =end

例
  =kis
  # 通常デバッグ時には、これで十分
  loglevel error warning info baseevents;

  # まぁ、一度ぐらいは試してみてもいいです
  # 間違っても配布版でこれをやらないように
  loglevel paranoia baseevents;
  =end

例
  =kis
  # いわゆるprintfデバッグ
  logprint ここまで動いた;
  =end

例
  =kis
  # 1970/1/1 0:00:00(UTC)から2005/4/1 0:30:25までに経過した秒数を返す
  mktime 2005 4 1 0 30 25;
  
  # 2001/1/25 1:00:00から1000日後の日付を求める
  # 1000日分をmktimeで求めた時刻に足して、dateの第2引数に与えている
  setstr @day $(mktime 2001 1 25 1 0 0);
  date "%y/%m/%d %H:%M:%S" $[ ${@day} + 1000 * 24 * 60 * 60 ];
  =end

例
  =kis
  rand 52;
  # 0から51までの乱数を返す
  
  rand -10;
  # 0から-9までの乱数を返す
  =end

例
  =kis
  # 日本人ならやっぱり?
  rccharset Shift_JIS;
  =end

例
  =kis
  # 低レベルに設定
  securitylevel low;
  =end

例
  =kis
  srand 12345678;
  # 乱数の種を「12345678」に設定する
  =end

例("幸水"での実行例)
  echo-mode > $(ver)
  KAWARI.kdt/8.2.0