发给女朋友的暖心留言:这个代码怎么用?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/27 01:44:04
<body>
<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(200,200);
Merlin.Show();
Merlin.Play("Explain");
Merlin.Play("Announce");
Merlin.Speak("欢迎来到四维空间,我是这里的导游--魔法老爷爷");
Merlin.Play("Gestureright");
Merlin.Play("Pleased");
Merlin.Speak("首先代表我的主人 想见谁 谢谢您的大架光临");
Merlin.Play("Idle1_1");
Merlin.Hide();
Merlin.MoveTo(600,300);
Merlin.Show();
Merlin.Play("Surprised");
Merlin.Speak("请到留言版留下你来过的痕迹");
Merlin.Play("Read");
Merlin.Speak("这里更新的频率很高,希望您能经常过来坐坐");
Merlin.Play("Read")
Merlin.Play("GestureUp");
Merlin.Speak("记住在日志看帖子要回哦");
Merlin.Play("DontRecognize");
Merlin.Speak("当然这里有很多精彩的内容,请一定要关注!");
Merlin.Play("DontRecognize");
Merlin.Play("Greet");
Merlin.Speak("");
Merlin.Play("Greet");
Merlin.Speak("如果有什么问题请到日志回答问题转贴跟贴");
Merlin.Play("Greet");
Merlin.Speak("");
Merlin.Play("Greet");
Merlin.Speak("我的主人想见谁会在第一时间给您答复");
Merlin.Play("Greet");
Merlin.Hide();
}
}
//-->
</SCRIPT>
<SCRIPT>
<!--
chplay()
-->
</SCRIPT>
</body>

打开写字板,把这段代码粘贴进去,然后保存,将原来的后缀名.txt改为.htm,然后双击打后就可以看到效果了