Hi Leute, sitze seit n paar Stunden an nem Bot "ja ich weis ich bin Nachtaktiv :mofo:" 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.
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:rtfm:
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
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:rtfm:
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