Hi
hab ma sone farege die mir seid längerem quält
So ich würde gerne ein skript schreiben worin sozusagen ein 2 skript drin ist .
z.b
Spoiler anzeigen
HotKeySet("{ESC}","_ende")
Global $go=1
$Id=AgentStartup()
[/autoit] [autoit][/autoit] [autoit]AgentShow($Id[1])
AgentSetPosition($Id[1])
AgentSpeak($Id[1],"Hallo Name")
AgentAnimate($Id[1],"Confused")
AgentThink($Id[1],"Hört der mich??")
Do
Sleep ( 100 )
Until $go=0
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
Func AgentShow($CharId)
$CharId.Show()
EndFunc
Func AgentAnimate($CharId,$AnimationName)
$CharId.Play($AnimationName)
EndFunc
Func AgentSpeak($CharId,$Text)
$CharId.Speak($Text)
EndFunc
Func AgentThink($CharId,$Text)
$CharId.Think($Text)
EndFunc
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
Func AgentHide($CharId)
$CharId.Hide()
EndFunc
Func AgentShutdown($Agent,$CharId)
$CharId.Hide()
$CharId.Stop()
$Agent.Connected = 0
$Agent = ""
EndFunc
Func _ende()
$go=0
EndFunc
dieses skript soll halt im 2 skript stehen oder per include benuzt werden .
davohr soll aber eine msgbox kommen wo man den namen reinschreibt den er dan sagen soll