Windows Animationen nutzen

  • Bemüh mal https://autoit.de/www.google.at, ob du diw Videos dazu findest! Du kannst die dann ja per FileInstall einbinden!
    Oder du nimmst ein Screenvideo-Programm und filmst den Merlin, wie er alles mögliche macht.
    MfG

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • Da ist er ja! :D

    [autoit]

    $Frm_Main = GUICreate("TestGUI")
    GUISetBkColor(0x003399)
    $Agent = "Agent.Control.2"
    If IsObj($Agent) Then
    $Agent = ObjGet("",$Agent)
    Else
    $Agent = ObjCreate($Agent)
    EndIf
    $Agent.Connected = 1
    $aEmbedded = GUICtrlCreateObj($Agent, 10, 10, 60, 60)
    $Agent.Characters.Load ("Rover",@WindowsDir & "\Msagent\Chars\merlin.acs")
    $A_Chr = $Agent.Characters.Character("rover")
    $A_Chr.Show()
    $A_Chr.Play("Thinking")
    GUISetState()

    [/autoit][autoit][/autoit][autoit]

    While 1
    If GUIGetMsg() = -3 Then
    $A_Chr.Hide()
    MsgBox(0, "Test", $A_Chr.stop)
    $Agent.Connected = 0
    $Agent = ""
    ExitLoop
    EndIf
    Wend

    [/autoit]
  • Ich habs mal ein bischen weiter gemacht :)
    Hier fallst du es brauchst:

    Spoiler anzeigen
    [autoit]

    HotKeySet("{ESC}","_ende")
    Global $go=1

    [/autoit] [autoit][/autoit] [autoit]

    $Id=AgentStartup()

    [/autoit] [autoit][/autoit] [autoit]

    AgentShow($Id[1])
    AgentSetPosition($Id[1])
    AgentSpeak($Id[1],"Hallo")
    AgentAnimate($Id[1],"Confused")
    AgentThink($Id[1],"Hört der mich??")

    [/autoit] [autoit][/autoit] [autoit]

    Do
    Sleep ( 100 )
    Until $go=0

    [/autoit] [autoit][/autoit] [autoit]

    AgentShutdown($Id[0],$Id[1])

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentStartup($char="merlin.acs")
    Local $result[2]
    $Agent = "Agent.Control.2"
    If IsObj($Agent) Then
    $Agent = ObjGet("",$Agent)
    Else
    $Agent = ObjCreate($Agent)
    EndIf
    $Agent.Connected = 1
    $Agent.Characters.Load ("Rover",@WindowsDir & "\Msagent\Chars\"&$char)
    $A_Chr = $Agent.Characters.Character("rover")
    $result[0]=$Agent
    $result[1]=$A_Chr
    Return $result
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentShow($CharId)
    $CharId.Show()
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentAnimate($CharId,$AnimationName)
    $CharId.Play($AnimationName)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentSpeak($CharId,$Text)
    $CharId.Speak($Text)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentThink($CharId,$Text)
    $CharId.Think($Text)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentSetPosition($CharId,$X=-1,$Y=-1)
    If $X=-1 Then $X=@DesktopWidth/2-100
    If $Y=-1 Then $Y=@DesktopHeight/2-100
    $CharId.MoveTo ($X,$Y)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentHide($CharId)
    $CharId.Hide()
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func AgentShutdown($Agent,$CharId)
    $CharId.Hide()
    $CharId.Stop()
    $Agent.Connected = 0
    $Agent = ""
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _ende()
    $go=0
    EndFunc

    [/autoit]