02-12-2015, 08:48 AM
You can try this but, no guarantees.
Open \COC-Bot-5.5.1\COCBot\functions\Main Screen\ZoomOut.au3
Right click anywhere in the window, select 'Select All'. Copy the code below and paste over the old code:
Close and save the file then try and run the bot. Let me know if it works.
Open \COC-Bot-5.5.1\COCBot\functions\Main Screen\ZoomOut.au3
Right click anywhere in the window, select 'Select All'. Copy the code below and paste over the old code:
Code:
;Tries to zoom out of the screen until the borders, located at the top of the game (usually black), is located.
;Only does it for 20 zoom outs, no more than that.
Func ZoomOut() ;Zooms out
Local $i = 0
While 1
_CaptureRegion(0, 0, 860, 2)
If _GetPixelColor(1, 1) <> Hex(0x000000, 6) And _GetPixelColor(850, 1) <> Hex(0x000000, 6) Then SetLog("Zooming Out", $COLOR_BLUE)
While _GetPixelColor(1, 1) <> Hex(0x000000, 6) And _GetPixelColor(850, 1) <> Hex(0x000000, 6)
If _Sleep(600) Then Return
;If ControlSend($Title, "", "", "{DOWN}") Then $i += 1
If ControlSend($Title, "", "", "^{-}") Then $i += 1
If $i = 20 Then
ExitLoop
EndIf
_CaptureRegion(0, 0, 860, 2)
WEnd
ExitLoop
WEnd
EndFunc ;==>ZoomOut
Close and save the file then try and run the bot. Let me know if it works.