Wait 方法
[Microsoft 代理程式在 Windows 7 中已被取代,且在後續版本的 Windows 中可能無法使用。]
-
描述
-
讓指定字元的動畫佇列等到指定的動畫要求完成為止。
-
語法
-
agent**。字元 (「CharacterID」) 。Wait**Request
部分 描述 要求 指定特定動畫的 Request 物件。
只有在支援多個同時 () 字元,並嘗試排序字元的互動時,才使用此方法。 (針對單一字元,每個動畫要求都會循序播放--在先前的要求完成之後。) 如果您有兩個字元,而且您想要字元的動畫要求等到其他字元的動畫完成為止,請將 Wait 方法設定為另一個字元的動畫 Request 物件。 若要指定要求參數,您必須建立變數,並指派您想要中斷的動畫要求:
Dim GenieRequest
Dim RobbyRequest
Dim Genie
Dim Robby
Sub window_Onload
Agent1.Characters.Load "Genie", "https://agent.microsoft.com/characters/v2/genie/genie.acf"
Agent1.Characters.Load "Robby", "https://agent.microsoft.com/characters/v2/robby/robby.acf"
Set Genie = Agent1.Characters("Genie")
Set Robby = Agent1.Characters("Robby")
Genie.Get "State", "Showing"
Robby.Get "State", "Showing"
Genie.Get "Animation", "Announce, AnnounceReturn, Pleased, _
PleasedReturn"
Robby.Get "Animation", "Confused, ConfusedReturn, Sad, SadReturn"
Set Genie = Agent1.Characters ("Genie")
Set Robby = Agent1.Characters ("Robby")
Genie.MoveTo 100,100
Genie.Show
Robby.MoveTo 250,100
Robby.Show
Genie.Play "Announce"
Set GenieRequest = Genie.Speak ("Why did the chicken cross the road?")
Robby.Wait GenieRequest
Robby.Play "Confused"
Set RobbyRequest = Robby.Speak ("I don't know. Why did the chicken _
cross the road?")
Genie.Wait RobbyRequest
Genie.Play "Pleased"
Set GenieRequest = Genie.Speak ("To get to the other side.")
Robby.Wait GenieRequest
Robby.Play "Sad"
Robby.Speak "I never should have asked."
End Sub
您也可以使用特定的動畫要求直接呼叫 Wait 來簡化程式碼。
Robby.Wait Genie.Play "GestureRight"
這可避免必須明確宣告 Request 物件。