#include <Misc.au3>

HotKeySet("{F11}", "_Strom_Raff")
HotKeySet("{Numpad2}", "_Raff_Raff")
HotKeySet("{NUMPAD5}", "Terminate") ; Bild

AutoItSetOption("SendKeyDelay",0)
AutoItSetOption("SendKeyDownDelay",0)

Global $dll = DllOpen("user32.dll")

Global $R1 = ""
Global $Abstand = ""

While 1
	Sleep(50)
WEnd


; F11 Hotkey
Func _Strom_Raff()

;Random
Random(60,90, $R1)
Random(10,20, $Abstand)

; 1. Kran auswählen  mit <F10>
Send ("{F10 down}")
Sleep(303)
Send ("{F10 up}")
ConsoleWrite("1. Kran auswählen  mit <F10>" & @CRLF)

; Abstand
Sleep($Abstand)

; 2. Kran platzieren mit MouseClick links
Do
	MouseDown("left")
	Sleep($R1)
	MouseUp("left")
	Sleep(5)
	$Kran_Farbe = PixelGetColor(800,492)
Until $Kran_Farbe <> 16777215 ; ungleich weiss (0xFFFFFF)
ConsoleWrite("2. Kran mit MouseClick links platziert" & @CRLF)

; Pause
Sleep(250)

; 3. (Mainbase) Raffinerie Nr.1 bauen mit <F2>
Do
	Send ("{F2 down}")
	Sleep($R1)
	Send ("{F2 up}")
	$Raff_Grau = Pixelgetcolor(866,303)
	$return3hex = Hex($Raff_Grau,6)
	$return3_b = StringLeft($return3hex,1)
Until $return3_b = "C" ; C = grau
ConsoleWrite("3. (Mainbase) Raffinerie bauen mit <F2>" & @CRLF)


Sleep($Abstand)

; 4. (KranBase) Menü auswählen mit <E>
Do
	Send ("{E down}")
	Sleep($R1)
	Send ("{E up}")
	$Raff_Farbe1 = PixelGetColor(866,302) ; Raff-Farbild F2
Until $Raff_Farbe1 < 0x2040000
ConsoleWrite("4. (KranBase) Menü auswählen mit <E>" & @CRLF)


Sleep($Abstand)

; 5. Stromkraftwerk bauen mit <F1>
Do
	Send ("{F1 down}")
	Sleep($R1)
	Send ("{F1 up}")
	$Strom_Grau = PixelGetColor(803,303)
	$return5hex = Hex($Strom_Grau,6)
	$return5_b = StringLeft($return5hex,1)
Until $return5_b = "C"
ConsoleWrite("5. Stromkraftwerk bauen mit <F1>" & @CRLF)

Sleep($Abstand)


; 6. Stromkraftwerk platzierung mit linker Maustaste abwarten
While 1

    Sleep (50)
    If _IsPressed("01", $dll) Then
		While 1
			Sleep (50)
			If _IsPressed("01", $dll) = 0 Then
				ExitLoop 2
			EndIf
		WEnd
	EndIf
WEnd
ConsoleWrite("6. Stromkraftwerk wurde mit linker Maustaste platziert" & @CRLF)

Sleep(250)

; 7. (Secondär Gebäude) Menü auswählen mit <R>
Do
	Send ("{R down}")
	Sleep($R1)
	Send ("{R up}")
	$Raff_Farbe2 = PixelGetColor(866,302) ; Raff-Farbild F2
Until $Raff_Farbe2 < 0x2040000
ConsoleWrite("7. (Secondär Gebäude) Menü mit <R> ausgewählt" & @CRLF)

Sleep($Abstand)

; 8. Geschützturm bauen mit <F1>
Do
	Send ("{F1 down}")
	Sleep($R1)
	Send ("{F1 up}")
	$Turm_Grau = PixelGetColor(802,303)
	$return8hex = Hex($Turm_Grau ,6)
	$return8_b = StringLeft($return8hex,1)
Until $return8_b = "C"
ConsoleWrite("8. Turm mit <F1> gebaut" & @CRLF)


