Jump to content
Sign in to follow this  
mesale0077

merlin code

Recommended Posts

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

Share this post


Link to post
Share on other sites
Jos

Do you mean this merlin?

$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

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
MrCreatoR

Look also at the MSAgentLib.


 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites
mesale0077

thank you I needed,you are wonderfull,great

Edited by mesale0077

Share this post


Link to post
Share on other sites
jarodhy

thank you I needed,you are wonderfull

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×