OFFICE 小幫手 - 梅林大師

QRCode：

達瑪的月球是很久很久很久以前的電子報
報長的細心與可愛
不過後來差不多跟我同一個時期在網路上消失了

<object classid="clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" id="Agent1" width="32" height="32">
		<param name="_cx" value="677">
		<param name="_cy" value="677">
</object>
<script language="JAVASCRIPT" type="text/javascript">
var Agent1ID;
var Agent1ACS;
Agent1.Connected = true;
Agent1Loaded = LoadLocalAgent1(Agent1ID, Agent1ACS);
Agent = Agent1.Characters.Character(Agent1ID);
Agent.Show();
Agent.Play("Surprised");
Agent.Speak("→⊙_⊙歡迎光達瑪的月球⊙_⊙←");
Agent.Play("RestPose");
Agent.Think("本站介紹以站長的偏好為主；");
Agent.Play("Blink");
Agent.Think("及不定期的增加實用的網頁語法特效，");
Agent.Play("Pleased");
Agent.Think("提供免費電子報訂閱。");
Agent.Play("GestureLeft");
Agent.Think("煩請使用IE5.5以上的版本瀏覽本站；");
Agent.Play("Pleased");
Agent.Think("有什麼問題都可以在留言板提出，");
Agent.Play("Decline");
Agent.Think("我會儘力回覆。");
Agent.Play("GestureDown");
Agent.Speak("祝您愉快！");
Agent.Hide();
function LoadLocalAgent1(CharID, CharACS) {
LoadReq = Agent1.Characters.Load(CharID, CharACS);
return(true);
}
</script>

動作指令一覽表
動作 指令
離開 Merlin.Hide();
移動 Merlin.MoveTo(400,300);
點頭 Merlin.Play("Acknowledge");
瞪眼握拳 Merlin.Play("Alert");
吹喇叭 Merlin.Play("Announce");
眨眼睛 Merlin.Play("Blink");
傷腦筋 Merlin.Play("Confused");
拿出獎盃 Merlin.Play("Congratulate");
拍拍手 Merlin.Play("Congratulate_2");
一臉無辜 Merlin.Play("Decline");
施魔法１ Merlin.Play("DoMagic1");
施魔法２ Merlin.Play("DoMagic2");
仔細聆聽左方 Merlin.Play("DontRecognize");
攤開雙手 Merlin.Play("Explain");
小鞠躬 Merlin.Play("GestureDown");
介紹左方 Merlin.Play("GestureLeft");
介紹右方 Merlin.Play("GestureRight");
雙手高舉 Merlin.Play("GestureUp");
慢慢敲門 Merlin.Play("GetAttention");
快速敲門 Merlin.Play("GetAttentionContinued");
快速無聲敲門 Merlin.Play("GetAttentionReturn");
大鞠躬 Merlin.Play("Greet");
豎起雙耳 Merlin.Play("Hearing_1");
聽聽左邊 Merlin.Play("Hearing_2");
豎起右耳 Merlin.Play("Hearing_3");
豎起左耳 Merlin.Play("Hearing_4");
暫離 Merlin.Play("Hide");
看上方 Merlin.Play("Idle1_1");
看左邊 Merlin.Play("Idle1_2");
看右邊 Merlin.Play("Idle1_3");
看右上方 Merlin.Play("Idle1_4");
拿出魔法棒 Merlin.Play("Idle2_1");
歡迎光臨 Merlin.Play("Idle2_2");
大笑 Merlin.Play("Idle3_1");
打瞌睡 Merlin.Play("Idle3_2");
慢慢看下方 Merlin.Play("LookDown");
看下方 Merlin.Play("LookDownBlink");
看上方 Merlin.Play("LookDownReturn");
慢慢看左上方 Merlin.Play("LookLeft");
快速看左上方 Merlin.Play("LookLeftBlink");
看左上方後恢復 Merlin.Play("LookLeftReturn");
慢慢看右上方 Merlin.Play("LookRight");
快速看右上方 Merlin.Play("LookRightBlink");
看右上方後恢復 Merlin.Play("LookRightReturn");
慢慢看上方 Merlin.Play("LookUp");
快速看上方 Merlin.Play("LookUpBlink");
看上方後恢復 Merlin.Play("LookUpReturn");
向下飛 Merlin.Play("MoveDown");
向右飛 Merlin.Play("MoveLeft");
向左飛 Merlin.Play("MoveRight");
向上飛 Merlin.Play("MoveUp");
拱手作揖 Merlin.Play("Pleased");
煮藥後收回 Merlin.Play("Process");
煮藥 Merlin.Play("Processing");
查閱資料 Merlin.Play("Read");
查到資料 Merlin.Play("ReadContinued");
反覆看書 Merlin.Play("Reading");
收起書本 Merlin.Play("ReadReturn");
嘆氣 Merlin.Play("Sad");
看水晶球後收回 Merlin.Play("Search");
看水晶球 Merlin.Play("Searching");
出現２ Merlin.Play("Show");
仔細聆聽左方２ Merlin.Play("StartListening");
摀起雙耳 Merlin.Play("StopListening");
靈機一動 Merlin.Play("Suggest");
歡呼 Merlin.Play("Surprised");
想事情 Merlin.Play("Think");
摸鬍子 Merlin.Play("Thinking");
身體向前傾 Merlin.Play("Uncertain");
揮揮手 Merlin.Play("Wave");
寫字一遍 Merlin.Play("Write");
寫字兩遍 Merlin.Play("WriteContinued");
收起書筆 Merlin.Play("WriteReturn");
反覆寫字 Merlin.Play("Writing");
出現 Merlin.Show();

