MERLIN

strAgentName="Merlin"
strAgentPath="C:\WINDOWS\msagent\chars\" & strAgentName & ".acs"
Set objAgent=CreateObject("Agent.Control.2")

objAgent.Connected=TRUE
objAgent.Characters.Load strAgentName, strAgentPath
Set objCharacter=objAgent.Characters.Character(strAgentName)

objCharacter.Show
objCharacter.Play "GetAttention"
objCharacter.Play "Greet"
objCharacter.Speak "Hello Dudi, Gimana Kabarnya"
objCharacter.Play "LookDown"
objCharacter.Speak "Jalan-jalan dulu di desktop, ah"
objCharacter.MoveTo 500, 400, 600
objCharacter.Play "DoMagic2"
objCharacter.Speak "Kenalin Namaku Merlin si penyihir"
objCharacter.Play "Decline"
objCharacter.Speak "Jalan jalan lagi ah"
objCharacter.MoveTo 400, 30, 3000
objCharacter.Play "DoMagic1"
objCharacter.Speak "Kamu belum tau aku bisa gini"
objCharacter.Play "Announce"
objCharacter.MoveTo 400, 300, 0
objCharacter.Speak "Makasih Dudi aku bisa muncul di desktop"
objCharacter.Play "Surprised"
objCharacter.Play "GetAttention"
objCharacter.MoveTo 500, 300
objCharacter.Play "Read"
objCharacter.Play "GestureRight"
objCharacter.Play "GestureDown"
objCharacter.MoveTo 40, 40, 0
objCharacter.Play "Search"
objCharacter.Play "Explain"
objCharacter.Play "Congratulate"
objCharacter.MoveTo 200, 400
objCharacter.Play "Pleased"
objCharacter.Play "Congratulate_2"
objCharacter.MoveTo 300, 300
objCharacter.Play "Think"
objCharacter.Play "LookDown"
objCharacter.Play "GestureDown"
objCharacter.GestureAt 700, 0
objCharacter.MoveTo 700,400
objCharacter.Play "Idle1_2"
objCharacter.Play "Idle1_3"
objCharacter.Play "Process"
objCharacter.MoveTo 600,400
objCharacter.Play "Uncertain"
objCharacter.Play "Write"
objCharacter.Play "Idle2_1"
objCharacter.Play "Idle2_2"
objCharacter.Play "WriteReturn"
objCharacter.Play "Suggest"
objCharacter.Play "Sad"
objCharacter.Play "DontRecognize"
objCharacter.Speak "Pulang dulu ya"
objCharacter.Play "Wave"
objCharacter.Hide

Do While objCharacter.Visible=TRUE
WScript.Sleep 250
Loop