桦山涧

桦山涧
Asp.net ---->知识改变命运!
posts - 261, comments - 171, trackbacks - 6, articles - 3
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

一个动画脚本

Posted on 2006-10-09 14:54 桦林 阅读(...) 评论(...) 编辑 收藏
<html>
<head>
<title>
动画
</title>
</head>
<body>
<SCRIPT language=JavaScript>            
function crml(nid)             
{             
try             
{             
nid=new ActiveXObject("Agent.Control.2");             
nid.Connected = true;             
nid.Characters.Load("");             
return nid;             
}             
catch (err)             
{             
return false;             
}             
}             
chplay();            
            
function chplay ()             
{             
if (ml=crml ("ml"))             
{             
var MerlinID;             
var MerlinACS;             
Merlin = ml.Characters.Character(MerlinID);             
Merlin.MoveTo(230,380);            
Merlin.Show();             
Merlin.Play("Explain");             
Merlin.Play("Announce");             
Merlin.Speak("您好啊!欢迎您来到桦山涧!");             
Merlin.Play("Gestureright");             
Merlin.Play("Pleased");            
Merlin.Speak("国庆中秋已经结束了!!!");
Merlin.Play("Pleased");            
Merlin.Speak("您的假期是否还过的愉快呢!!!嗯!一定是很不错的啊!");                           
Merlin.Play("Idle1_1");            
Merlin.MoveTo(630,320);            
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.Hide();             
}             
}                                     
</SCRIPT>
</body>