Text an Game senden mit GUI, send und variablen.....

  • Hi,

    habe nen prob mit meinem dicken fetten script, wie ich finde.
    Kurze erklärung was der teil machen soll der nicht geht:

    Ich habe eine GUI in der ist ein GUICtrlCreateInput da soll z.B. ein name rein.

    [autoit]

    $Group3 = GUICtrlCreateGroup("Send Kiss", 8, 816, 297, 113)
    $Label36 = GUICtrlCreateLabel("U would kiss someone?", 72, 840, 167, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label37 = GUICtrlCreateLabel("Kiss:", 32, 888, 32, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label38 = GUICtrlCreateLabel("In the free field u put in a name of a player.", 56, 864, 205, 17)
    $name = GUICtrlCreateInput("", 64, 886, 193, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit]


    In $name = GUICtrlCreateInput("", 64, 886, 193, 21) kommt dann der name rein.

    Und wenn ich dann den hotkey drücke soll das passieren

    [autoit]

    Func _kiss()
    WinActivate("Dekaron", "")
    WinWaitActive("Dekaron")
    Opt("SendKeyDelay", 0)
    Send ("{ENTER}Kiss " & $Kiss & ":-x")
    EndFunc

    [/autoit]

    Nur leider kommt immer diese Fehler meldung

    Code
    H:\Games\2Moons Tools\MultiAccount using\Start.au3(164,31) : WARNING: $Kiss: possibly used before declaration.
    	Send ("{ENTER}Kiss " & $Kiss &
    	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    H:\Games\2Moons Tools\MultiAccount using\Start.au3(164,31) : ERROR: $Kiss: undeclared global variable.
    	Send ("{ENTER}Kiss " & $Kiss &
    	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    H:\Games\2Moons Tools\MultiAccount using\Start.au3 - 1 error(s), 1 warning(s)

    Hat vllt einer eine idee wie ich es umsetzen kann, dass es im spiel enter drückt dann aus der GUI den namen vom user und nen bisl text schreibt.

    ?( ?( ?(

    Einmal editiert, zuletzt von EmEx (25. März 2009 um 14:18)

  • jo klink gut aber nun kommt

    Code
    H:\Games\2Moons Tools\MultiAccount using\Start.au3(157,26) : WARNING: $name: possibly used before declaration.
    $kiss = GUICtrlRead($name)
    ~~~~~~~~~~~~~~~~~~~~~~~~~^
    H:\Games\2Moons Tools\MultiAccount using\Start.au3(157,26) : ERROR: $name: undeclared global variable.
    $kiss = GUICtrlRead($name)
    ~~~~~~~~~~~~~~~~~~~~~~~~~^
    H:\Games\2Moons Tools\MultiAccount using\Start.au3 - 1 error(s), 1 warning(s)

    vllt irgend nen include?

    habs nun mal so probiert

    [autoit]

    Func _kiss()
    WinActivate("Dekaron", "")
    WinWaitActive("Dekaron")
    $kiss = GUICtrlRead("$name")
    Opt("SendKeyDelay", 0)
    Send ("{ENTER}Kiss " & $kiss & ":-x")
    EndFunc

    [/autoit]

    kommt aber nur Kiss 0:-x raus

    Einmal editiert, zuletzt von EmEx (25. März 2009 um 01:12)

  • wenn ich das genau so mache wie du es mir geschrieben hast dann bekomme ich diese fehler meldung

    Code
    H:\Games\2Moons Tools\MultiAccount using\Start.au3(163,27) : WARNING: $name: possibly used before declaration.
    	$kiss = GUICtrlRead($name)
    	~~~~~~~~~~~~~~~~~~~~~~~~~^
    H:\Games\2Moons Tools\MultiAccount using\Start.au3(163,27) : ERROR: $name: undeclared global variable.
    	$kiss = GUICtrlRead($name)
    	~~~~~~~~~~~~~~~~~~~~~~~~~^
    H:\Games\2Moons Tools\MultiAccount using\Start.au3 - 1 error(s), 1 warning(s)
  • Also, erstmal, was Du da schreibst ist offensichtlich ein Gamebot, und sowas wird hier nicht unterstützt. Dein Post wird heute sicher geschlossen und in Bot Coding verschoben.

    Dann zum eigentlichen Problem. Die Art und Weise wie Du fragst, und das Du bei einer so simplen Sache nicht selber auf die Lösung kommst, zeigt mir eindeutig das Du definitiv den Bot nicht selber programmiert hast. Sonst wärst Du niemals so weit gekommen. Also schmücke Dich nicht mit fremden Federn.

    Um Dir aber beim Lernen von AutoIt und Programmieren weiter zu helfen, will ich Dir noch diesen Tipp geben. Dein Problem hat entweder mit der Sichtbarkeit von Variablen zu tun (Stichworte Global, Dim, Local) was ich aber für die unwahrscheinlichere Variante halte, oder aber Du hast beim Verändern des Bots einen Funktionsaufruf gelöscht, der die globale Variable $kiss definiert hat. Durchsuche den Sourcecode einfach mal nach weiteren Verwendungen von $kiss und Du solltest mindestens eine Stelle mit $kiss = ..... finden.

    Und so eine Stelle, eine Zuweisung, muss ausgeführt werden, bevor Du den Wert in Deiner Funktion verwenden willst. Außerdem wäre ein einfacher Schreibfehler denkbar, z.B. statt $kiss = ... hast Du $kisss = .... geschrieben, weshalb $kiss undefiniert geblieben ist.

    Deshalb benutze ich immer die Option AutoItSetOption("MustDeclareVars",1)

    Viel Spaß noch

    PS: $NAme in den obigen Beispielen war/ist nur ein Platzhalter, den Du mit der richtigen Variablenbezeichnung ersetzten musst. NOOB!!!!

  • Danke für deine offenheit aber erstmal ist es kein Bot der für mich spielt, es ist ein kleines tool so das mann mehrere spiele gleichzeitig spielen kann.
    da es ein privater server ist gib es kein gameguard,falss das jemanden was sagt. ich kann gerne den gesamten source code schicken

    Und ich habe ihn kommplett selber geschrieben.

    Ich glaube allerdings das ich es raus bekommen habe.

    und zwar sah mein script vorher so aus
    Ich habe die GUI in eine Func gepackt.

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=data\icon.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <string.au3>
    hotkeyset("{HOME}", "_Multi_acc_skills_Start")
    hotkeyset("{PAUSE}", "_Pause")
    hotkeyset("{END}", "_exit")
    hotkeyset("ü", "_kiss")

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

    hotkeyset("^1", "_Song1")
    hotkeyset("^2", "_Song2")
    hotkeyset("^3", "_Song3")
    hotkeyset("^4", "_Song4")
    hotkeyset("^5", "_Song5")
    hotkeyset("^0", "_Song6")

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

    Call("_top")

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

    Func _top ()
    #Region ### START Koda GUI section ### Form=h:\games\2moons tools\dekaron multiacc.kxf
    $Form1_1 = GUICreate("Deka MultiAcc Skill using", 316, 936, -1, -1)
    GUISetIcon("D:\003.ico")
    GUISetCursor (0)
    $GroupBox1 = GUICtrlCreateGroup("", 8, 1, 297, 545, -1, $WS_EX_TRANSPARENT)
    $Label1 = GUICtrlCreateLabel("1. Start max. 9 Dekaron Clients!!", 24, 17, 222, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label2 = GUICtrlCreateLabel("3. Rename Deakron Clients", 24, 290, 192, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label3 = GUICtrlCreateLabel("Go to first client and press '1' on Numpad!!", 48, 314, 203, 17)
    GUICtrlSetCursor (-1, 0)
    $Label5 = GUICtrlCreateLabel("Go to second client and press '2' on Numpad!!", 48, 330, 222, 17)
    GUICtrlSetCursor (-1, 0)
    $Label6 = GUICtrlCreateLabel("Go to third client and press '3' on Numpad!!", 48, 346, 207, 17)
    GUICtrlSetCursor (-1, 0)
    $Label7 = GUICtrlCreateLabel("and so on...", 108, 362, 60, 17)
    GUICtrlSetCursor (-1, 0)
    $Label8 = GUICtrlCreateLabel("4. Now use normal Skills and Pots", 24, 376, 237, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label9 = GUICtrlCreateLabel("All Clients use now the same skill and pots", 48, 400, 202, 17)
    GUICtrlSetCursor (-1, 0)
    $Label10 = GUICtrlCreateLabel("For Client 2-9 use game resolution 1280x1024", 48, 448, 219, 17)
    GUICtrlSetCursor (-1, 0)
    $Label11 = GUICtrlCreateLabel("Don't move the clients", 48, 464, 109, 17)
    GUICtrlSetCursor (-1, 0)
    $Label12 = GUICtrlCreateLabel("Now press 0 and Client 2-9 will follow the Client 1", 48, 480, 234, 17)
    GUICtrlSetCursor (-1, 0)
    $Label13 = GUICtrlCreateLabel("5. Client 2-9 follow Client 1", 24, 424, 183, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label14 = GUICtrlCreateLabel("For one party u only need 6 Clients", 48, 42, 167, 17)
    GUICtrlSetCursor (-1, 0)
    $Label4 = GUICtrlCreateLabel("6. Click auf Mobs", 24, 496, 121, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label15 = GUICtrlCreateLabel("Press '-' on Numpad to try to click a Mobs", 48, 512, 199, 17)
    GUICtrlSetCursor (-1, 0)
    $Button_start = GUICtrlCreateButton("START", 32, 176, 75, 25, 0)
    GUICtrlSetCursor (-1, 0)
    $Button_pause = GUICtrlCreateButton("PAUSE", 120, 176, 75, 25, 0)
    $Label16 = GUICtrlCreateLabel("2. START, PAUSE, CLOSE", 24, 65, 187, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Button_close = GUICtrlCreateButton("CLOSE", 208, 176, 75, 25, 0)
    $Label17 = GUICtrlCreateLabel("U can use these Buttons or the Hotkeys:", 48, 90, 196, 17)
    GUICtrlSetCursor (-1, 0)
    $Label18 = GUICtrlCreateLabel("Pos1/Home: Aktivate the MultiAcc Skill using", 48, 114, 221, 17)
    GUICtrlSetCursor (-1, 0)
    $Label19 = GUICtrlCreateLabel("Pause/Break: Paused the MultiAcc Skill using", 48, 130, 227, 17)
    GUICtrlSetCursor (-1, 0)
    $Label20 = GUICtrlCreateLabel("Ende/End: Close the MultiAcc Skill using", 48, 146, 200, 17)
    GUICtrlSetCursor (-1, 0)
    $Group1 = GUICtrlCreateGroup("", 8, 200, 297, 9)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label21 = GUICtrlCreateLabel("This works only when u start the", 56, 226, 221, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label22 = GUICtrlCreateLabel("MultiAcc Skill using", 88, 250, 137, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetCursor (-1, 0)
    $Group2 = GUICtrlCreateGroup("Play Musik", 8, 552, 297, 257)
    $Label23 = GUICtrlCreateLabel("Press '-' on Numpad to try to click a Mobs", 48, 1063, 199, 17)
    GUICtrlSetCursor (-1, 0)
    $Label24 = GUICtrlCreateLabel("Press '-' on Numpad to try to click a Mobs", 56, 1071, 199, 17)
    GUICtrlSetCursor (-1, 0)
    $Label25 = GUICtrlCreateLabel("You can also use your own songs.", 39, 566, 238, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label26 = GUICtrlCreateLabel("In the sounds folder are 5 files, Song1 to Song5.", 15, 590, 231, 17)
    GUICtrlSetCursor (-1, 0)
    $Radio1 = GUICtrlCreateRadio("Song 1", 93, 664, 57, 17)
    $Radio2 = GUICtrlCreateRadio("Song 2", 93, 686, 57, 17)
    $Radio3 = GUICtrlCreateRadio("Song 3", 93, 710, 57, 17)
    $Radio4 = GUICtrlCreateRadio("Song 4", 93, 734, 57, 17)
    $Radio5 = GUICtrlCreateRadio("Song 5", 93, 758, 57, 17)
    $Radio6 = GUICtrlCreateRadio("turn off", 93, 784, 57, 17)
    $Label27 = GUICtrlCreateLabel("Copy your songs in the sounds folder. Delete the old files", 15, 605, 270, 17)
    GUICtrlSetCursor (-1, 0)
    $Label28 = GUICtrlCreateLabel("and rename your songs in Song1 to Song5", 15, 621, 205, 17)
    GUICtrlSetCursor (-1, 0)
    $Label29 = GUICtrlCreateLabel("Select one Song to play it. Select turn off to stop play.", 15, 637, 257, 17)
    GUICtrlSetCursor (-1, 0)
    $Label30 = GUICtrlCreateLabel("HotKey: STRG + 1", 152, 664, 93, 17)
    $Label31 = GUICtrlCreateLabel("HotKey: STRG + 2", 152, 688, 93, 17)
    $Label32 = GUICtrlCreateLabel("HotKey: STRG + 3", 152, 712, 93, 17)
    $Label33 = GUICtrlCreateLabel("HotKey: STRG + 4", 152, 736, 93, 17)
    $Label34 = GUICtrlCreateLabel("HotKey: STRG + 5", 152, 760, 93, 17)
    $Label35 = GUICtrlCreateLabel("HotKey: STRG + 0", 152, 784, 93, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("Send Kiss", 8, 816, 297, 113)
    $Label36 = GUICtrlCreateLabel("U would kiss someone?", 72, 840, 167, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label37 = GUICtrlCreateLabel("Kiss:", 32, 888, 32, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label38 = GUICtrlCreateLabel("In the free field u put in a name of a player.", 56, 864, 205, 17)
    $name = GUICtrlCreateInput("", 64, 886, 193, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE

    Case $Button_start
    call("_Multi_acc_skills_Start")
    Case $Button_pause
    call("_Pause")
    Case $Button_close
    call("_exit")
    Case $Radio1
    call("_Song1")
    Case $Radio2
    call("_Song2")
    Case $Radio3
    call("_Song3")
    Case $Radio4
    call("_Song4")
    Case $Radio5
    call("_Song5")
    Case $Radio6
    call("_Song6")
    Exit

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

    EndSwitch
    WEnd
    EndFunc

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

    ;~Kiss

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

    Func _kiss()
    WinActivate("Dekaron", "")
    WinWaitActive("Dekaron")
    $kiss = GUICtrlRead($name)
    Opt("SendKeyDelay", 0)
    Send ("{ENTER}Kiss " & $kiss & " :-x")
    EndFunc

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

    Func _Multi_acc_skills_Start()
    SoundPlay(@ScriptDir & "\data\Start.wav",0)
    Run ("data\Multi acc skills.exe")
    ToolTip('Script is "Started". END to close Script',0,0)
    EndFunc

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

    Func _Pause()
    SoundPlay(@ScriptDir & "\data\paused.wav",0)
    $PID = ProcessExists("Multi acc skills.exe")
    If $PID Then ProcessClose($PID)
    ToolTip('Script is "Paused". END to close Script',0,0)
    EndFunc

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

    Func _exit()
    SoundPlay(@ScriptDir & "\data\close.wav",0)
    Sleep(1000)
    $PID = ProcessExists("Multi acc skills.exe")
    If $PID Then ProcessClose($PID)
    Exit 1
    EndFunc

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

    ;~Song1 - Song5

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

    Func _Song1()
    SoundPlay(@ScriptDir & "\sounds\Song1.mp3",0)
    TrayTip("Now playing...", "...Song 1", 5, 0)
    EndFunc

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

    Func _Song2()
    SoundPlay(@ScriptDir & "\sounds\Song2.mp3",0)
    TrayTip("Now playing...", "...Song 2", 5, 0)
    EndFunc

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

    Func _Song3()
    SoundPlay(@ScriptDir & "\sounds\Song3.mp3",0)
    TrayTip("Now playing...", "...Song 3", 5, 0)
    EndFunc

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

    Func _Song4()
    SoundPlay(@ScriptDir & "\sounds\Song4.mp3",0)
    TrayTip("Now playing...", "...Song 4", 5, 0)
    EndFunc

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

    Func _Song5()
    SoundPlay(@ScriptDir & "\sounds\Song5.mp3",0)
    TrayTip("Now playing...", "...Song 5", 5, 0)
    EndFunc

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

    Func _Song6()
    Run ("Start.exe")
    TrayTip("", "Turn off play", 5, 0)
    Sleep(500)
    SoundPlay("",0)
    EndFunc

    [/autoit]

    hab nun die GUI aus der Func genommen werde es nachher testen muss nun Arbeiten gehen.

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=data\icon.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <string.au3>
    hotkeyset("{HOME}", "_Multi_acc_skills_Start")
    hotkeyset("{PAUSE}", "_Pause")
    hotkeyset("{END}", "_exit")
    hotkeyset("ü", "_kiss")

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

    hotkeyset("^1", "_Song1")
    hotkeyset("^2", "_Song2")
    hotkeyset("^3", "_Song3")
    hotkeyset("^4", "_Song4")
    hotkeyset("^5", "_Song5")
    hotkeyset("^0", "_Song6")

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

    #Region ### START Koda GUI section ### Form=h:\games\2moons tools\dekaron multiacc.kxf
    $Form1_1 = GUICreate("Deka MultiAcc Skill using", 316, 936, -1, -1)
    GUISetIcon("D:\003.ico")
    GUISetCursor (0)
    $GroupBox1 = GUICtrlCreateGroup("", 8, 1, 297, 545, -1, $WS_EX_TRANSPARENT)
    $Label1 = GUICtrlCreateLabel("1. Start max. 9 Dekaron Clients!!", 24, 17, 222, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label2 = GUICtrlCreateLabel("3. Rename Deakron Clients", 24, 290, 192, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label3 = GUICtrlCreateLabel("Go to first client and press '1' on Numpad!!", 48, 314, 203, 17)
    GUICtrlSetCursor (-1, 0)
    $Label5 = GUICtrlCreateLabel("Go to second client and press '2' on Numpad!!", 48, 330, 222, 17)
    GUICtrlSetCursor (-1, 0)
    $Label6 = GUICtrlCreateLabel("Go to third client and press '3' on Numpad!!", 48, 346, 207, 17)
    GUICtrlSetCursor (-1, 0)
    $Label7 = GUICtrlCreateLabel("and so on...", 108, 362, 60, 17)
    GUICtrlSetCursor (-1, 0)
    $Label8 = GUICtrlCreateLabel("4. Now use normal Skills and Pots", 24, 376, 237, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label9 = GUICtrlCreateLabel("All Clients use now the same skill and pots", 48, 400, 202, 17)
    GUICtrlSetCursor (-1, 0)
    $Label10 = GUICtrlCreateLabel("For Client 2-9 use game resolution 1280x1024", 48, 448, 219, 17)
    GUICtrlSetCursor (-1, 0)
    $Label11 = GUICtrlCreateLabel("Don't move the clients", 48, 464, 109, 17)
    GUICtrlSetCursor (-1, 0)
    $Label12 = GUICtrlCreateLabel("Now press 0 and Client 2-9 will follow the Client 1", 48, 480, 234, 17)
    GUICtrlSetCursor (-1, 0)
    $Label13 = GUICtrlCreateLabel("5. Client 2-9 follow Client 1", 24, 424, 183, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label14 = GUICtrlCreateLabel("For one party u only need 6 Clients", 48, 42, 167, 17)
    GUICtrlSetCursor (-1, 0)
    $Label4 = GUICtrlCreateLabel("6. Click auf Mobs", 24, 496, 121, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label15 = GUICtrlCreateLabel("Press '-' on Numpad to try to click a Mobs", 48, 512, 199, 17)
    GUICtrlSetCursor (-1, 0)
    $Button_start = GUICtrlCreateButton("START", 32, 176, 75, 25, 0)
    GUICtrlSetCursor (-1, 0)
    $Button_pause = GUICtrlCreateButton("PAUSE", 120, 176, 75, 25, 0)
    $Label16 = GUICtrlCreateLabel("2. START, PAUSE, CLOSE", 24, 65, 187, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Button_close = GUICtrlCreateButton("CLOSE", 208, 176, 75, 25, 0)
    $Label17 = GUICtrlCreateLabel("U can use these Buttons or the Hotkeys:", 48, 90, 196, 17)
    GUICtrlSetCursor (-1, 0)
    $Label18 = GUICtrlCreateLabel("Pos1/Home: Aktivate the MultiAcc Skill using", 48, 114, 221, 17)
    GUICtrlSetCursor (-1, 0)
    $Label19 = GUICtrlCreateLabel("Pause/Break: Paused the MultiAcc Skill using", 48, 130, 227, 17)
    GUICtrlSetCursor (-1, 0)
    $Label20 = GUICtrlCreateLabel("Ende/End: Close the MultiAcc Skill using", 48, 146, 200, 17)
    GUICtrlSetCursor (-1, 0)
    $Group1 = GUICtrlCreateGroup("", 8, 200, 297, 9)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label21 = GUICtrlCreateLabel("This works only when u start the", 56, 226, 221, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label22 = GUICtrlCreateLabel("MultiAcc Skill using", 88, 250, 137, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetCursor (-1, 0)
    $Group2 = GUICtrlCreateGroup("Play Musik", 8, 552, 297, 257)
    $Label23 = GUICtrlCreateLabel("Press '-' on Numpad to try to click a Mobs", 48, 1063, 199, 17)
    GUICtrlSetCursor (-1, 0)
    $Label24 = GUICtrlCreateLabel("Press '-' on Numpad to try to click a Mobs", 56, 1071, 199, 17)
    GUICtrlSetCursor (-1, 0)
    $Label25 = GUICtrlCreateLabel("You can also use your own songs.", 39, 566, 238, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $Label26 = GUICtrlCreateLabel("In the sounds folder are 5 files, Song1 to Song5.", 15, 590, 231, 17)
    GUICtrlSetCursor (-1, 0)
    $Radio1 = GUICtrlCreateRadio("Song 1", 93, 664, 57, 17)
    $Radio2 = GUICtrlCreateRadio("Song 2", 93, 686, 57, 17)
    $Radio3 = GUICtrlCreateRadio("Song 3", 93, 710, 57, 17)
    $Radio4 = GUICtrlCreateRadio("Song 4", 93, 734, 57, 17)
    $Radio5 = GUICtrlCreateRadio("Song 5", 93, 758, 57, 17)
    $Radio6 = GUICtrlCreateRadio("turn off", 93, 784, 57, 17)
    $Label27 = GUICtrlCreateLabel("Copy your songs in the sounds folder. Delete the old files", 15, 605, 270, 17)
    GUICtrlSetCursor (-1, 0)
    $Label28 = GUICtrlCreateLabel("and rename your songs in Song1 to Song5", 15, 621, 205, 17)
    GUICtrlSetCursor (-1, 0)
    $Label29 = GUICtrlCreateLabel("Select one Song to play it. Select turn off to stop play.", 15, 637, 257, 17)
    GUICtrlSetCursor (-1, 0)
    $Label30 = GUICtrlCreateLabel("HotKey: STRG + 1", 152, 664, 93, 17)
    $Label31 = GUICtrlCreateLabel("HotKey: STRG + 2", 152, 688, 93, 17)
    $Label32 = GUICtrlCreateLabel("HotKey: STRG + 3", 152, 712, 93, 17)
    $Label33 = GUICtrlCreateLabel("HotKey: STRG + 4", 152, 736, 93, 17)
    $Label34 = GUICtrlCreateLabel("HotKey: STRG + 5", 152, 760, 93, 17)
    $Label35 = GUICtrlCreateLabel("HotKey: STRG + 0", 152, 784, 93, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("Send Kiss", 8, 816, 297, 113)
    $Label36 = GUICtrlCreateLabel("U would kiss someone?", 72, 840, 167, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label37 = GUICtrlCreateLabel("Kiss:", 32, 888, 32, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label38 = GUICtrlCreateLabel("In the free field u put in a name of a player.", 56, 864, 205, 17)
    $name = GUICtrlCreateInput("", 64, 886, 193, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE

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

    Case $Button_start
    call("_Multi_acc_skills_Start")
    Case $Button_pause
    call("_Pause")
    Case $Button_close
    call("_exit")
    Case $Radio1
    call("_Song1")
    Case $Radio2
    call("_Song2")
    Case $Radio3
    call("_Song3")
    Case $Radio4
    call("_Song4")
    Case $Radio5
    call("_Song5")
    Case $Radio6
    call("_Song6")
    Exit

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

    EndSwitch
    WEnd

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

    ;~Kiss

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

    Func _kiss()
    WinActivate("Dekaron", "")
    WinWaitActive("Dekaron")
    $kiss = GUICtrlRead($name)
    Opt("SendKeyDelay", 0)
    Send ("{ENTER}Kiss " & $kiss & " :-x")
    EndFunc

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

    Func _Multi_acc_skills_Start()
    SoundPlay(@ScriptDir & "\data\Start.wav",0)
    Run ("data\Multi acc skills.exe")
    ToolTip('Script is "Started". END to close Script',0,0)
    EndFunc

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

    Func _Pause()
    SoundPlay(@ScriptDir & "\data\paused.wav",0)
    $PID = ProcessExists("Multi acc skills.exe")
    If $PID Then ProcessClose($PID)
    ToolTip('Script is "Paused". END to close Script',0,0)
    EndFunc

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

    Func _exit()
    SoundPlay(@ScriptDir & "\data\close.wav",0)
    Sleep(1000)
    $PID = ProcessExists("Multi acc skills.exe")
    If $PID Then ProcessClose($PID)
    Exit 1
    EndFunc

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

    ;~Song1 - Song5

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

    Func _Song1()
    SoundPlay(@ScriptDir & "\sounds\Song1.mp3",0)
    TrayTip("Now playing...", "...Song 1", 5, 0)
    EndFunc

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

    Func _Song2()
    SoundPlay(@ScriptDir & "\sounds\Song2.mp3",0)
    TrayTip("Now playing...", "...Song 2", 5, 0)
    EndFunc

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

    Func _Song3()
    SoundPlay(@ScriptDir & "\sounds\Song3.mp3",0)
    TrayTip("Now playing...", "...Song 3", 5, 0)
    EndFunc

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

    Func _Song4()
    SoundPlay(@ScriptDir & "\sounds\Song4.mp3",0)
    TrayTip("Now playing...", "...Song 4", 5, 0)
    EndFunc

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

    Func _Song5()
    SoundPlay(@ScriptDir & "\sounds\Song5.mp3",0)
    TrayTip("Now playing...", "...Song 5", 5, 0)
    EndFunc

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

    Func _Song6()
    Run ("Start.exe")
    TrayTip("", "Turn off play", 5, 0)
    Sleep(500)
    SoundPlay("",0)
    EndFunc

    [/autoit]