ぽな@ばぐとら/Emily-Phase4/仕様/紹介実装例

紹介実装例†

以下のサンプルは、台本コミュニケート仕様書もあわせて実装済みのものです。
組み込む際はその点注意してください。

……もっとも、こういうのを積極的にやるヒトはあまり気にしないとは思いますけど（笑

里々†

GhostTown:987/NGC:舞子とうにゅ丸の辞書を一般にも使えるようにしたサンプルです。
すーぱーはかー青葉のぞみさん提供。

＠台本コミュ識別子
ECHO/1.0

＠大根コミュ識別子
JPRadish

＊COMMUNICATE該当なし
＞台本コミュニケート受信	（compare,（Ｒ２）,（台本コミュ識別子））
＞大根コミュニケート受信	（compare,（Ｒ２）,（大根コミュ識別子））
＞COMMUNICATE該当なし通常

＊COMMUNICATE該当なし通常

＊台本コミュニケート受信
＄Value0	（Ｒ０）
（Ｒ３）

＊大根コミュニケート受信
＄呼び出し元	（Ｒ０）
＄呼び出し関数	（Ｒ３）
＄操作する変数	（Ｒ４）
＄操作する値	（Ｒ５）
＞大根（呼び出し関数）

＊大根紹介
≫（Ｒ０）からの紹介「（Ｒ１）」

＊Emilyからの紹介「　いつもべたべたくっついてくる
\u\s[10]\h\s[2]が～～～～ん。\e

文†

aya_communicate.dicのOnCommunicateの部分をそのまま置き換えてください。

OnCommunicate
{
    if reference2 == 'ECHO/1.0' {
       if '\![vanishbymyself]' !_in_ reference3 {
          //---拡張コミュニケート(受信)
          res_reference0 = reference0
          reference3
       }
    }
    elseif reference2 == 'JPRadish' {
       if ISFUNC("JPRadish_%(reference3)") {
          _script = EVAL("JPRadish_%(reference3)")
          if _script {
             _script
          }
       }
    }
    else {
       if reference0 == 'user' || reference0 == 'User' {
          //---- ユーザーからの話しかけ
          ReplyToUser
       }
       else {
          //---- ゴーストからの話しかけ
          ReplyToGhost
       }
    }
}
 
JPRadish_紹介
{
    if reference0 == 'Emily' {
       if 'いつもべたべたくっついてくる' _in_ reference1 {
          "\u\s[10]\h\s[2]が～～～～ん。\e"
       }
    }
}