break on


; first, try for the default agent (the wizard 'Merlin')

if exist( "%WinDir%\msagent\chars\merlin.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.wait()
$=$char.moveto(400, 300)
$req=$char.speak("Ola, " + @fullname + ". Obrigado por se logar ao domínio " + @LDOMAIN + ". Tenha um bom dia, um ótimo trabalho e até mais...")



endif

Break On 

$path = "%windir%\msagent\chars\merlin.acs" 
$agent = CreateObject ("agent.control.2") 
$agent.connected = 1 
$= $agent.characters.load("merlin",$path) 
$merlin = $agent.characters.character("merlin") 
$= $merlin.moveto(400,200) 
$= $merlin.show() 

$wait = $merlin.Play("announce" ) 
Do Sleep 0.25 Until $merlin.wait($wait) <> 0 

?"After announce..." 
$wait = $merlin.speak("Hello! I am a basta !" ) 
Do Sleep 0.25 Until $merlin.wait($wait) <> 0 

?"After I am basta..." 
$wait = $merlin.speak("Jooel is a basta !" ) 
Do Sleep 0.25 Until $merlin.wait($wait) <> 0 

?"After Jooel basta..." 
$wait = $merlin.speak("Wouldn't you like to be a basta too ?" )
Do Sleep 0.25 Until $merlin.wait($wait) <> 0 

?"After you basta..." 
$wait = $merlin.Play("READ")
$merlin.speak("Oh yeah, it says here Cybex is one cool basta!" )
Do Sleep 0.25 Until $merlin.wait($wait) <> 0 

$wait = $merlin.hide
Do Sleep 0.25 Until $merlin.wait($wait) <> 0 

Exit 0

; Minimum DLL version shell32.dll version 4.71 or later 

; Minimum operating systems Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, 

; Windows 98, Windows 95 with Internet Explorer 4.0 

; $FILE=Path and name of file to use

; $Show sets whether or not to show the player 0=no 1=yes

; $Wait says for the script to wait for the file to finish before closing 0=no 1=yes

; If files listed in the $MediaList are videos it will display the player even if you set it to no 

 

Break On

Dim $SO

$SO=SetOption('Explicit','On')

$SO=SetOption('NoVarsInStrings','On')

   

Dim $Play,$UserList

$UserList = Split("user1|user2|user3","|")

If AScan ($UserList, @USERID)>=0

	$Play=PlayMediaFile(@LDrive+'weaklink.wav',0,0)

EndIf

   

Function PlayMediaFile($File,$Show,$Wait)

	Dim $objShell,$MediaList,$RC

	If Exist($File)

		If $Show<>1 $Show=0 EndIf

		If $Wait<>1 $Wait=0 EndIf

    	$MediaList = "wmv","asf","mpg","avi"

		If AScan ($MediaList, Right(($File),3))>=0

			$Show=1

		EndIf

		$objShell=CreateObject('WScript.Shell')

		$RC=$objShell.Run('mplay32.exe /play /close ' + '"' + $File + '"',$Show,$Wait)

	Else

		$PlayMediaFile=@ERROR

		Quit $PlayMediaFile

	EndIf

EndFunction

Quote:

---

Here is another way to exit. :grin

---

 
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