4

诚然,这是一个谷歌问题。但似乎所有文档都已删除,我无法在任何地方找到它们。所以我希望有人可以向我展示一些 VBScript 代码来枚举对象或者拥有更强大的 google-fu。

merlin 代理是一种类似于Alice的废弃 Windows 组件,旨在通过让孩子们讲故事来教授编程。Bob Mc在这个 stackoverflow 的回答中向我介绍了它(坦率地说,它值得更多的支持)。无论如何,这是一个示例,假设您在 Windows 上并且它已安装到 C 驱动器(我发现 merlin 几乎在所有计算机上):

agentName = "Merlin"
agentPath = "c:\windows\msagent\chars\" & agentName & ".acs"
Set agent = CreateObject("Agent.Control.2")
agent.Connected = TRUE
agent.Characters.Load agentName, agentPath
Set character = agent.Characters.Character(agentName)

character.Show
character.MoveTo 200, 400
character.Play "Surprised"

Wscript.Sleep 10000

现在我正在寻找的是 Merlin 可以采取的其他顶级行动。我知道:

  • 显示
  • 搬去
  • 隐藏
  • 说话
  • 手势在

Play 采用动画名称。我也在寻找所有这些。我知道:

  • '字符。播放“阅读”
  • '字符。播放“写”
  • 'character.Play "WriteContinued"
  • '字符。播放“祝贺”
  • '角色。播放“问候”
  • '字符。播放“拒绝”
  • '字符。播放“解释”
  • 'character.Play "GestureLeft"
  • 'character.Play "GestureRight"
  • '字符。播放“高兴”
  • '角色。播放“惊讶”
  • 'character.Play "GetAttention"

你能帮我找到剩下的吗?

4

2 回答 2

4

我不知道为什么我之前没有尝试过 Internet Archive[1],但它确实有效。这是 merlin 可以做的动画:

确认点头
警告 拉直并扬起眉毛
宣布 举起小号并演奏
眨眼眨眼
困惑的划痕头
恭喜展示奖杯
Congratulate_2 鼓掌
拒绝 举手摇头
DoMagic1 举起魔杖
DoMagic2 放下魔杖,出现云
DontRecognize 手到耳边
解释 将手臂伸向一侧
GestureDown 向下手势
GestureLeft 向左打手势
GestureRight 向右做手势
GestureUp 向上手势
GetAttention 身体前倾并敲门
GetAttentionContinued 身体前倾,再次敲门
GetAttentionReturn 返回中立位置
Hearing_1 耳朵伸展(循环动画)
Hearing_2 头部向左倾斜(循环动画)
Hearing_3 向左转头(循环动画)
Hearing_4 向右转头(循环动画)
隐藏在帽子下消失
Idle1_1 喘口气
Idle1_2 向左扫视并闪烁
Idle1_3 向右扫视
Idle1_4 向右扫视并闪烁
Idle2_1 看着魔杖并眨眼
Idle2_2 牵手眨眼
Idle3_1 打哈欠
Idle3_2 入睡(循环动画)
向下看 向下看
LookDownBlink 向下闪烁
LookDownReturn 返回中立位置
LookLeft 向左看
LookLeftBlink 向左闪烁
LookLeftReturn 返回中立位置
LookRight 看起来不错
LookRightBlink 向右闪烁
LookRightReturn 返回中立位置
查找 查找
LookUpBlink 向上闪烁
LookUpReturn 返回中立位置
MoveDown 向下飞
MoveLeft 飞到他的左边
MoveRight 向右飞行
MoveUp 飞起来
高兴地微笑着双手合十
过程搅拌大锅
处理搅拌大锅(循环动画)
阅读 打开书本、阅读和查找
ReadContinued 阅读并查找
ReadReturn 返回中立位置
读读(循环动画)
RestPose 中立位置
悲伤悲伤的表情
寻找水晶球
寻找水晶球(循环动画)
显示超出上限
StartListening 亲耳聆听
StopListening 把手放在耳朵上
建议显示灯泡
惊讶的样子
用手放在下巴上思考
用手放在下巴上思考(循环动画)
不确定 身体前倾,扬起眉毛
波波
写 打开书本、书写和查找
WriteContinued 写入和查找
WriteReturn 返回中立位置
写写(循环动画)          

以下是如何获得它们:

For Each strName in objCharacter.AnimationNames
    Wscript.Echo strName
Next

1:(所以无法解析此链接) http://web.archive.org/web/20080214075638/http://www.microsoft.com/technet/scriptcenter/funzone/agent.mspx

于 2009-07-12T18:01:22.150 回答
1

我知道现在回答这个问题已经很晚了。

你可以在这里下载图书馆和人物。

你可以在这里找到文档。

您可以在此处找到支持的动画列表。

于 2010-11-09T05:57:22.070 回答