• Close
    • > > > 5.6.2 vs 5.5.1.1 >

    Announcements
    Explore some Java projects! Check out the official TBC wiki! Visit the reverse engineering section! Come chill in the lounge! Experience the programming section!

    Thread Rating:
    • 0 Vote(s) - 0 Average
    • 1
    • 2
    • 3
    • 4
    • 5
    5.6.2 vs 5.5.1.1
    Grosck Offline
    Junior Member
    **
    Verified Member
    Posts: 7
    Threads: 3
    Joined: Feb 2015
    Reputation: 0
    #1
    02-26-2015, 07:37 AM
    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?
    Find
    Reply
    Angelface Offline
    Junior Member
    **
    Verified Member
    Posts: 14
    Threads: 2
    Joined: Feb 2015
    Reputation: 0
    #2
    02-26-2015, 07:46 AM
    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
    Find
    Reply
    Grosck Offline
    Junior Member
    **
    Verified Member
    Posts: 7
    Threads: 3
    Joined: Feb 2015
    Reputation: 0
    #3
    02-26-2015, 08:32 AM
    Yeah, and the auto wall feature is not working.

    I have 2 free builders but I receive a message "There are no free builders".
    Find
    Reply
    Konloch Offline
    Administrator
    *******
    Administrators
    Java Experts
    Reverse Engineers
    Posts: 429
    Threads: 117
    Joined: Jul 2014
    Reputation: 18
    #4
    02-26-2015, 08:33 AM
    It's slower because people have issues with out of sync if it's faster.
    Find
    Reply
    Mattrix Offline
    Junior Member
    **
    Verified Member
    Posts: 23
    Threads: 2
    Joined: Jan 2015
    Reputation: 0
    #5
    02-26-2015, 08:49 AM
    (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
    Find
    Reply
    trauaj Offline
    Junior Member
    **
    Unverified Member
    Posts: 4
    Threads: 2
    Joined: Feb 2015
    Reputation: 0
    #6
    02-26-2015, 08:52 AM
    (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
    Find
    Reply
    b3n3tt3 Offline
    Junior Member
    **
    Verified Member
    Posts: 22
    Threads: 1
    Joined: Feb 2015
    Reputation: 0
    #7
    02-26-2015, 09:57 AM (This post was last modified: 02-26-2015, 09:57 AM by b3n3tt3.)
    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
    Find
    Reply
    xbruhh Offline
    Junior Member
    **
    Unverified Member
    Posts: 3
    Threads: 0
    Joined: Feb 2015
    Reputation: 0
    #8
    02-27-2015, 12:50 AM
    (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!
    Find
    Reply
     


    Forum Jump:


    Users browsing this thread: 1 Guest(s)

    About The Bytecode Club

    We're a community forum 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.

    Resources

    FOSS Software

    Website

    Powered By MyBB, © 2002-2024 MyBB Group.