Global $paused
AutoItSetOption ( "MouseClickDelay", 10)

;capture pause key
$letter = "1"
Do
$letter = InputBox("Choose your hotkey:", "Please enter any lowercase letter." & @CR & "The resulting hotkey will be a combination of" & @CR & "CTRL + ALT + (your lowercase letter).", "", "", 240, 200)
Until IsString($letter) and StringLen($letter) = 1 and StringIsLower($letter)
$letter = "!^" & $letter
HotKeySet($letter, "TogglePause")

;pause function
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc


;set resolution
$res = 0
Do
$res = InputBox("Choose your IN-GAME resolution:", "1 = 640x480" & @CR & "2 = 800x600" & @CR & "3 = 1024x768" & @CR & "4 = 1152x864" & @CR & "5 = 1280x960" & @CR & "6 = 1280x1024" & @CR & "7 = 1600x1200" & @CR & @CR & @CR, "", "", 200, 200)
If $res = 1 Then
$xx = 320
$yy = 242
ElseIf $res = 2 Then
$xx = 400
$yy = 303
ElseIf $res = 3 Then
$xx = 511
$yy = 387
ElseIf $res = 4 Then
$xx = 575
$yy = 435
ElseIf $res = 5 Then
$xx = 640
$yy = 485
ElseIf $res = 6 Then
$xx = 640
$yy = 516
ElseIf $res = 7 Then
$xx = 798
$yy = 605
EndIf
Until $res = 1 or $res = 2 or $res = 3 or $res = 4 or $res = 5 or $res = 6 or $res = 7


;loop
While 1
$hex = Hex(PixelGetColor($xx,$yy), 6)
$r = Dec(StringRight($hex, 2))
$g = Dec(StringMid($hex, 3,2))
$b = Dec(StringLeft($hex, 2))

If $r < 130 and $g < 130 and $r < 110 Then
Select
Case $r < 80 and $b < 80 and $g < 80 and $r + 20 > $b and $b + 10 > $g and $g + 10 > $b and $r + 13 > $g and $g + 5 > $r
MouseClick("left", $xx,$yy, 3, 0)
Case $g > $b and $b + 5 > $g * .5609 and $r + 5 > $b and $g / $r > .95 and $r / $g < 1.15 and $g - $b <= 35
MouseClick("left", $xx,$yy, 3, 0)
EndSelect
EndIf

WEnd