Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
5.6.2 vs 5.5.1.1
#1
The time between searching dead bases (click on next button) in 5.5.1.1 version was like 5 secounds and now on 5.6.2 it is about 7-8 secounds..

Any idea on why 5.6.2 is slow?
Reply
#2
I like better the 5.5.1.1 version for searching and training. i just got home and im trying this new version but its so slow searching and why not filling the barrack full with barbs and archers but just adding 15-25. Its so strange
Reply
#3
Yeah, and the auto wall feature is not working.

I have 2 free builders but I receive a message "There are no free builders".
Reply
#4
It's slower because people have issues with out of sync if it's faster.
Reply
#5
(02-26-2015, 08:33 AM)Konloch Wrote:  It's slower because people have issues with out of sync if it's faster.

Hey Konloch, what's nes in 5.6.2? Just bug fixes?? Thanks and sorry if i post it here but just to not create a new unuseful thread Smile
Reply
#6
(02-26-2015, 08:32 AM)Grosck Wrote:  Yeah, and the auto wall feature is not working.

I have 2 free builders but I receive a message "There are no free builders".

Please.. a option to change the time.. it's too slow TOO SLOW.. 8 sec.. for pressing next? Too much time.. if u guys don't decrease it i will stay forever at 5.5
Reply
#7
yeah its slow. I modded mine. try using this VillageSearch.au3 and GetResources.au3, it's so much faster. Beware if you have a slow pc then this will bug out:
Code:
;Searches for a village that until meets conditions
Func VillageSearch($TakeSS = 0) ;Control for searching a village that meets conditions
;If _Sleep(1000) Then Return
_CaptureRegion() ; Check Break Shield button again
If _ColorCheck(_GetPixelColor(513, 416), Hex(0x5DAC10, 6), 50) Then
Click(513, 416);Click Okay To Break Shield
EndIf
While 1
Switch $iradAttackMode
Case 0
SetLog("============Searching For Dead Bases============", $COLOR_BLUE)
Case 1
SetLog("============Searching For Weak Bases============", $COLOR_BLUE)
Case 2
SetLog("============Searching For All Bases============", $COLOR_BLUE)
EndSwitch
SetLog("~Gold: " & $MinGold & "; Elixir: " & $MinElixir & "; Dark: " & $MinDark & "; Trophy: " & $MinTrophy & "; Townhall: " & $MaxTH, $COLOR_GREEN)
If $TakeSS = 1 Then SetLog("Will capture snapshots of all towns when searching", $COLOR_GREEN)
$SearchCount = 0
$NoLeague = 0
_BlockInputEx(3, "", "", $HWnD)
While 1
_WinAPI_EmptyWorkingSet(WinGetProcess($Title)) ; Reduce BlueStacks Memory Usage
If _Sleep(1500) Then ExitLoop (2)
;setLog("check base",$COLOR_BLUE);
GetResources() ;Reads Resource Values
If $Restart = True Then ExitLoop (2)
;If CompareResources() Or ($THLoc = "Outside" And GUICtrlRead($chkMeetTHO) <> $GUI_CHECKED And GUICtrlRead($chkAttackTH) = $GUI_CHECKED) Then
            If CompareResources() Then
                ;If $THLoc = "Outside" And GUICtrlRead($chkMeetTHO) <> $GUI_CHECKED And GUICtrlRead($chkAttackTH) = $GUI_CHECKED Then
                    ;SetLog("~~~~~~~Outside Townhall Found!~~~~~~~", $COLOR_PURPLE)
                    ;ExitLoop
                If $iradAttackMode = 0 Then
                    If checkDeadBase() Then
                        SetLog("~~~~~~~Dead Base Found!~~~~~~~", $COLOR_GREEN)
                        ExitLoop
                     Else
                        ;If _Sleep(1000) Then ExitLoop (2)
                        SetLog("~~~~~~~Not a dead base, skipping~~~~~~~", $COLOR_ORANGE)
                        If $TakeSS = 1 Then
               Local $Date = @MDAY & "." & @MON & "." & @YEAR
               Local $Time = @HOUR & "." & @MIN & "." & @SEC
               _CaptureRegion()
               _GDIPlus_ImageSaveToFile($hBitmap, @ScriptDir & "\AllTowns\" & $Date & " at " & $Time & ".png")
            EndIf
                        GUICtrlSetData($lblresultvillagesskipped, GUICtrlRead($lblresultvillagesskipped)+1)
                        Click(750, 500) ;Click Next
                    EndIf
                Else
                    ExitLoop
                EndIf
             Else
                ;If _Sleep(1000) Then ExitLoop (2)
                GUICtrlSetData($lblresultvillagesskipped, GUICtrlRead($lblresultvillagesskipped)+1)
                Click(750, 500) ;Click Next
            EndIf
        WEnd
        If GUICtrlRead($chkAlertSearch) = $GUI_CHECKED Then
            TrayTip("Match Found!", "Gold: " & $searchGold & "; Elixir: " & $searchElixir & "; Dark: " & $searchDark & "; Trophy: " & $searchTrophy, "", 0)
            If FileExists(@WindowsDir & "\media\Windows Exclamation.wav") Then
               SoundPlay(@WindowsDir & "\media\Windows Exclamation.wav", 1)
            Else
               SoundPlay(@WindowsDir & "\media\Festival\Windows Exclamation.wav", 1)
            EndIf
        EndIf
        SetLog("===============Searching Complete===============", $COLOR_BLUE)
        readConfig()
        _BlockInputEx(0, "", "", $HWnD)
        ExitLoop
    WEnd
EndFunc   ;==>VillageSearch

Code:
;Uses the getGold,getElixir... functions and uses CompareResources until it meets conditions.
;Will wait ten seconds until getGold returns a value other than "", if longer than 10 seconds - calls checkNextButton
;-clicks next if checkNextButton returns true, otherwise will restart the bot.

Func GetResources() ;Reads resources
    While 1
        Local $i = 0
        _CaptureRegion()
       Local $pixel1[3] = [3, 4, 0xEEF2F6], $pixel2[3] = [855, 5, 0xFEFFFF], $pixel3[3] = [3, 671, 0xEFF4F6]
       While boolPixelSearch($pixel1, $pixel2, $pixel3)
          If _Sleep(500) Then ExitLoop (2)
          _CaptureRegion()
       WEnd
        While getGold(51, 66) = "" ; Loops until gold is readable
            If _Sleep(100) Then ExitLoop (2)
               ;setLog("reading gold",$COLOR_BLUE);
            $i += 1
            If $i >= 100 Then ; If gold cannot be read by 10 seconds
                If checkNextButton() Then
                    Click(750, 500) ;Click Next
                Else
                    SetLog("Cannot locate Next button, Restarting Bot", $COLOR_RED)
                    checkMainScreen()
                    $Restart = True
                    ExitLoop (2)
                EndIf
                $i = 0
            EndIf
        WEnd
        ;If _Sleep(300) Then ExitLoop (2)

        $searchTH = checkTownhall()
        $searchGold = getGold(51, 66)
        $searchElixir = getElixir(51, 66 + 29)
        $searchTrophy = getTrophy(51, 66 + 90)

        If $searchTrophy <> "" Then
            $searchDark = getDarkElixir(51, 66 + 57)
        Else
            $searchDark = 0
            $searchTrophy = getTrophy(51, 66 + 60)
        EndIf

        If $THx > 227 And $THx < 627 And $THy > 151 And $THy < 419 And $searchTH <> "-" Then
            $THLoc = "Inside"
        Elseif $searchTH <> "-" Then
            $THLoc = "Outside"
        Else
            $THLoc = $searchTH
            $THx = 0
            $THy = 0
        EndIf

        $SearchCount += 1 ; Counter for number of searches
        SetLog("(" & $SearchCount & ") [G]: " & $searchGold & Tab($searchGold, 7) & "[E]: " & $searchElixir & Tab($searchElixir, 7) & "[D]: " & $searchDark & Tab($searchDark, 7) & "[T]: " & $searchTrophy & Tab($searchTrophy, 5) & "[TH]: " & $searchTH & ", " & $THLoc, $COLOR_BLUE)
        ExitLoop
    WEnd
EndFunc   ;==>GetResources
Reply
#8
(02-26-2015, 09:57 AM)b3n3tt3 Wrote:  yeah its slow. I modded mine. try using this VillageSearch.au3 and GetResources.au3, it's so much faster. Beware if you have a slow pc then this will bug out:
Code:
;Searches for a village that until meets conditions
Func VillageSearch($TakeSS = 0) ;Control for searching a village that meets conditions
;If _Sleep(1000) Then Return
_CaptureRegion() ; Check Break Shield button again
If _ColorCheck(_GetPixelColor(513, 416), Hex(0x5DAC10, 6), 50) Then
Click(513, 416);Click Okay To Break Shield
EndIf
While 1
Switch $iradAttackMode
Case 0
SetLog("============Searching For Dead Bases============", $COLOR_BLUE)
Case 1
SetLog("============Searching For Weak Bases============", $COLOR_BLUE)
Case 2
SetLog("============Searching For All Bases============", $COLOR_BLUE)
EndSwitch
SetLog("~Gold: " & $MinGold & "; Elixir: " & $MinElixir & "; Dark: " & $MinDark & "; Trophy: " & $MinTrophy & "; Townhall: " & $MaxTH, $COLOR_GREEN)
If $TakeSS = 1 Then SetLog("Will capture snapshots of all towns when searching", $COLOR_GREEN)
$SearchCount = 0
$NoLeague = 0
_BlockInputEx(3, "", "", $HWnD)
While 1
_WinAPI_EmptyWorkingSet(WinGetProcess($Title)) ; Reduce BlueStacks Memory Usage
If _Sleep(1500) Then ExitLoop (2)
;setLog("check base",$COLOR_BLUE);
GetResources() ;Reads Resource Values
If $Restart = True Then ExitLoop (2)
;If CompareResources() Or ($THLoc = "Outside" And GUICtrlRead($chkMeetTHO) <> $GUI_CHECKED And GUICtrlRead($chkAttackTH) = $GUI_CHECKED) Then
            If CompareResources() Then
                ;If $THLoc = "Outside" And GUICtrlRead($chkMeetTHO) <> $GUI_CHECKED And GUICtrlRead($chkAttackTH) = $GUI_CHECKED Then
                    ;SetLog("~~~~~~~Outside Townhall Found!~~~~~~~", $COLOR_PURPLE)
                    ;ExitLoop
                If $iradAttackMode = 0 Then
                    If checkDeadBase() Then
                        SetLog("~~~~~~~Dead Base Found!~~~~~~~", $COLOR_GREEN)
                        ExitLoop
                     Else
                        ;If _Sleep(1000) Then ExitLoop (2)
                        SetLog("~~~~~~~Not a dead base, skipping~~~~~~~", $COLOR_ORANGE)
                        If $TakeSS = 1 Then
               Local $Date = @MDAY & "." & @MON & "." & @YEAR
               Local $Time = @HOUR & "." & @MIN & "." & @SEC
               _CaptureRegion()
               _GDIPlus_ImageSaveToFile($hBitmap, @ScriptDir & "\AllTowns\" & $Date & " at " & $Time & ".png")
            EndIf
                        GUICtrlSetData($lblresultvillagesskipped, GUICtrlRead($lblresultvillagesskipped)+1)
                        Click(750, 500) ;Click Next
                    EndIf
                Else
                    ExitLoop
                EndIf
             Else
                ;If _Sleep(1000) Then ExitLoop (2)
                GUICtrlSetData($lblresultvillagesskipped, GUICtrlRead($lblresultvillagesskipped)+1)
                Click(750, 500) ;Click Next
            EndIf
        WEnd
        If GUICtrlRead($chkAlertSearch) = $GUI_CHECKED Then
            TrayTip("Match Found!", "Gold: " & $searchGold & "; Elixir: " & $searchElixir & "; Dark: " & $searchDark & "; Trophy: " & $searchTrophy, "", 0)
            If FileExists(@WindowsDir & "\media\Windows Exclamation.wav") Then
               SoundPlay(@WindowsDir & "\media\Windows Exclamation.wav", 1)
            Else
               SoundPlay(@WindowsDir & "\media\Festival\Windows Exclamation.wav", 1)
            EndIf
        EndIf
        SetLog("===============Searching Complete===============", $COLOR_BLUE)
        readConfig()
        _BlockInputEx(0, "", "", $HWnD)
        ExitLoop
    WEnd
EndFunc   ;==>VillageSearch

Code:
;Uses the getGold,getElixir... functions and uses CompareResources until it meets conditions.
;Will wait ten seconds until getGold returns a value other than "", if longer than 10 seconds - calls checkNextButton
;-clicks next if checkNextButton returns true, otherwise will restart the bot.

Func GetResources() ;Reads resources
    While 1
        Local $i = 0
        _CaptureRegion()
       Local $pixel1[3] = [3, 4, 0xEEF2F6], $pixel2[3] = [855, 5, 0xFEFFFF], $pixel3[3] = [3, 671, 0xEFF4F6]
       While boolPixelSearch($pixel1, $pixel2, $pixel3)
          If _Sleep(500) Then ExitLoop (2)
          _CaptureRegion()
       WEnd
        While getGold(51, 66) = "" ; Loops until gold is readable
            If _Sleep(100) Then ExitLoop (2)
               ;setLog("reading gold",$COLOR_BLUE);
            $i += 1
            If $i >= 100 Then ; If gold cannot be read by 10 seconds
                If checkNextButton() Then
                    Click(750, 500) ;Click Next
                Else
                    SetLog("Cannot locate Next button, Restarting Bot", $COLOR_RED)
                    checkMainScreen()
                    $Restart = True
                    ExitLoop (2)
                EndIf
                $i = 0
            EndIf
        WEnd
        ;If _Sleep(300) Then ExitLoop (2)

        $searchTH = checkTownhall()
        $searchGold = getGold(51, 66)
        $searchElixir = getElixir(51, 66 + 29)
        $searchTrophy = getTrophy(51, 66 + 90)

        If $searchTrophy <> "" Then
            $searchDark = getDarkElixir(51, 66 + 57)
        Else
            $searchDark = 0
            $searchTrophy = getTrophy(51, 66 + 60)
        EndIf

        If $THx > 227 And $THx < 627 And $THy > 151 And $THy < 419 And $searchTH <> "-" Then
            $THLoc = "Inside"
        Elseif $searchTH <> "-" Then
            $THLoc = "Outside"
        Else
            $THLoc = $searchTH
            $THx = 0
            $THy = 0
        EndIf

        $SearchCount += 1 ; Counter for number of searches
        SetLog("(" & $SearchCount & ") [G]: " & $searchGold & Tab($searchGold, 7) & "[E]: " & $searchElixir & Tab($searchElixir, 7) & "[D]: " & $searchDark & Tab($searchDark, 7) & "[T]: " & $searchTrophy & Tab($searchTrophy, 5) & "[TH]: " & $searchTH & ", " & $THLoc, $COLOR_BLUE)
        ExitLoop
    WEnd
EndFunc   ;==>GetResources

nice thank you!
Reply
 


Forum Jump:


Users browsing this thread: 9 Guest(s)

About The Bytecode Club

We're a community focused on Reverse Engineering, we try to target Java/Android but we also include other langauges/platforms. We pride ourselves in supporting and free and open sourced applications.

Website