(02-01-2015, 11:41 PM)using Wrote: for the last barrack issue, edit the code in the "Func Train()"
Code:SetLog("Training Troops Complete")
Click(1, 1, 2, 250); Click away twice with 250ms delay
ExitLoop
WEnd
EndFunc ;==>Train
(02-01-2015, 11:55 PM)dinobot Wrote: Regards to the out of sync, try revert to old coding in 5.4.2.2 as below... Swapping of return false and true.
Please test out and report back..
Code:Func checkNextButton() ;Checks for Out of Sync or Connection Lost errors
$Message = _PixelSearch(457, 300, 458, 330, Hex(0x33B5E5, 6), 10) ;Check for out of sync or inactivity
If IsArray($Message) = False Then
Return False ;Button available
Else
Return True ;Out of sync or inactivity error.
EndIf
EndFunc ;==>checkNextButton
Func _ImageSearchArea($findImage, $resultPosition, $x1, $y1, $right, $bottom, ByRef $x, ByRef $y, $Tolerance)
if $Tolerance > 0 then $findImage = "*" & $Tolerance & " " & $findImage
If $ichkBackground = 0 Then
$x1 += $BSPos[0]
$y1 += $BSPos[1]
$right += $BSPos[0]
$bottom += $BSPos[1]
EndIf
If IsString($findImage) Then
if $tolerance > 0 then
$findImage = "*" & $tolerance & " " & $findImage
EndIf
EndIf
$result = DllCall("COCBot32.dll","str","ImageSearch","int",$x1,"int",$y1,"int",$right,"int",$bottom,"str",$findImage)
; If error exit
If IsArray($result) Then
If $result[0] = "0" Then Return 0
Else
SetLog("Error cannot check for Dead Base, Attacking...")
Return 1
EndIf
; Otherwise get the x,y location of the match and the size of the image to
; compute the centre of search
$array = StringSplit($result[0],"|")
If(UBound($array) >= 4) Then
$x=Int(Number($array[2]))
$y=Int(Number($array[3]))
if $resultPosition=1 then
$x=$x + Int(Number($array[4])/2) - $x1
$y=$y + Int(Number($array[5])/2) - $y1
endif
return 1
EndIf
EndFunc
(02-02-2015, 12:27 AM)DrImmo Wrote:(02-01-2015, 11:41 PM)using Wrote: for the last barrack issue, edit the code in the "Func Train()"
Code:SetLog("Training Troops Complete")
Click(1, 1, 2, 250); Click away twice with 250ms delay
ExitLoop
WEnd
EndFunc ;==>Train
(02-01-2015, 11:55 PM)dinobot Wrote: Regards to the out of sync, try revert to old coding in 5.4.2.2 as below... Swapping of return false and true.
Please test out and report back..
Code:Func checkNextButton() ;Checks for Out of Sync or Connection Lost errors
$Message = _PixelSearch(457, 300, 458, 330, Hex(0x33B5E5, 6), 10) ;Check for out of sync or inactivity
If IsArray($Message) = False Then
Return False ;Button available
Else
Return True ;Out of sync or inactivity error.
EndIf
EndFunc ;==>checkNextButton
Thanks in advance guys. I put both changes in the code, testing now... lets see if that's working as well as i think it will