NosTale LeveL-Bot

Page 10 of 12 « First 89 10 1112
05/03/2010 15:50 Furkiii#136
WIiizocker Kannst Du mIr ein bot erstellen
der soll dAs machen

- leertAste (soll im hinteRgrund auch laufen Können also das man nostalE minimiern kann)
- Ersoll aufHeben können jede 3sek
-er soll sich nach 3min hinsetzten
-Nach 1min aufstehen
-er soll jede 3,5min 1 drücken


kannst du mir den scrip dawon geben

Lg furkiIi
05/03/2010 20:32 WiiZocker#137
ja ok, ich fange morgen an, hab im mom viel um die ohren...
05/04/2010 11:23 Furkiii#138
Oke danke

kannst sagen wan du circa fertiqQ BiiisT
05/04/2010 14:37 WiiZocker#139
Naja^^ habe ein problem, da ich das ganze skript neu schreiben muss,hab ich das getan nur funktionier es nicht.
Kann mir wer helfen den fehler zu finden?

Code:
$windowname = "NosTale"
$zeit1 = TimerInit()

HotKeySet("{ESC}", "Terminate")
If @error  Then
    MsgBox(4096, "Error", "Fenster konnte nicht gefunden  werden")
	
Else

$DL = 0 ;durchlauf

While 1
	If(ZeitZumSitzen()) Then
              Sitzen()
		  EndIf
		  
		  If(ZeitZumSammeln()) Then
               Sammeln()
			   
		   EndIf
		   
		   If(Angriff()) Then
              Angreifen()
		  EndIf
           
			
			If(Extra1Benutzen()) Then
               Extra1()
		  EndIf
			
			

$DL = $DL + 1

WEnd
EndIf



;---------Sitzen:

Func ZeitZumSitzen()
 If(TimerDiff($zeit1) > 180000) Then
         return True
    Else
        return False
    EndIf
EndFunc

Func Sitzen()
	 ControlSend($windowname, '', '', "C")
	 Sleep(60000)
	 ControlSend($windowname, '', '', "C")
	 $zeit1 = TimerInit()
EndFunc


;--------Sammeln:

Func ZeitZumSammeln()
 If(TimerDiff($zeit1) < 175000) Then
         return True
    Else
        return False
    EndIf
EndFunc


Func Sammeln()
	ControlSend($windowname, '', '', "X")
	 Sleep(3000)
	 ControlSend($windowname, '', '', "X")
	
	 EndFunc


;--------Angriff:

Func Angriff()
 If(TimerDiff($zeit1) < 175000) Then
         return True
    Else
        return False
    EndIf
EndFunc

Func Angreifen()
	ControlSend($windowname, '', '', " ")
	 Sleep(150)
	 ControlSend($windowname, '', '', " ")
	
	EndFunc

;------Extra1:

Func Extra1Benutzen()
 If(TimerDiff($zeit1) < 175000) Then
         return True
    Else
        return False
    EndIf
EndFunc


Func Extra1()
	 ControlSend($windowname, '', '', "1")
	 Sleep(3500)
	 ControlSend($windowname, '', '', "1")
	
	 EndFunc

;--------Beenden:

Func Terminate()
	Exit 0
	EndFunc
05/04/2010 15:22 ¿Freaky¿#140
Bei mir kommt kein Error, wo ist den dein Fehler :D
05/04/2010 16:18 WiiZocker#141
Er lvlt einfach ned
05/04/2010 16:50 ¿Freaky¿#142
Das kommt, weil du nur 1 Timer für alles hast :D
Und bis 17 Minuten rum sind, dann kann es auch schon etwas dauern :D
05/04/2010 16:51 WiiZocker#143
achso
Mal ändern
05/04/2010 17:18 WiiZocker#144
So, der bot ist fertig und wie dus wolltest, schick ich dir den code.
Ich habe ihn ned getestet müsste aber funktionieren.Er sammelt aber die ganze zeit da sich sonst alles verzögert.

Den code schick ich per PM
05/04/2010 18:41 Furkiii#145
das geht nicht da steht
Die Version der datei ist nicht mit der ausgeführten WIndows-Version kompatibel. Öffnen sie die systeminformationen des computers um zu überprüüfen ob eine x86-(32bit)-oder eine x64-(64Bit)- Version des programms erforderlich ist und wenden sie sich anschliseßen an den herausgeber der software.
05/04/2010 19:52 WiiZocker#146
Hmmm welches betriebssystem hast du,32 oder 64 bit?
Sonst starte das im Kompatiblitäts modus^^
05/04/2010 20:34 Furkiii#147
ich habe 32 bit *_*
05/04/2010 20:50 ¿Freaky¿#148
Wir wär es die datei vll erstmal zu entpacken ? :D
05/04/2010 22:48 WiiZocker#149
lol xD ahm welches betriebssysten Furkiii?

Hab den fehler gefunden^^ mach bei diesen Variabeln Zeit1-4 noch

$Zeit5 = Timerinit()
05/05/2010 13:59 ¿Freaky¿#150
Unterlass bitte das andauernde Doppelpost.
#reported
Page 10 of 12 « First 89 10 1112