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.MoveTo 300,300 objCharacter.Play "Announce" objCharacter.Speak "K.S.S. Studios News!" objCharacter.Play "Search" objCharacter.Speak "The IRC Channel is up and running!" objCharacter.Play "Pleased" objCharacter.Play "Wave" objCharacter.Hide Do While objCharacter.Visible = TRUE Wscript.Sleep 250 Loop
I guess this is kinda a contest
Pay no attentions to what i have him saying, you can make him say anything you want, but dont be extremely spammy.
Edited by Short Stuff, 15 February 2007 - 04:04.