MFC里的老头应用实例

      程序 2005-7-24 21:17
在网页上完全可以使用
具体效果可以参照我滴外展网站——wildwolfk.ik8.com

代码如下:
<SCRIPT>
<!--
function crml(nid)
{
try
{
nid=new ActiveXObject("Agent.Control.2");
nid.Connected = true;
nid.Characters.Load("");
return nid;
}
catch (err)
{
return false;
}
}

function chplay ()
{
if (ml=crml ("ml"))
{
var MerlinID;
var MerlinACS;
Merlin = ml.Characters.Character(MerlinID);
Merlin.MoveTo(400,300);
Merlin.Show();
Merlin.Play("Announce");
Merlin.Play("Explain");
Merlin.Speak("嗨!你好!");
Merlin.Play("Pleased");
Merlin.Speak("欢迎光临我的小窝 !!");
Merlin.MoveTo(650,400);
Merlin.Show();
Merlin.Play("Surprised");
Merlin.Play("Read")
Merlin.Speak("这里有我最爱的篮球");
Merlin.Play("Read")
Merlin.Speak("最经典的巨星人生");
Merlin.Play("DontRecognize");
Merlin.Speak("最激烈的CS对抗");
Merlin.Play("GestureUp");
Merlin.Speak("总之我是说不完的");
Merlin.Play("Gestureright");
Merlin.Speak("你还是自已去看吧!!^_^");
Merlin.Hide();
Merlin.MoveTo(300,400);
Merlin.Show();
Merlin.Speak("呀!忘了告诉你啦!");
Merlin.Play("Greet");
Merlin.Speak("记提要常来坐坐啊!不然我会想你的!^_^");
Merlin.Play("Greet");
Merlin.Speak("祝各位网友:天天快乐!");
Merlin.Hide();
Merlin.MoveTo(200,100);
Merlin.Show();
Merlin.Play("Pleased");
Merlin.Speak("再次感谢你来到我的小窝!");
Merlin.Play("Greet");
Merlin.Speak("我走啦!要记的想我啊!");
Merlin.Hide();
}
}
//-->
</SCRIPT>
<SCRIPT>
<!--
chplay()
-->
</SCRIPT>
标签集:TAGS:
回复Comments() 点击Count()

回复Comments

{commentauthor}
{commentauthor}
{commenttime}
{commentnum}
{commentcontent}
作者:
{commentrecontent}