merlin code

[mesale0077]

hi

vb code

Dim merlin As IAgentCtlCharacterEx

Const DATAPATH = "merlin.acs"

Private Sub Form_Load()

Agent1.Characters.Load "merlin.acs", DATAPATH

Set merlin = Agent1.Characters("merlin.acs")

merlin.LanguageID = &H409

merlin.Show 'MERLİN show"

End Sub

help code auto it how is it

good work u

[Jos]

Do you mean this merlin?

expandcollapse popup

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler 
$strAgentName = "Merlin"
$strAgentPath = "C:\Windows\Msagent\Chars\" & $strAgentName & ".acs"
$Obj1 = ObjCreate("Agent.Control.2")
$Obj1.Connected = 1
$Obj1.Characters.Load ($strAgentName, $strAgentPath)
if @error then exit 
$objCharacter = $obj1.Characters.Character($strAgentName)
$objCharacter.Show
sleep(200)
;MsgBox(0,'wait','wait for merlin')
;$objCharacter.Play("GetAttention")
$objCharacter.Speak("Hello, how are you?")
sleep(2000)
$objCharacter.Play ("GetAttention")
$objCharacter.Speak ("Hello, how are you?")
$objCharacter.Play ("LookDown")
$objCharacter.Think ("Maybe I should move around a little ....")
$objCharacter.MoveTo (500,400)
$objCharacter.Play ("Pleased")
sleep(2000)
$objCharacter.Balloon.Style = 0
$objCharacter.Speak("I'm going now. Goodbye.")
$objCharacter.Hide
While $objCharacter.Visible = TRUE
    Sleep(250)
WEnd

; This is my custom error handler 
Func MyErrFunc() 
   $HexNumber=hex($oMyError.number,8) 
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
                "LineNumber is: " & $oMyError.scriptline & @CRLF & _
                "Number is: " & $HexNumber & @CRLF & _
                "Desc is: " & $oMyError.description & @CRLF & _
                "Windescription is: " & $oMyError.windescription ) 

   SetError(1); something to check for when this function returns 
Endfunc

[MrCreatoR]

Look also at the MSAgentLib.

[mesale0077]

thank you I needed,you are wonderfull,great

Edited April 18, 2009 by mesale0077

[jarodhy]

thank you I needed,you are wonderfull