用Agent+ASP技術制作語音聊天室
--------------------以下為程序內容,按文章中出現的順序分塊排序

<!--定義"AgentControl"-->
<OBJECT classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0 id=Agent>
</OBJECT>

<!--定義L&H TruVoice Text-To-Speech American English -->
<OBJECT classid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575
codeBase=#VERSION=6,0,0,0 id=TruVoice width="14" height="14">
</OBJECT>
______________________________________________________________

嘗試從微軟Agent角色目錄中裝載
Set LoadRequestUNC = Agent.Characters.Load ("Peedy", "Peedy.acs")

  If LoadRequestUNC.Status <> 0 Then
    ' 如果失敗便嘗試從微軟服務器下載
    Set LoadRequestURL = Agent.Characters.Load ("Peedy", "http://agent.microsoft.com/agent2/chars/peedy/peedy.acf")
  Else
    ' 現在產生一個Peedy實例
    Set Peedy = Agent.Characters("Peedy")
  End If
_____________________________________________________________

<HTML>
<BODY>
<h3 align="center"><font color="#0000FF">Welcome to My Chatroom!</font></h3>
<FORM method="POST" action="default.asp">
  <p align="center">Your name please:
  <input type="text" name="txtUsername" size="20">
  <input type="submit" value="OK" name="btnOK"></p>
</FORM>
<p align="center"><a href="download.htm">Click here to go to download page.</a></p>
</BODY>
</HTML>
_______________________________________________________________________

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    Application("message")=""     '發言內容
    Application("expression")=""  '表情
    Application("sender")=""      '發言者ID
    Application("globalid")=0     '發言總序號
End Sub
</SCRIPT>
_______________________________________________________________________
<%
  Session("username") = Server.HtmlEncode(Request.Form("txtUsername"))
  Session("personalid")=0
%>
<HTML>
<HEAD>
<TITLE>Welcome to My Chatroom!</TITLE>
</HEAD>
<frameset border=0 frameSpacing=0 cols="98,*" frameBorder=0>
  <frame name="agent" src="agent.asp">
  <frameset rows="196,68,*">
    <frame name="display" src="display.asp">
    <frame name="refresh" src="refresh.asp">
    <frame name="message" src="message.asp">
  </frameset>
</frameset>
<frameset>
</frameset>
</HTML>
________________________________________________________________

<HTML>
<BODY BGCOLOR="#006699" TEXT="#FFFFFF">
<!--定義"AgentControl"-->
<OBJECT classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0 id=Agent>
</OBJECT>
<!--定義L&H TruVoice Text-To-Speech American English -->
<OBJECT classid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575
codeBase=#VERSION=6,0,0,0 id=TruVoice width="14" height="14">
</OBJECT>

<SCRIPT language=VBScript>
Dim Peedy
Dim LoadRequestUNC
Dim LoadRequestURL
Dim GetShowAnimation

Sub Window_OnLoad
  LoadCharacter
  ' 設置Agent的語言代號
  Peedy.LanguageID = &H0409
  ' 讓Peedy出現
  Peedy.MoveTo window.event.screenX-100,window.event.screenY-100
  Peedy.Show
  ' 好啦，Peedy可以開口說話了
  Peedy.Speak "Welcome to my chatroom!"
  Peedy.Play "Greet"
End Sub

