Startbutton funktioniert nicht

Page 1 of 2 1 2
11/21/2010 11:48 B-O#1
Hallo,
ich habe hier einen kleinen NosTale Bot gescriptet.
Alles klappt perfekt, bis auf das, dass der Startbutton nicht funktioniert.
Ich schreibe Euch mal den Source rein, hoffe ihr könnt mir helfen.

PHP Code:
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        Exit
        Case $StartButton1        
            _Func1 ()
        Case $ExitButton2
            _Func2()
    EndSwitch
WEnd

;==> Button
Func _Func1 ()
    Run ("Nostale.exe")
EndFunc
Func _Func2 ()
    Exit
EndFunc
;==> Easy Botting
$OnlySpace = Controlsend("NosTale","","","{Space}")
$SpaceX = Controlsend("NosTale","","","{Space}","{X}"),
$OnlyZ = Controlsend("NosTale","","","{Z}")
$ZX = Controlsend("NosTale","","","{Z}"),"{X}")
;==> Lvl Mode
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}"), 
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
    EndIf
$SpaceRedLive = Controlsend("NosTale","","","{Space}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$SpaceXOrangeLive = Controlsend("NosTale","","","{Space}","{X}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$SpaceXRedLive = Controlsend("NosTale","","","{Space}","{X}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZOrangeLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZRedLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZXOrangeLive = Controlsend("NosTale","","","{Z}","{X}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZXRedLive = Controlsend("NosTale","","","{Z}","{X}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$YourHp = 
$HpInput = 
$YourMp = 
$MpInput = 
SchonmalDanke im Vorraus.

Mit freundlichen Grüßen,

B-O
11/21/2010 11:54 ZeraPain#2
funktionen schreibt man ohne ein leerzeichen also

_Func1()

anstatt run solltest du mal shellexecute probieren:

Code:
ShellExecute(@ScriptDir & "\Nostale.exe")
11/21/2010 11:58 omer36#3
was heiißt den bitte:
Quote:
Alles klappt perfekt, bis auf das, dass der Startbutton nicht funktioniert.

anstelle des
Run ("Nostale.exe")

machste einfach mal
ShellExecute("C:\Games\Nostale\Nostale.exe") ;also den pfad an passen..

und was ist das?
Controlsend("NosTale","","","{Space}","{X}"),
ControlSend ( "title", "text", controlID, "string" [, flag] )


@vorposter:
es geht auch mit leerzeichen


btw
Quote:
ich habe hier einen kleinen NosTale Bot gescriptet.
eher C&P ;)
11/21/2010 12:04 ZeraPain#4
Quote:
Originally Posted by omer36 View Post
@vorposter:
es geht auch mit leerzeichen
habe nicht gesagt, dass es nicht geht aber das ist kein guter stil ;-)
11/21/2010 12:06 B-O#5
Oh habe da einen Fehler gemacht, er soll nicht Nostale starten, sonern die ausgewählten Funktionen ausführen.
Wenn ich es aber so mache, müssen doch alle, die diesen Bot benutzen den gleichen Pfad haben?
Sehe ich das so richtig, oder ist dies falsch?
11/21/2010 12:13 omer36#6
Quote:
Originally Posted by B-O View Post
Oh habe da einen Fehler gemacht, er soll nicht Nostale starten, sonern die ausgewählten Funktionen ausführen.
Wenn ich es aber so mache, müssen doch alle, die diesen Bot benutzen den gleichen Pfad haben?
Sehe ich das so richtig, oder ist dies falsch?
könnteste zb so lösen:

PHP Code:
;am anfang deiner source das,
$spiel = FileOpenDialog("Bitte NoStale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)

case $button
ShellExecute($spiel) 
aber halt noch die restlichen fehler beseitigen ^^
11/21/2010 12:30 B-O#7
An welche Stelle muss ich dies einfügen?
Tut mir leid, bin momentan ein bisschen veriwrrt. o.o
11/21/2010 12:49 omer36#8
einfach an oberster stelle
$spiel = FileOpenDialog("Bitte NoStale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)

dann halt
Func _Func1 ()
ShellExecute($spiel)
EndFunc
11/21/2010 12:56 B-O#9
Mach ich es so, kommt dieser Fehler:

[Only registered and activated users can see links. Click Here To Register...]

Momentaner Code:

PHP Code:
 #include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        Exit
        Case $StartButton1        
            _Func1 ()
        Case $ExitButton2
            _Func2()
    EndSwitch
WEnd

;==> Button
$spiel = FileOpenDialog("Bitte Nostale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)
Func _Func1 ()
    ShellExecute($spiel)
EndFunc
Func _Func2 ()
    Exit
EndFunc
;==> Easy Botting
$OnlySpace = Controlsend("NosTale","","","{Space}")
$SpaceX = Controlsend("NosTale","","","{Space}","{X}"),
$OnlyZ = Controlsend("NosTale","","","{Z}")
$ZX = Controlsend("NosTale","","","{Z}"),"{X}")
;==> Lvl Mode
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}"), 
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
    EndIf
$SpaceRedLive = Controlsend("NosTale","","","{Space}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$SpaceXOrangeLive = Controlsend("NosTale","","","{Space}","{X}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$SpaceXRedLive = Controlsend("NosTale","","","{Space}","{X}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZOrangeLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZRedLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZXOrangeLive = Controlsend("NosTale","","","{Z}","{X}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZXRedLive = Controlsend("NosTale","","","{Z}","{X}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$YourHp = 
$HpInput = 
$YourMp = 
$MpInput = 
11/21/2010 12:59 omer36#10
was verstehst du wenn ich schreibe: "an oberster stelle deiner source" ?

2.schau doch mal meine erste antwort oben, du hast mehr fehler drinne -.-

3. um es zu starten kannste auch einfach F5 drücken, und musst es nicht jedemal complieren.


btw, wenn du schon dein name im bild zensierst, währe es auch von vorteil es auch hier zu machen:
#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf

:awesome:
11/21/2010 13:00 .BritainAndy#11
dein ganzes skript ist voller syntaxfehler.

$SpaceX = Controlsend("NosTale","","","{Space}","{X}"),
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}"),

und natürlich auch unten die lehren felder#

$MpInput =

usw

edit: und wie omer shcon sagt du musst die variable am besten nach den includes declarieren
11/21/2010 13:07 omer36#12
bitte schön:

wobei du gleich wieder kommst und frast, warum nichts von den radiobutton gehen...


PHP Code:
 #include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$spiel = FileOpenDialog("Bitte Nostale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)

#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        Exit
        Case $StartButton1
            _Func1()
        Case $ExitButton2
            _Func2()
    EndSwitch
WEnd


Func _Func1 ()
    ShellExecute($spiel)
EndFunc

Func _Func2 ()
    Exit
EndFunc

;==> Easy Botting
$OnlySpace = Controlsend("NosTale","","","{Space}")
$SpaceX = Controlsend("NosTale","","","{Space}x")
$OnlyZ = Controlsend("NosTale","","","{Z}")
$ZX = Controlsend("NosTale","","","zx")


;==> Lvl Mode
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
    EndIf
$SpaceRedLive = Controlsend("NosTale","","","{Space}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$SpaceXOrangeLive = Controlsend("NosTale","","","{Space}x")
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$SpaceXRedLive = Controlsend("NosTale","","","{Space}x")
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZOrangeLive = Controlsend("NosTale","","","{Z}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZRedLive = Controlsend("NosTale","","","{Z}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZXOrangeLive = Controlsend("NosTale","","","zx")
If PixelGetcolor (123,55) <> 0xFCC000 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf
$ZXRedLive = Controlsend("NosTale","","","zx")
If PixelGetcolor (123,55) <> 0xFF3100 Then
    Sleep ("10000")
    Controlsend("NosTale","","","{C}")
EndIf 
11/21/2010 13:18 B-O#13
Stimmt das frage ich, der Startbutton soll nicht den prozess öffnen sonder nur z.B. Leertaste oder X drücken.

bekommst trz. immer Thanks. :)
11/21/2010 13:29 omer36#14
sei froh, dass ich grade nichts besseres zu tun habe...

PHP Code:
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $StartButton1
            start()
        Case $ExitButton2
            Exit
    EndSwitch
WEnd


Func start()
    If GUICtrlRead($OnlySpace) = 1 Then
        ControlSend("NosTale", "", "", "{Space}")

    ElseIf GUICtrlRead($SpaceX) = 1 Then
        ControlSend("NosTale", "", "", "{Space}x")

    ElseIf GUICtrlRead($OnlyZ) = 1 Then
        ControlSend("NosTale", "", "", "{Z}")

    ElseIf GUICtrlRead($ZX) = 1 Then
        ControlSend("NosTale", "", "", "zx")
    EndIf

    If GUICtrlRead($SpaceOrangeLive) = 1 Then
        ControlSend("NosTale", "", "", "{Space}")
        If PixelGetColor(123, 55) <> 0xFCC000 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf

    ElseIf GUICtrlRead($SpaceRedLive) = 1 Then
        ControlSend("NosTale", "", "", "{Space}")
        If PixelGetColor(123, 55) <> 0xFF3100 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf

    ElseIf GUICtrlRead($SpaceXOrangeLive) = 1 Then
        ControlSend("NosTale", "", "", "{Space}x")
        If PixelGetColor(123, 55) <> 0xFCC000 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf

    ElseIf GUICtrlRead($SpaceXRedLive) = 1 Then
        ControlSend("NosTale", "", "", "{Space}x")
        If PixelGetColor(123, 55) <> 0xFF3100 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf

    ElseIf GUICtrlRead($ZOrangeLive) = 1 Then
        ControlSend("NosTale", "", "", "{Z}")
        If PixelGetColor(123, 55) <> 0xFCC000 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf

    ElseIf GUICtrlRead($ZRedLive) = 1 Then
        ControlSend("NosTale", "", "", "{Z}")
        If PixelGetColor(123, 55) <> 0xFF3100 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf

    ElseIf GUICtrlRead($ZXOrangeLive) = 1 Then
        ControlSend("NosTale", "", "", "zx")
        If PixelGetColor(123, 55) <> 0xFCC000 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf

    ElseIf GUICtrlRead($ZXRedLive) = 1 Then
        ControlSend("NosTale", "", "", "zx")
        If PixelGetColor(123, 55) <> 0xFF3100 Then
            Sleep("10000")
            ControlSend("NosTale", "", "", "{C}")
        EndIf
    EndIf
EndFunc 

aber PixelGetColor wird kaum hidden gehen ;)
(denk ich mal, habs noch nie benutz)
11/21/2010 13:36 B-O#15
Danke, dass du mir hilfst, bin ein ziemlicher Neuling in AutoIt. :)
Naja, nächstes Problem, wenn ich z.B. das 1. auswähle auf Start drücke, drückt er einmal leertaste.
Nun will ich aber, dass der Bot dies nicht einmal tut, sonder z.B. jede 300ms?
Page 1 of 2 1 2