[TuT] Einfachen Nostale Bot machen

NetMax · 07/05/2009, 13:16

Hier bitte =) Falls du Fragen hast kannst du Sie in diesem Thread ruhig stellen

Code:

$zeitLeveln = InputBox("Frage?","Wielange Leveln bis geschlafen wird? (zeit in Millisekunden)") ; Wie lange gelvelt werden soll
$zeitSchlafen = InputBox("Frage?","Wielange soll geschlafen werden? (zeit in Millisekunden)") ;z.B deine 10 Sekunden also 10000
$timer1 = TimerInit ()

While 1
    If TimerDiff  ($timer1) > $zeitLeveln then 
        send("T") ; Niedersetzen
        sleep($zeitSchlafen)
        send("T") ;Aufstehen
        $timer1 = TimerInit() ; Zeitzurücksetzen
    EndIf
   Send(" ") ; Angreifen
   sleep(100) ; Nostale brauch auch Zeit um die Aktion auszuführen
   Send("q"); AUfsammeln mit q
WEnd

Übrigens ich habe eine AutoIT Tutorial Reihe veröffentlicht(jedoch darf ich den Link leider hier nicht posten --> Fremdwerbung)

datafabi · 07/05/2009, 14:04

danke dir
gleich mal pröben

datafabi · 07/05/2009, 14:12

While 1
If TimerDiff ($timer1) > $zeitLeveln then ( 210000 )
send("e") ; Niedersetzen
sleep($zeitSchlafen) ( 10000 )
send("T") ;Aufstehen
$timer1 = TimerInit() ; Zeitzurücksetzen
EndIf
ControlSend("NosTale", "", 0, "Space") ; Angreifen
sleep(100) ; Nostale brauch auch Zeit um die Aktion auszuführen
ControlSend("NosTale", "", 0, "q"); AUfsammeln mit q
WEnd

also so??

datafabi · 07/05/2009, 14:26

While 1
TimerDiff ($timer1) > $zeitLeveln then ( 210000 )
ContralSend("NosTale", "", 0, "e") ; Niedersetzen
sleep($zeitSchlafen) ( 10000 )
ControlSend("NosTale", "", 0, "e") ;Aufstehen
$timer1 = TimerInit() ; Zeitzurücksetzen
EndIf
ControlSend("NosTale", "", 0, "Space") ; Angreifen
ControlSend("NosTale", "", 0, "w"
sleep(100) ; Nostale brauch auch Zeit um die Aktion auszuführen
ControlSend("NosTale", "", 0, "q"); AUfsammeln mit q
WEnd

es geht i.wie nich

datafabi · 07/05/2009, 14:37

While 1
TimerDiff ($timer1) > $zeitLeveln then ( 210000 )
ControlSend("NosTale", "", 0, "{e}") ; Niedersetzen
sleep($zeitSchlafen) ( 10000 )
ControlSend("NosTale", "", 0, "{e}") ;Aufstehen
$timer1 = TimerInit() ; Zeitzurücksetzen
EndIf
ControlSend("NosTale", "", 0, "{Space}") ; Angreifen
ControlSend("NosTale", "", 0, "{w}")
sleep (100) ; Nostale brauch auch Zeit um die Aktion auszuführen
ControlSend("NosTale", "", 0, "{q}" ); AUfsammeln mit q
WEnd

line -1:
error: "EndIf" statment with no matching "If" statment
kanst mir helfen??

NetMax · 07/05/2009, 18:39

Kannst du das ganze in code tags setzen und wenn du mir eine besondere Freue machen willst füg das Script als Dateianhang an, weil so du ich mir schwer das ganze zu lesen

datafabi · 07/05/2009, 19:02

ok

NetMax · 07/05/2009, 19:34

Code:

$zeitLeveln = InputBox("Frage?","Wielange Leveln bis geschlafen wird? (zeit in Millisekunden)") ; Wie lange gelvelt werden soll
$zeitSchlafen = InputBox("Frage?","Wielange soll geschlafen werden? (zeit in Millisekunden)") ;z.B deine 10 Sekunden also 10000
$timer1 = TimerInit ()

While 1
    if TimerDiff  ($timer1) > $zeitLeveln then
        ControlSend("NosTale", "", 0, "{e}") ; Niedersetzen
        sleep($zeitSchlafen)
        ControlSend("NosTale", "", 0, "{e}") ;Aufstehen
        $timer1 = TimerInit() ; Zeitzurücksetzen
    EndIf
   ControlSend("NosTale", "", 0, "{Space}")  ; Angreifen
   ControlSend("NosTale", "", 0, "{w}")
   sleep (100) ; Nostale brauch auch Zeit um die Aktion auszuführen
   ControlSend("NosTale", "", 0, "{q}" ); AUfsammeln mit q
WEnd

für das script aus

dann siehst du was es macht. Die ersten 2 Zeilen erzeugen Eingabeboxen =)
(Da brauchst nix mehr dazuschreiben)

datafabi · 07/05/2009, 19:42

ich muss doch noch i.wo bestimmen wielange er "schlafen" soll

NetMax · 07/05/2009, 21:14

Folgende Code-Teile sind hierfür relevant:

Hier wird eingelesen wie lange geschlafen werden soll
$zeitSchlafen = InputBox("Frage?","Wielange soll geschlafen werden? (zeit in Millisekunden)") ;z.B deine 10 Sekunden also 10000

Und setzt sich der Bot, Schläft die zuvor eingegebene Zeit und steht wieder auf
ControlSend("NosTale", "", 0, "{e}") ; Niedersetzen
sleep($zeitSchlafen)
ControlSend("NosTale", "", 0, "{e}") ;Aufstehen

xerox102 · 07/23/2009, 12:51

hey ich hab ein problem mit AutoIt: Immer wenn ich es starten will dann soll ich irgendeine Datei öffnen welche Datei soll ich da bitte öffnen???

NetMax · 07/23/2009, 14:12

Bitte genauer beschreiben oder noch besser einen Screenshot posten =)

xerox102 · 07/23/2009, 19:44

link anklicken dann kommt das bild

NetMax · 07/23/2009, 20:20

Deine Desktopverknüpfung ist falsch. Installier den SciTe

xerox102 · 07/23/2009, 21:08

dankeschön *auf thanksbutton klick*