[TuT] Einfachen Nostale Bot machen

Page 5 of 8 « First 34 5 67 Last »
07/05/2009 13:16 NetMax#61
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)
07/05/2009 14:04 datafabi#62
danke dir
gleich mal pröben
07/05/2009 14:12 datafabi#63
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??
07/05/2009 14:26 datafabi#64
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
07/05/2009 14:37 datafabi#65
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??
07/05/2009 18:39 NetMax#66
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
07/05/2009 19:02 datafabi#67
ok
07/05/2009 19:34 NetMax#68
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)
07/05/2009 19:42 datafabi#69
ich muss doch noch i.wo bestimmen wielange er "schlafen" soll
07/05/2009 21:14 NetMax#70
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
07/23/2009 12:51 xerox102#71
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???
07/23/2009 14:12 NetMax#72
Bitte genauer beschreiben oder noch besser einen Screenshot posten =)
07/23/2009 19:44 xerox102#73
[Only registered and activated users can see links. Click Here To Register...]

link anklicken dann kommt das bild
07/23/2009 20:20 NetMax#74
Deine Desktopverknüpfung ist falsch. Installier den SciTe
07/23/2009 21:08 xerox102#75
dankeschön *auf thanksbutton klick*
Page 5 of 8 « First 34 5 67 Last »