Sub Agent_RequestComplete(ByVal Request)
  ' 如果是從微軟服務器裝載ACF角色的請求結束
  If Request = LoadRequestURL Then
    ' 如果申請下載失敗
    If Request.Status = 1 Then
      Msgbox "無法從服務器下載Peedy，可能服務器太忙。"
      Exit Sub
      ' 如果成功\r
    ElseIf Request.Status = 0 Then
      ' 產生一個實例
      Set Peedy = Agent.Characters("Peedy")
      ' 預取Peedy的部分動畫效果
      Set GetShowAnimation = Peedy.Get ("state", "showing, speaking")
      Peedy.Get "animation", "Blink, Greet, Pleased, Explain, Think, GestureRight,Idle1_1,Idle2_2, Announce, Uncertain", False
    End If
    ' 如果是請求預取動畫效果的請求結束
  ElseIf Request = GetShowAnimation Then
    ' 如果失敗
    If Request.Status = 1 Then
      Msgbox "下載動畫的請求失敗，可能服務器太忙。"
      Exit Sub
    End If
  End If
End Sub

' 裝載Agent角色
Sub LoadCharacter
  On Error Resume Next
  ' 嘗試從微軟Agent角色目錄中裝載
  Set LoadRequestUNC = Agent.Characters.Load ("Peedy", "Peedy.acs")

  If LoadRequestUNC.Status <> 0 Then
  ' 如果失敗便嘗試從微軟服務器下載
    Set LoadRequestURL = Agent.Characters.Load ("Peedy", "http://agent.microsoft.com/agent2/chars/peedy/peedy.acf")
  Else
    ' 產生一個Peedy實例
    Set Peedy = Agent.Characters("Peedy")
  End If
End Sub

</SCRIPT>
</BODY>
</HTML>

________________________________________________________________

<HTML>
<HEAD>
<META HTTP-EQUIV="REFRESH" CONTENT=3 URL="refresh.asp">
</HEAD>
<BODY>
<SCRIPT language=VBScript>
Sub Window_OnLoad
<%
  If Session("personalid") < Application("globalid") Then
%>
    self.parent.display.document.write("<table width=100%  border=0 cellPadding=0 cellSpacing=0><font color=#0000FF>"+"<%=Application("sender")%>"+"</font>: "+"<%=Application("message")%>"+"</table>")
    self.parent.display.scroll 0, 20000000
    self.parent.agent.Peedy.Speak "<%=Application("message")%>"
    self.parent.agent.Peedy.Play  "<%=Application("expression")%>"
<%
    Session("personalid") = Application("globalid")
  End If
%>
End Sub
</SCRIPT>
</BODY>
</HTML>
____________________________________________________________________

<%
  Application.Lock
  If Request.Form("txtMessage") <> "" Then
    Application("message") = Server.HtmlEncode(Request.Form("txtMessage"))
    Application("sender")  = Session("username")
    Application("expression") = Request.Form("rdoExpression")
    Application("globalid") = Application("globalid") + 1
  End If
  Application.UnLock
%>
<HTML>
<HEAD>
<STYLE type=text/css>
.smalltext {font-size: 9pt}
</STYLE></HEAD>
<BODY BGCOLOR="#006699" TEXT="#FFFFFF" onload="document.frmMessage.txtMessage.focus();">
<FORM METHOD="POST" ACTION="message.asp" name=frmMessage>
  <p class="smalltext">
  You are welcome,<%=Session("username")%>
  &nbsp;
  </p>
  <p class="smalltext">
  Choose an expression:<br>
  <input type="radio" value="Idle1_1" checked name="rdoExpression">Normal
  <input type="radio" value="Explain" name="rdoExpression">Explain
  <input type="radio" value="Greet" name="rdoExpression">Greet
  <input type="radio" value="Congratulate" name="rdoExpression">Congratulate
  <input type="radio" value="Decline" name="rdoExpression">Decline
  <input type="radio" value="Pleased" name="rdoExpression">Pleased
  <input type="radio" value="Think" name="rdoExpression">Think
  <input type="radio" value="Announce" name="rdoExpression">Announce
  <input type="radio" value="Uncertain" name="rdoExpression">Uncertain
  <input type="radio" value="GestureRight" name="rdoExpression">Gesture Right
  <input type="radio" value="DontRecognize" name="rdoExpression">Don't Recognize
  <input type="radio" value="GetAttention" name="rdoExpression">Get Attention
  <input type="radio" value="DoMagic2" name="rdoExpression">Do Magic
  </p>
  <p class="smalltext">
  Message:<input name="txtMessage" type="TEXT" size=66>
  <input type="submit" name="Submit" value="Submit">
  </p>
</FORM>
</BODY>
</HTML>