DOOOOOOOOOOO

#cs
Autor:          Joël Alder, Kerim Kale
Name:           DarkOrbit Bonusboxcollector
Version:        1
#ce

#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

HotKeySet("{F2}", "_main")
HotKeySet("{F3}", "_exit")
HotKeySet("{F4}", "_collectedcounter")
HotKeySet("{F5}", "_timerstop")
HotKeySet("{F6}", "_pause")

;~ Global  $bonusbox = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xFDFFFA)
;~ $bot = False
;~ _pause()

Opt("GUIOnEventMode", 1)

GUICreate("AK's Dark Orbit Bot", 314, 123, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
Global $StartButton = GUICtrlCreateButton("Start", 32, 32, 75, 25)
GUICTRLSETOnEvent(-1,"f2")
Global $PauseButton = GUICtrlCreateButton("Pause", 120, 32, 75, 25)
GUICtrlSetOnEvent(-1,"f6")
Global $ExitButton = GUICtrlCreateButton("Exit", 208, 32, 75, 25)
GUICtrlSetOnEvent(-1,"f3")
Global $BonusboxCounterButton = GUICtrlCreateButton("Bonusbox Counter", 56, 72, 99, 25)
GUICtrlSetOnEvent(-1,"f4")
Global $TimerButton = GUICtrlCreateButton("Timer", 176, 72, 75, 25)
GUICtrlSetOnEvent(-1,"f5")
GUISetState()
While 1
   Sleep(100)
WEnd


Func _main()        ;Main funktion, mit F2 pausieren und starten
   Global $bot = True
      If $bot = True Then
                           _timerstart()
                           bot()
      Else
         _pause()
      EndIf
EndFunc
Func bot()              ;Bot funktion
Global $collectedcounter = 0
          While $bot = True
             GUISetState()
                 Global  $bonusbox = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xFDFFFA)
                 If IsArray($bonusbox) Then
                        box()
                 Else
                        moveship()
                 EndIf
          WEnd
EndFunc
Func box()              ;Falls Bonusbox in Sicht
          Global  $bonusbox = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xFDFFFA)
          Global $collected = PixelSearch(0,0,@DesktopWidth,@DesktopHeight,0x1B272E)
          If IsArray($bonusbox) Then
               move_stop()
                 collect()
                 MouseClick("left",$bonusbox[0],$bonusbox[1],1,1)
                 Sleep(Random(2950,3950))
                                 $collectedcounter += 1
          EndIf
EndFunc
Func collect()          ;Mousemove für besseres Collecten
          Global  $bonusbox = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xFDFFFA)
          For $move_collect = 1 To 5 Step 1             ;Fährt mit der Maus über Bonusbox ( 5x 10 ms = 50ms)
          MouseMove($bonusbox[0],$bonusbox[1],1)
          Sleep(10)
          Next
EndFunc
Func moveship()         ;Minimap klick, movement falls kein Bonusbox in Sicht (Minimap size: Kleinste Form + 1; Position: Unten Rechts)
          MouseClick("left", Random(1700, 1895), Random(893, 1008), 1 , 1000)
          moveship_collect()
EndFunc
Func moveship_collect()         ;collecting während des Fluges, nach Minimap klick [[FUNKTIONIERT NOCH NICHT GANZ]]
          Global  $bonusbox = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xFDFFFA)
          Global $sleep_collect = 0
          While $sleep_collect < 50             ;Schleife mit 50 * 100 Sleep (=5000ms = 5s)
                         $bonusbox = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xFDFFFA)                  ;Übergangslösung bis das mit dem Global klappt
                 If IsArray($bonusbox) Then                     ;Falls Box in Sicht, Logout mit L für stehenbleiben danach collecten mit Func box(), falls nicht sleep.
                    #cs
                        Send("{L}")
                        Sleep(800)                                      ;Sleep für warten bis Logout Fenster aufgeht und wieder geschlossen werden kann.
                        Send("{L}")                         ; Zu schnelles schliessen, aktiviert das Logout Fenster wieder.
                     #ce
                        box()
                 Else
                        Sleep(10 )
                 EndIf
                 $sleep_collect += 1                    ;Counter für sleep and collect
          WEnd
EndFunc

Func _collectedcounter()                ;gibt nach drücken der F4 Taste aus wieviel Bonusboxen der Bot schon gesammelt hat und geht weiter sobald man auf OK drückt
                 MsgBox (0,"","You already collected so many Bonusboxes: "&$collectedcounter,0)
EndFunc
Func move_stop()
   MouseClick("left",908, 474,1,1)
   MouseClick("left",1045, 625,1,1)
   Sleep(500)
EndFunc
Func _timerstart()                      ;startet den Timer
   Dim $TimerInit
   Dim $Timer
   Global $TimerInit = TimerInit()
EndFunc


func f2()
   Send("{F2}")
EndFunc
func f3()
   Send("{F3}")
EndFunc
func f4()
   Send("{F4}")
EndFunc
func f5()
   Send("{F5}")
EndFunc
func f6()
   Send("{F6}")
EndFunc

Func _timerstop()                       ;stoppt den Timer
   $Timer = int (TimerDiff($TimerInit))
   Global $h = Round($Timer/1000/60/60)
Global $min = Round($Timer/1000/60)
Global $sek = Round($Timer/1000)

   MsgBox(0,"","Der Bot läuft bereits:"&@crlf&$h&":"&$min&":"&$sek)
EndFunc


Func _pause()                                                   ;pause
          While True
                 Sleep(10)
          WEnd
EndFunc

Func _exit()                                                    ;Programm schliessen mit F3
          Exit
EndFunc

;~ Func _test1()
;~    Run ("calc.exe")
;~ EndFunc

;~ Func _test2()

;~ EndFunc