TroveAutoAcceptInvites

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Description=Automatically accepts Trove Ingame Invites
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=Made by MrRangerLP
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;-Made by MrRangerLP
#NoTrayIcon

#include <GUIConstants.au3>
#include <Misc.au3>

HotKeySet("{F5}","_END")
Func _END()
   Exit
EndFunc

If RegRead("HKCU\Software\TroveAutoAccept\","ScreenX") <> 1 then
   Global $ScreenX = RegRead("HKCU\Software\TroveAutoAccept\","ScreenX")
   Global $ScreenY = RegRead("HKCU\Software\TroveAutoAccept\","ScreenY")
   Global $ScreenC = RegRead("HKCU\Software\TroveAutoAccept\","ScreenC")
Else
   Global $ScreenX, $ScreenY, $ScreenC
EndIf

Global $ProgramState = 0

Func DrawMainGUI()
   Global $MainGUI = GUICreate("TroveAutoAccept",400,150,-1,-1)
   Global $MainGUILabelX = GUICtrlCreateLabel("Bildschirm X",5,5,100,13)
   Global $MainGUIInputX = GUICtrlCreateInput($ScreenX,5,23,390,23)
   Global $MainGUILabelY = GUICtrlCreateLabel("Bildschirm Y",5,51,100,13)
   Global $MainGUIInputY = GUICtrlCreateInput($ScreenY,5,69,390,23)
   Global $MainGUIInputColor = GUICtrlCreateInput($ScreenC,305,100,90,23)

   Global $MainGUIMenu = GUICtrlCreateMenu("Einstellen")
   Global $MainGUIMenuItem = GUICtrlCreateMenuItem("Einstellen",$MainGUIMenu)

   Global $MainGUIButtonStart = GUICtrlCreateButton("Auf gehts!",5,100,75,23)
   Global $MainGUIButtonSave = GUICtrlCreateButton("Speichern",85,100,75,23)
   Global $MainGUILabelInfoEnd = GUICtrlCreateLabel("Zum beenden F5 drücken.",165,106,200,13)
      GUICtrlSetBkColor(-1,-2)

   GUISetState()
EndFunc
DrawMainGUI()

Func SaveConfig()
   RegWrite("HKCU\Software\TroveAutoAccept\","ScreenX","REG_SZ",GUICtrlRead($MainGUIInputX))
   RegWrite("HKCU\Software\TroveAutoAccept\","ScreenY","REG_SZ",GUICtrlRead($MainGUIInputY))
   RegWrite("HKCU\Software\TroveAutoAccept\","ScreenC","REG_SZ",GUICtrlRead($MainGUIInputColor))

   $ScreenX = RegRead("HKCU\Software\TroveAutoAccept\","ScreenX")
   $ScreenY = RegRead("HKCU\Software\TroveAutoAccept\","ScreenY")
   $ScreenC = RegRead("HKCU\Software\TroveAutoAccept\","ScreenC")
EndFunc

Func SetupConfig()
   MsgBox(0,"Information","Bitte mit den Cursor auf den akzeptieren knopf gehen und 'F6' drücken."&@CRLF&"WICHTIG: Das Spielfenster darf dabei nicht aktiv sein!")
   GUISetState(@SW_HIDE,$MainGUI)
   While True
      If _IsPressed("75") Then
         $ScreenX = (MouseGetPos()[0]-5)
         $ScreenY = (MouseGetPos()[1]-5)
         $ScreenC = PixelGetColor($ScreenX,$ScreenY)

         GUICtrlSetData($MainGUIInputX,$ScreenX)
         GUICtrlSetData($MainGUIInputY,$ScreenY)
         GUICtrlSetData($MainGUIInputColor,$ScreenC)

         GUISetState(@SW_SHOW,$MainGUI)
         ExitLoop
      EndIf

      Sleep(1)
   WEnd
EndFunc

While True
   If $ProgramState == 0 Then
      Switch GUIGetMsg()
         Case $GUI_EVENT_CLOSE
            Exit
         Case $MainGUIButtonStart
            SaveConfig()
            GUIDelete($MainGUI)
            $ProgramState = 1
         Case $MainGUIButtonSave
            SaveConfig()
         Case $MainGUIMenuItem
            SetupConfig()
      EndSwitch

      Sleep(1)
   Else
      Local $PColor = PixelGetColor($ScreenX,$ScreenY)
      If $PColor == $ScreenC Then
         MouseClick("LEFT",$ScreenX,$ScreenY,1,5)
         Sleep(25)
         MouseClick("LEFT",$ScreenX,$ScreenY,1,5) ;- Doppelklick falls das spiel nicht in fokus sein sollte.
      EndIf

      Sleep(random(100,1357)) ;- Unterschiedliche dauer zum akzeptieren.
   EndIf
WEnd