; 9. E
Do
	Send ("{E down}")
	Sleep($R1)
	Send ("{E up}")
	$Raff_Farbe3 = PixelGetColor(866,302) ; Raff-Farbild F2
Until $Raff_Farbe3 < 0x2040000
ConsoleWrite("9. <E> gedrückt" & @CRLF)



; 10. Raffierie Nr.2 bauen mit <F2>
Do
	Send ("{F2 down}")
	Sleep($R1)
	Send ("{F2 up}")
	$Raff2_Grau = PixelGetColor(866,303)
	$return10hex = Hex($Raff2_Grau,6)
	$return10_b = StringLeft($return10hex,1)
Until $return10_b = "C"
ConsoleWrite("10. Raffierie Nr.2 mit <F2> gebaut" &  @CRLF)


; 11. (Secondär Gebäude) Menü auswählen mit <R>
Do
	Send ("{R down}")
	Sleep($R1)
	Send ("{R up}")
	$Raff_Farbe4 = PixelGetColor(866,302) ; Raff-Farbild F2
Until $Raff_Farbe4 < 0x2040000
ConsoleWrite("11. (Secondär Gebäude) Menü mit <R> wieder ausgewählt" & @CRLF & @CRLF & @CRLF)



;Beep()

EndFunc


;
Func _Raff_Raff()



;Random
Random(50,90, $R1)
Random(10,20, $Abstand)

; 1. Kran auswählen  mit <F10>
Send ("{F10 down}")
Sleep(89)
Send ("{F10 up}")
ConsoleWrite("1. Kran auswählen  mit <F10>" & @CRLF)

; Abstand
Sleep($Abstand)

; 2. Kran platzieren mit MouseClick links
Do
	MouseDown("left")
	Sleep($R1)
	MouseUp("left")
	$Kran_Farbe = PixelGetColor(800,492)
Until $Kran_Farbe <> 16777215 ; ungleich weiss (0xFFFFFF)
ConsoleWrite("2. Kran mit MouseClick links platziert" & @CRLF)

; Pause
Sleep(250)

; 3. (Mainbase) Raffinerie bauen mit <F2>
Do
	Send ("{F2 down}")
	Sleep($R1)
	Send ("{F2 up}")
	$Raff_Grau = Pixelgetcolor(866,303)
	$return3hex = Hex($Raff_Grau,6)
	$return3_b = StringLeft($return3hex,1)
Until $return3_b = "C" ; C = grau
ConsoleWrite("3. (Mainbase) Raffinerie bauen mit <F2>" & @CRLF)


Sleep($Abstand)

; 4. (KranBase) Menü auswählen mit <E>
Do
	Send ("{E down}")
	Sleep($R1)
	Send ("{E up}")
	$Raff_Farbe = PixelGetColor(866,302) ; Raff-Farbild F2
Until $Raff_Farbe < 0x2040000
ConsoleWrite("4. (KranBase) Menü auswählen mit <E>" & @CRLF)


Sleep($Abstand)


; 5. (KranBase) Raffinerie bauen mit <F2>
Do
	Send ("{F2 down}")
	Sleep($R1)
	Send ("{F2 up}")
	$Raff_Grau = Pixelgetcolor(866,303)
	$return3hex = Hex($Raff_Grau,6)
	$return3_b = StringLeft($return3hex,1)
Until $return3_b = "C" ; C = grau
ConsoleWrite("3. (Mainbase) Raffinerie bauen mit <F2>" & @CRLF)


Sleep($Abstand)

; 6. (KranBase) Menü auswählen mit <E>
Do
	Send ("{E down}")
	Sleep($R1)
	Send ("{E up}")
	$Raff_Farbe = PixelGetColor(866,302) ; Raff-Farbild F2
Until $Raff_Farbe < 0x2040000
ConsoleWrite("4. (KranBase) Menü auswählen mit <E>" & @CRLF)


EndFunc

;==>Terminate
Func Terminate()
	Exit
EndFunc