[エージェントの動作(マーリン)]

エージェント(マーリン)の動作一覧です。
Idle3_2 や Processing など Stop されるまで動き続けるものもあります。
(サンプルソースのままでは、全てのアニメーションを表示することはできません)

マイクロソフトのサイトでは、マーリンの他にジニー,ピーディ,ロビィをダウンロードすることができます。
4種類ともほぼ同じアニメーションが用意されています。

【ソースコード】
[tips0180.vbs]
Option Explicit
On Error Resume Next

Dim objAc           ' エージェントコントロール
Dim objAgent        ' エージェント

Set objAc = WScript.CreateObject("Agent.Control.1", "Merlin_")
If Err.Number = 0 Then
    objAc.Connected = True
    objAc.Characters.Load "Merlin", "Merlin.acs"
    Set objAgent = objAc.Characters("Merlin")
    If Err.Number = 0 Then
        objAgent.MoveTo 100, 100
        objAgent.Show

        objAgent.Play "Idle1_1"         ' 待ちポーズ
        objAgent.Play "Idle1_2"
        objAgent.Play "Idle1_3"
        objAgent.Play "Idle1_4"
        objAgent.Play "Idle2_1"
        objAgent.Play "Idle2_2"
        objAgent.Play "Idle3_1"
        objAgent.Play "Idle3_2"
        objAgent.Play "Blink"           ' まばたき
        objAgent.Play "Greet"           ' 挨拶
        objAgent.Play "GestureUp"       ' 上を向く
        objAgent.Play "GestureDown"     ' 下を向く
        objAgent.Play "GestureLeft"     ' 左を向く
        objAgent.Play "GestureRight"    ' 右を向く
        objAgent.Play "Hearing_1"       ' 聞き耳を立てる
        objAgent.Play "Hearing_2"
        objAgent.Play "Hearing_3"
        objAgent.Play "Hearing_4"
        objAgent.Play "StartListening"  ' 聞こか?
        objAgent.Play "StopListening"   ' 聞いてないよ
        objAgent.Play "Alert"           ' ぶるぶる
        objAgent.Play "Explain"         ' 説明する
        objAgent.Play "Process"         ' 処理中
        objAgent.Play "Processing"
        objAgent.Play "Think"           ' 考える
        objAgent.Play "Thinking"
        objAgent.Play "Search"          ' 探してみる
        objAgent.Play "Searching"
        objAgent.Play "Acknowledge"     ' うなづく
        objAgent.Play "Wave"            ' 手を振る
        objAgent.Play "DontRecognize"   ' 何ですか?
        objAgent.Play "Uncertain"       ' うーん?
        objAgent.Play "Decline"         ' 無理っす
        objAgent.Play "Sad"             ' 悲しい
        objAgent.Play "GetAttention"    ' ちょっとちょっと
        objAgent.Play "GetAttentionReturn"
        objAgent.Play "GetAttentionContinued"
        objAgent.Play "Surprised"       ' びっくり
        objAgent.Play "Congratulate"    ' おめでとう
        objAgent.Play "Congratulate_2"
        objAgent.Play "Read"            ' 本を読む
        objAgent.Play "Reading"
        objAgent.Play "ReadReturn"
        objAgent.Play "ReadContinued"
        objAgent.Play "Announce"        ' ラッパでお知らせ
        objAgent.Play "Write"           ' 字を書く
        objAgent.Play "Writing"
        objAgent.Play "WriteReturn"
        objAgent.Play "WriteContinued"
        objAgent.Play "Confused"        ' まごつく
        objAgent.Play "Suggest"         ' ひらめいた!
        objAgent.Play "MoveRight"       ' 右移動
        objAgent.Play "MoveLeft"        ' 左移動
        objAgent.Play "MoveUp"          ' 上移動
        objAgent.Play "MoveDown"        ' 下移動
        objAgent.Play "DoMagic1"        ' 魔法かけるよ
        objAgent.Play "DoMagic2"
        objAgent.Play "LookDown"        ' 下を向く
        objAgent.Play "LookDownBlink"
        objAgent.Play "LookDownReturn"
        objAgent.Play "LookLeft"        ' 左を向く
        objAgent.Play "LookLeftBlink"
        objAgent.Play "LookLeftReturn"
        objAgent.Play "LookRight"       ' 右を向く
        objAgent.Play "LookRightBlink"
        objAgent.Play "LookRightReturn"
        objAgent.Play "LookUp"          ' 上を向く
        objAgent.Play "LookUpBlink"
        objAgent.Play "LookUpReturn"
        objAgent.Play "Pleased"         ' 気に入ったよ

        objAgent.Hide
        WScript.Sleep 10000
    Else
        WScript.Echo "エラー:" & Err.Description
    End If
    objAc.Characters.Unload "Merlin"
    objAc.Connected = False
Else
    WScript.Echo "エラー:" & Err.Description
End If

Set objAc = Nothing