This is how it looks in VBScript:

Set Figure1 = Activate("Genie")
Figure1.Show
figure1.MoveTo(400,300)
set Request=figure1.speak("Welcome to the new network")
Do Until request.Status = Complete
Wscript.Sleep 100
Loop

The VBScript code work just fine. I've converted it into KIX 4.01 and it looks like this:

$AgentName="Genie"
$AgentPath = "%WinDir%\MSAgent\Chars\Genie.ACS"
$Agent = CreateObject ("Agent.Control.2")
$Agent.Connected = "1"
$=$Agent.Characters.Load($AgentName,$AgentPath)
$Char = $Agent.Characters.Character($AgentName)
$=$Char.Show()
$=$Char.MoveTo(400, 300)
$request=$Char.Speak("Hello. Thank you for logging on to the network")
while $request.status and not @error
sleep(1)
loop

This code does not work. In VBScript the value for "request.status" changes when the agent stops speaking. In the KIX code, the value for "$request.status" is 2 and never changes. Any idea how to get his to work properly in KIX?

code:

---

Break on
$AgentName="Genie"
$AgentPath = "%WinDir%\MSAgent\Chars\Genie.ACS"
$Agent = CreateObject ("Agent.Control.2")
$Agent.Connected = "1"
$=$Agent.Characters.Load($AgentName,$AgentPath)
$Char = $Agent.Characters.Character($AgentName)
$=$Char.Show()
sleep 1
$=$Char.MoveTo(400, 300)
sleep 1
$request=$Char.Speak("Hello. Thank you for logging on to the network")
While ($Agent.AudioOutput.Status) <> 0
  sleep 1
Loop
$Agent.AudioOutput.Status ?
get $_
  

---

[ 04 February 2002: Message edited by: LLigetfa ]

Also, what do you want to do with
$Agent.AudioOutput.Status ?
????
i don't get a look to how this thing is working, but it seems to me that there is a mistake in the line

As an example of the problems I'm seeing, your code didn't work for me until I threw in a few more sleep statements because it just ran too fast for the animation to keep up.

break on

$merlin_path = "%windir%\msagent\chars\merlin.acs"

$agent = createobject ("agent.control.2")

$agent.connected = "1"

$= $agent.characters.load("merlin","$merlin_path")

$merlin = $agent.characters.character("merlin")

$= $merlin.moveto(400,200)

$= $merlin.show()

$wait = $merlin.play("announce" )

do sleep 1 until $merlin.wait($wait) <> 0 

$wait = $merlin.speak("I'm done blowing my own horn" )

do sleep 1 until $merlin.wait($wait) <> 0 

?"script done..."

exit 1

-Shawn

[ 04 February 2002: Message edited by: Shawn ]

Once again, you're the better man.

No worries mate. Normally, $merlin.wait($wait) doesn't work because an agent can't wait on it's on request object. I just applied a few kix trix to make it work. Actually, this is probably a better expression to use in a logon script - it's a bit more bullet proof because we want to insure a valid request object before we wait in a loop:

if $wait do sleep 1 until $merlin.wait($wait) <> 0 endif

Anyways, lets see what mmantei thinks of our solution.

-Shawn