七、我的菜单

右键点击角色是不是会弹出一个菜单？什么，只有 Hide 一项？想不想定义一个个性的菜单呢？
运行代码框
<object style="visibility:hidden" id="MSAgent" classid="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F"></object> <Script Language="JavaScript" For="MSAgent" Event="Command(UserInput)"> switch(UserInput.Name) { case "INTRO" : Agent.Play("Explain"); Agent.Speak("My name is " + AgentID + ", I think I'm the best one!"); break; case "AUTHOR": Agent.Play("Announce"); Agent.Speak("Windy_sk <windy_sk@126.com> wrote the program, I think he's great! (^o^)"); break; case "SAYTIME": Agent.Play("Suggest"); Agent.Speak("It is now " + (new Date()) + "!"); break; case "FLY": Agent.MoveTo(Math.round(Math.random() * screen.width), Math.round(Math.random() * screen.height)); break; case "STOP": Agent.StopAll(); Agent.Play("RestPose"); break; default: break; } </Script> <script language="JavaScript"> //Coded by Windy_sk <windy_sk@126.com> 20040214 var Agent = null; var AgentID, AgentACS; var AgentLoad = false; function LoadAgent(NewAgent) { var remote = false; if(AgentLoad) { MSAgent.Characters.Unload(AgentID); MSAgent.Connected = false; Agent = null; } AgentID = NewAgent; AgentACS = NewAgent + ".acs"; MSAgent.Connected = true; try { MSAgent.Characters.Load(AgentID, AgentACS); window.status = "Local MSAgent load successfully!"; } catch(e) { AgentACS = "http://agent.microsoft.com/agent2/chars/" + NewAgent + "/" + NewAgent + ".acf"; remote = true; MSAgent.Characters.Load(AgentID, AgentACS); window.status = "Local MSAgent load unsuccessfully, as a advice, you'd better to download the charactor file to your local disk!"; } AgentLoad = true; Agent = MSAgent.Characters.Character(AgentID); Agent.LanguageID = 0x0409; Agent.Commands.RemoveAll(); Agent.Commands.Visible = true; Agent.Commands.Caption = "MSAgent's Menu - by windy_sk"; Agent.Commands.Add("INTRO", "Introduce Yourself", "Introduce yourself"); Agent.Commands.Add("AUTHOR", "Who Write The Program", "Who Write The Program"); Agent.Commands.Add("SAYTIME", "What Time Is It Now", "What Time Is It Now"); Agent.Commands.Add("FLY", "Can You Fly", "Can You Fly"); Agent.Commands.Add("STOP", "Stop All Actions", "Stop All Actions"); if(remote) { Agent.get("state", "Showing, Hiding"); Agent.get("animation", "Explain, Announce, Suggest"); } Agent.MoveTo(400, 300); Agent.Show(); return; } LoadAgent("Merlin"); </script> MSAgent Select : <SELECT name="Agent_select" onchange="LoadAgent(this[this.selectedIndex].text)"> <OPTION>Merlin</OPTION> <OPTION>Peedy</OPTION> <OPTION>Genie</OPTION> <OPTION>Robby</OPTION> </SELECT>
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

个性菜单也是通过对象事件驱动的，这一点相信已经看懂了上一节的读者比较容易理解，相关网页请见 msdn.microsoft.com/library/en-us/msagent/pacontrol_8kfe.asp

Agent.Commands.Add 的三个属性分别为：内部索引标识、显示文字和语音表示，前两个参数比较容易理解，关键是第三个参数“语音表示”，对用户可以通过语音来控制 MSAgent ！

你需要首先下载 MicroSoft 语音识别引擎 activex.microsoft.com/activex/controls/agent2/actcnc.exe （目前只支持美国英语），下面介绍一下语音参数的句法：

Agent.Commands.Add("SAYTIME", "What Time Is It Now", "What Time Is It Now" ）中 "What Time Is It Now" 是它的语音表示，但是必须要完全读出这几个单词才可以识别吗？如果要是问时间的话，我可以说 What Time , Tell me the time 或者直接只说 time ，但是如何让程序识别这些话为统一目的呢？ 可以这样写：[(What|Tell me the)] Time [is it] [Now] [please] ，熟悉一点正则的读者应该不难理解，[] 表示可选项， () 规定范围， | 表示逻辑或

单纯这样还不够，还要在 <Script Language="JavaScript" For="MSAgent" Event="Command(UserInput)"> 加上相应的声音处理：
运行代码框
<Script Language="JavaScript" For="MSAgent" Event="Command(UserInput)"> var BadConfidence = 10; if (UserInput.Confidence <= -40){ alert("Bad Recognition!"); } else if ((UserInput.Alt1Name != "") && (Math.abs(Math.abs(UserInput.Alt1Confidence) - Math.abs(UserInput.Confidence)) < BadConfidence)) { alert("Bad Confidence - too close to another command !"); } else if ((UserInput.Alt2Name != "") && (Math.abs(Math.abs(UserInput.Alt1Confidence) - Math.abs(UserInput.Confidence)) < BadConfidence)) { alert("Bad Confidence - too close to another command !"); } else { switch(UserInput.Name) { case "ACO" : MSAgent.PropertySheet.Visible = true; break; case "READ": Agent_Show("Read"); Agent.Speak(show.value); break; case "SAYTIME": Agent_Show("Suggest"); Agent.Speak("It is now " + (new Date()) + "!"); break; case "INTRO" : Agent_Show("Explain"); Agent.Speak("My name is " + AgentID + ", I think I'm the best one!"); break; case "AUTHOR": Agent_Show("Announce"); Agent.Speak("Windy_sk <windy_sk@126.com> wrote the program, I think he's great! (^o^)"); break; case "FLY": Agent.MoveTo(Math.round(Math.random() * screen.width - Agent.width), Math.round(Math.random() * screen.height - Agent.height)); break; case "STOP": Agent.StopAll(); Agent_Show("RestPose"); break; default: break; } } </Script>
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

else 语句上面的部分是对用户的语音输入作判断，相关参数意义请见这里：http://msdn.microsoft.com/library/en-us/dnexpvb/html/usingmsagentcontrolevents.asp

有关 Command 对象的其他方法，请见 msdn.microsoft.com/library/en-us/dnexpvb/html/workingwithcommands.asp