盒子资源分类
MsAgent 孙悟空动作列表及简单演示
关键字:微软精灵 MsAgent 孙悟空 动作列表
来 自:转载,Microsoft
平 台:Win9x,Win2k/NT,WinXP
下载所需:0 火柴
深浅度:初级
完成时间:2004/5/9
发布者:register
发布时间:2004/5/9
编辑器:DELPHI
语 种:简体中文
分 类:媒体与图形
下载浏览:2553/21612
微软的精灵中我最喜欢的一个,是由《大闹天宫》中提取原型的;我得到的动作列表,谁有更完整的请跟贴: ------------------------- Alert 金箍棒闪一下 Explain 向右赞眼 Congratulate 挥大旗 GetAttention 敲锣 / 吻 / 竖琴 GestureDown 向下手势 GestureLeft 向左手势 GestureRight 向右手势 GestureUp 向上手势 Hide 隐藏 Idle1_1 LookUp 向上看 LookDown 向下看 LookLeft 向左看 LookRight 向右看 Processing 跑步 [] RestPose 姿势复位 Searching 搜索 Show 显示 Thinking 思考 Wave 挥手 或 打关斗 Writing 反复写 ------------------------- 简单示例: var AgentID: IagentCtlCharacter; AgentACS: IagentCtlRequest; MsAgent: TAgent; procedure TfrmMsagent.CreateMsAgent; begin if FileExists(IniRec.AgentFile ) and (not assigned(MsAgent)) then try MsAgent := TAgent.Create(nil); MsAgent.Connected := true; AgentACS := MsAgent.Characters.Load('MsAgent',IniRec.AgentFile); AgentID := MsAgent.Characters.Character('MsAgent'); AgentID.Height := IniRec.Height; AgentID.Width := IniRec.Width; except MsAgent.Free; MsAgent := nil; MessageDlg('错误:'#13#13'YU0002:无法创建 MsAgent 对像!', mtError,[mbOk],0); end; //try end else if Not FileExists(IniRec.AgentFile ) then MessageDlg('错误:'#13#13'YU0001:没有找到 MsAgent 文件!', mtError,[mbOk],0); end; procedure TfrmMsAgent.FreeMsAgent; begin if assigned(MsAgent) then begin MsAgent.Connected := false; MsAgent.Characters.Unload('MsAgent'); MsAgent.Free; MsAgent := nil; end; //if end; procedure TfrmMsagent.MsAgentDoSth(Msg,iPlay:string;); begin with Agent do begin if Msg <> ' then speak(Msg,'); play(iPlay); end; //with Agent end;
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们 !
相关文章
相关评论