[AutoIt] Bot Probelmatik mit Sleep

The-Legion · 08/31/2010, 05:46

Hi Leute, sitze seit n paar Stunden an nem Bot "ja ich weis ich bin Nachtaktiv

" auf jedenfall hab ich mir gedacht ich teste erstmal ob er die ersten Funktionen schon Funktionieren.

Soweit sogut,

Mein Bot ist für EvE nicht wundern ich Spiele mit ISBoxer deswegen die Hotkeys zum wechseln zwischen Hauler & Miner.

Hab es soweit auskommentiert, habe keine Syntaxfehler laut Autoit =
0 error(s), 0 warning(s)
>Exit code: 0 Time: 0.215

Aber irgendwie überspringt er immer die Sleeps und wenn er Wechseln soll schreibt er mir "?" Hab es getestet wenn ich ALT + Num Drücke kommen auch "?" ich komm nicht weiter bitte um Hilfe.

Danke im Vorraus

Legio

Code:

;Hotkeys
;
; F10 = Exit
;Dec
Func _Exit()
     Exit
Endfunc
HotKeySet ( "{F10}" , "_Exit" )
While 1

;Startvariablen
Dim $Hauler = Send( "!{NUMPAD1}" , 0 ) ;Welchselt zu Hauler
Dim $Miner1 = Send( "!{NUMPAD2}" , 0 ) ;Welchselt zu Miner1
Dim $Miner2 = Send( "!{NUMPAD3}" , 0 ) ;Welchselt zu Miner2
Dim $Miner3 = Send( "!{NUMPAD4}" , 0 ) ;Welchselt zu Miner3
Dim $In_Station = PixelSearch ( 25, 701, 121, 744, 0xFFDB42, 0) ;Checkt ob Schiff in Station ist anhand Abdockbutton
Dim $Abdocken =  MouseClick ( "left", 72, 727, 1, 10) ; Abdocken
Dim $Zu_GSC_Fliegen1 = MouseClick ( "right", 245, 199, 1, 1) ;Bookmarks anklicken
Dim $Zu_GSC_Fliegen2 = MouseClick ( "left", 357, 209, 1, 1) ;Gehört zu $Zu_GSC_Fliegen1 und veranlast das Warpen
Dim $GSC_anfliegen =  MouseClick ( "left", 1252, 183, 2, 1) ;Fliegt Container an "Annähern"
Dim $GSC_open = MouseClick ( "left", 1252, 183, 2, 1) ;Doppelklicj auf GSC - GSC öffnet sich
Dim $Check_GSC_Full = PixelSearch ( 390, 392, 446, 408, 0x05556B, 0) ;True wenn Cargo ca. <= 1800m³ bei GSC Gesammtmenge 3,900 m³
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Warte auf Programmstart
Sleep(15000) ; 15 Sek 
;
MouseClick ("left", 630, 12, 1, 1)
Sleep(1500)
Execute ( $Hauler ) ; Auf Hauler Switchen
;Wenn Schiff sich in Station befindet abdocken und zum GSC fliegen & annähern
If IsArray ( $In_Station ) = True Then
	Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
Else
	Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
EndIf
Execute ( $GSC_open ) ;GSC Öffnen
Sleep (2000)
; ENDE HAULER Startvorgang START Miner 1 - 3 	
; Miner 1
Execute ( $Miner1 ) ; Auf Hauler Switchen
;Wenn Schiff sich in Station befindet abdocken und zum GSC fliegen & annähern
If IsArray ( $In_Station ) = True Then
	Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
Else
		Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
EndIf
Execute ( $GSC_open ) ;GSC Öffnen
Sleep (2000)
;
;

; Miner 2
Execute ( $Miner2 ) ; Auf Hauler Switchen
;Wenn Schiff sich in Station befindet abdocken und zum GSC fliegen & annähern
If IsArray ( $In_Station ) = True Then
	Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
Else
		Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
EndIf
Execute ( $GSC_open ) ;GSC Öffnen
Sleep (2000)
;
;

; Miner 3
Execute ( $Miner3 ) ; Auf Hauler Switchen
;Wenn Schiff sich in Station befindet abdocken und zum GSC fliegen & annähern
If IsArray ( $In_Station ) = True Then
	Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
Else
		Execute ( $Abdocken )
	Sleep ( 5000 )
	Execute ( $Zu_GSC_Fliegen1 )
	Sleep ( 1200 )
	Execute ( $Zu_GSC_Fliegen2 )
	Sleep ( 20000 )
	Execute ( $GSC_anfliegen )
	Sleep ( 5000 )
EndIf
Execute ( $GSC_open ) ;GSC Öffnen
Sleep (2000)

WEnd

bollen · 09/01/2010, 21:23

Ich find irgendwie kein Fehler. Stimmt alles sogar die Rechtschreibung bei den Bezeichnungen.

Smile700MB · 09/01/2010, 21:44

hmm stimmt doch alles