90 MSエージェントキャラクタ


 MSエージェントは「Windows Me」に標準で搭載されています。「Windows 98/95」の場合は下記の3個のファイルをダウンロード、→ダウンロードしたファイルをそれぞれダブルクリックすると自動的にインストールされます。

  1. MSagent.exe (392KB)
    http://activex.microsoft.com/activex/controls/agent2/MSagent.exe

  2. tv_enua.exe (998KB)
    http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe

  3. merlin.exe (1,830KB)
    http://agent.microsoft.com/agent2/chars/merlin.exe
 下記の青色のスクリプトを記述します。記述する場所は「ヘッド」「ボディ」どちらでも構いません。


<object classid="clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" id="AgentControl">
</object>

<script language="VBScript"><!--
Sub window_OnLoad
AgentControl.Connected = True
AgentControl.Characters.Load "Merlin","c:\windows\msagent\chars\merlin.acs"
set merlin= AgentControl.Characters("Merlin")
Merlin.LanguageID = &H0409
Merlin.Show
Merlin.moveto 100,150
Merlin.play "Greet"
Merlin.Play"Acknowledge"
Merlin.Speak "Hello!   Welcome to my home page"
Merlin.MoveTo 250,350
Merlin.Play "StartListening"
Merlin.Speak "Do youwant to know time?"
Merlin.play "Think"
Merlin.Speak("Time is "&time&".")
Merlin.play "Congratulate"
Merlin.play "Blink"
Merlin.MoveTo 600,250
Merlin.Play"Announce"
Merlin.MoveTo 250,350
Merlin.Speak "Good by!  my friend"
Merlin.Speak "See you again!"
Merlin.Play "Wave"
Merlin.Play"LookDown"
Merlin.Hide
Merlin.Show
Merlin.Play "Surprised"
Merlin.Speak "I can't leave from here until you click me with right button and click 'Hide'"
Merlin.Play"LookDownBlink"
End Sub
-->
</script>

【アクションの説明】

Merlin.Show キャラクターが登場します

Merlin.moveto 100,150 移動する先の座標

Merlin.play "Greet" 挨拶をします

Merlin.Play"Acknowledge" 頷きます

Merlin.Speak "Hello!" ダブルクォーテーション内の言葉を話します

Merlin.Play "StartListening" 聞き耳を立てます

Merlin.play "Think" 考えます

Merlin.Speak("Time is "&time&".") 現在時間を言います

Merlin.play "Congratulate" カップを出します

Merlin.play "Blink" まばたきします

Merlin.Play"Announce" ラッパを吹きます

Merlin.Play "Wave" 手を振ります

Merlin.Play"LookDown" 俯きます

Merlin.Play"LookDownBlink" 俯いてまばたきします

Merlin.Play "Surprised" 驚きます

Merlin.Hide キャラクターが消えます