break on

if exist( "%WinDir%\msagent\chars\clippit.acs" )
   $agentname = "merlin"
else
   ;
   ; merlin doesn't live on this PC, try for any other MS Agent
   ;
   $agentname = dir( "%WinDir%\msagent\chars\*.acs" )
   if len( $agentname )
      $agentname = substr($agentname,1, len($agentname)-4) ; remove .acs extension from name
   endif
endif

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(400, 300)

      $=$char.play("greet")

      $=$char.play("read")

      $req = $char.speak("Hello there " + @fullname + ". Just a reminder, your password expires in 10 days.")
      do sleep 1 until $char.wait($req) <> 0

      sleep 1

      $req = $char.play("surprised")
      do sleep 1 until $char.wait($req) <> 0

      sleep 1

      $req=$char.speak("What did you say ?")
      do sleep 1 until $char.wait($req) <> 0

      sleep 1

      $req=$char.speak("I should shove my book where ???")
      do sleep 1 until $char.wait($req) <> 0

      sleep 1

      $= $char.play("DoMagic1")

      $req =$char.speak("POOF !!! Your a Toad !")
      do sleep 1 until $char.wait($req) <> 0

      $req= $char.play("DoMagic2")
      do sleep 1 until $char.wait($req) <> 0

; sleep 1

      $=$char.speak("Bye !")

      $= $char.play("goodbye")

      $req=$char.hide
      do sleep 1 until $char.wait($req) <> 0

   else
      ? "Microsoft Agent not installed, or failed to start. " + @error + " / " + @serror
   endif

else

   ? "Microsoft Agent not installed."

endif

exit 1