[エージェントの動作（カイル）]

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

※Office2000 のものです。
他のバージョンの動作は分かりません。

【ソースコード】

[tips0181.vbs]
Option Explicit
On Error Resume Next

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

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

        objAgent.Play "Congratulate"        ' おめでとう
        objAgent.Play "GetAttention"        ' ちょっとちょっと
        objAgent.Play "Idle1_1"             ' 待ちポーズ
        objAgent.Play "Idle(1)"
        objAgent.Play "Idle(2)"
        objAgent.Play "Idle(3)"
        objAgent.Play "Idle(4)"
        objAgent.Play "Idle(5)"
        objAgent.Play "Idle(6)"
        objAgent.Play "Idle(7)"
        objAgent.Play "Idle(8)"
        objAgent.Play "Idle(9)"
        objAgent.Play "DeepIdle1"
        objAgent.Play "Greeting"            ' 挨拶
        objAgent.Play "GoodBye"             ' さよなら〜
        objAgent.Play "Wave"                ' おじぎ
        objAgent.Play "Hearing_1"           ' 教えて教えて
        objAgent.Play "SendMail"            ' メール送信
        objAgent.Play "Print"               ' 印刷
        objAgent.Play "LookDown"            ' 下を向く
        objAgent.Play "LookDownRight"
        objAgent.Play "LookDownLeft"
        objAgent.Play "LookUp"              ' 上を向く
        objAgent.Play "LookUpRight"
        objAgent.Play "LookUpLeft"
        objAgent.Play "LookLeft"            ' 左を向く
        objAgent.Play "LookRight"           ' 右を向く
        objAgent.Play "CheckingSomething"   ' チェック
        objAgent.Play "Writing"             ' キーボード入力
        objAgent.Play "GetWizardy"          ' 魔法かけるよ
        objAgent.Play "Save"                ' 保存
        objAgent.Play "Searching"           ' 検索
        objAgent.Play "Thinking"            ' 考え中
        objAgent.Play "Processing"          ' 処理中
        objAgent.Play "Alert"               ' 大変！
        objAgent.Play "GetArtsy"            ' 僕の絵見てよ〜
        objAgent.Play "EmptyTrash"          ' フロッピー食べる
        objAgent.Play "GetTechy"            ' リモコン操作
        objAgent.Play "GestureDown"         ' 下を向く
        objAgent.Play "GestureLeft"         ' 左を向く
        objAgent.Play "GestureRight"        ' 右を向く
        objAgent.Play "GestureUp"           ' 上を向く
        objAgent.Play "Explain"             ' 説明する

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

Set objAc = Nothing