You don't have to answer if you don't want to, because I'm just bored and screwing around...

But, do any of you know how I might make Merlin move in an uninterrupted circle around the screen? As it is now, he just makes a hop, stops, and then flys off to the next coordinate.



Code:
 
break on



$agentname = "merlin"

if len( $agentname )
   $agentpath = "%WinDir%\msagent\chars\" + $agentname + ".acs"

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

   if @error = 0
      $agent.connected = "1"
      $=$agent.characters.load($agentname,$agentpath)
      $char = $agent.characters.character($agentname)

      $=$char.show()
      $=$char.moveto(0, 0)
      while $char.status = 4
         sleep 1  ; give him time to catch up...
      loop

      $=$char.play("read")
      while $char.status = 4
         sleep 1  ; give him time to catch up...
      loop

:loop
$=$char.moveto(1000, 0)
$=$char.moveto(1000, 800)
$=$char.moveto(0, 800)
$=$char.moveto(0, 0)      
$=$char.moveto(1000, 400)
$=$char.moveto(500, 800)
$=$char.moveto(0, 400)
$=$char.moveto(500, 0)
gosub "loop"

      while $char.status = 4
         sleep 1  ; give him time to catch up...
      loop

      $=$char.play("readreturn")
      gets $x
   else
      ? "Microsoft Agent not installed, or failed to start. " + @error + " / " + @serror
   endif