• Close
    • > > > Developing Bot >

    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 Closed 
    Thread Rating:
    • 7 Vote(s) - 5 Average
    • 1
    • 2
    • 3
    • 4
    • 5
    Developing Bot
    HAX4DAYS Offline
    Junior Member
    **
    Verified Member
    Posts: 38
    Threads: 1
    Joined: Dec 2014
    Reputation: 0
    #41
    12-12-2014, 10:22 AM
    How to get the GUI antidote. otherwise working Great!
    Find
    qaqaq Offline
    Junior Member
    **
    Verified Member
    Posts: 29
    Threads: 0
    Joined: Dec 2014
    Reputation: 0
    #42
    12-12-2014, 10:00 PM
    Anyone can make a tool that can auto searching gold/elixir with condition on Bluestack app. And auto-stop when the condition is true. I only need that feature. Thank you Smile
    Find
    Antidote Offline
    Respected Member
    *****
    Respected Members
    Posts: 157
    Threads: 7
    Joined: Dec 2014
    Reputation: 29
    #43
    12-13-2014, 12:33 AM
    Find
    HAX4DAYS Offline
    Junior Member
    **
    Verified Member
    Posts: 38
    Threads: 1
    Joined: Dec 2014
    Reputation: 0
    #44
    12-13-2014, 12:35 AM
    is it possible you can send it to me? my computer doesn't "like" mega and wont download it for me!
    Find
    Antidote Offline
    Respected Member
    *****
    Respected Members
    Posts: 157
    Threads: 7
    Joined: Dec 2014
    Reputation: 29
    #45
    12-13-2014, 12:52 AM (This post was last modified: 12-13-2014, 12:58 AM by Antidote.)
    I reupload to zippyshare for you
    Search Function. rar
    http://www38.zippyshare.com/v/81492639/file.html
    Bot.rar
    http://www38.zippyshare.com/v/76107874/file.html
    Bot.rar is the one with all the function I'm working on. For now it will ask user to click on barrack to register its position, then train troop according to user's input and start attack. At the moment it will drop troop as follow: drop troop at the third position first (giant), then first position (barbarian), then second (archer). This is because I train only barbarian, archer and giant for raiding. I'm working to get it to detect which troop is at which position when attacking with different army composition. Next week's quite busy for me so hope anyone can get to the code and improve it. I'm new to Autoit so the code's quite messy lol
    Here's the code for those interested:
    http://pastebin.com/nPRfLWBg
    Code:
    #RequireAdmin
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    #include <TrayConstants.au3>
    #include <Misc.au3>
    #include <Tesseract.au3>

    Opt ("MouseClickDelay", 10)
    Opt ("MouseClickDownDelay", 10)
    Opt ("MouseCoordMode", 0)
    Opt ('PixelCoordMode', 0)

    $Title = "BlueStacks App Player"
    $Full = WinGetTitle ($Title)
    $HWnD = WinGetHandle ($Full)
    WinActivate ($HWnD)

    Global $Left = 45, $Top = 70, $Right = 660, $Bottom = 490
    Global $BSsize = WinGetClientSize($hWnd)
    Global $x_ratio = $BSsize[0]/800, $y_ratio = $BSsize[1]/600

    Global $Gold, $Elixir, $MinGold = 50000, $MinElixir = 50000
    Global $SearchMode = 1, $SearchCheck = 0, $ErrorCheck = 0

    Global $UpLeft[5][2] = [[350*$x_ratio,51*$y_ratio],[230*$x_ratio,100*$y_ratio],[186*$x_ratio,160*$y_ratio],[144*$x_ratio,187*$y_ratio],[125*$x_ratio,200*$y_ratio]]
    Global $UpRight[5][2] = [[460*$x_ratio,62*$y_ratio],[520*$x_ratio,97*$y_ratio],[570*$x_ratio,134*$y_ratio],[647*$x_ratio,186*$y_ratio],[692*$x_ratio,211*$y_ratio]]
    Global $LowLeft[5][2] = [[77*$x_ratio, 306*$y_ratio],[130*$x_ratio,353*$y_ratio],[181*$x_ratio,395*$y_ratio],[214*$x_ratio,415*$y_ratio],[250*$x_ratio,442*$y_ratio]]
    Global $LowRight[5][2] = [[734*$x_ratio,290*$y_ratio],[685*$x_ratio,318*$y_ratio],[630*$x_ratio,350*$y_ratio],[600*$x_ratio,369*$y_ratio],[535*$x_ratio,425*$y_ratio]]

    Global $Troop[5][2] = [[60*$x_ratio,505*$y_ratio],[130*$x_ratio,505*$y_ratio],[200*$x_ratio,505*$y_ratio],[265*$x_ratio,505*$y_ratio],[372*$x_ratio,505*$y_ratio]]
    Global $Barbarian[2] = [0,0], $Archer[2] = [0,0], $Golbin[2] =[0,0], $Giant[2] = [0,0]

    Global $B1Pos[2] = [0,0], $B2Pos[2] = [0,0], $B3Pos[2] = [0,0], $B4Pos[2] = [0,0]
    Global $B1Troop, $B2Troop, $B3Troop, $B4Troop

    HotKeySet("+{ESC}","Terminate")

    #Region ### GUI ###
    $BotGUI = GUICreate("Clash of Clans Bot", 280, 170)
    GUICtrlSetFont(-1, 10, 800, 0, "Calibri")
    $MeetAll = GUICtrlCreateCheckbox("Meet all conditions", 150, 20, 140, 17)
    GUICtrlCreateLabel("Min Gold:", 150, 48, 58, 17)
    $MinGoldInput = GUICtrlCreateInput("", 200, 44, 55, 21, $ES_NUMBER)
    GUICtrlSetLimit(-1, 6)
    GUICtrlCreateLabel("Min Elixir:", 150, 72, 57, 17)
    $MinElixirInput = GUICtrlCreateInput("", 200, 68, 55, 21, $ES_NUMBER)
    GUICtrlSetLimit(-1, 6)
    $Barrack01 = GUICtrlCreateCombo("Barrack 01", 30, 16, 80, 30, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData(-1, "Barbarian|Archer|Goblin|Giant")
    $Barrack02 = GUICtrlCreateCombo("Barrack 02", 30, 40, 80, 30, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData(-1, "Barbarian|Archer|Goblin|Giant")
    $Barrack03 = GUICtrlCreateCombo("Barrack 03", 30, 64, 80, 30, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData(-1, "Barbarian|Archer|Goblin|Giant")
    $Barrack04 = GUICtrlCreateCombo("Barrack 04", 30, 88, 80, 30, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData(-1, "Barbarian|Archer|Goblin|Giant")
    $StartButton = GUICtrlCreateButton("START (Shift+ESC to Exit)", 30, 120, 220, 40)
    GUISetState(@SW_SHOW)
    #EndRegion ### GUI ###

    While 1
      $Msg = GUIGetMsg()
      Switch $Msg
             Case $GUI_EVENT_CLOSE
                    $ExitCheck = MsgBox(4+65536, "Confirm Exit", "Are you sure you want to exit?", 0, $BotGUI)
                    If $ExitCheck = 6 Then
                           Exit
                    EndIf
             Case $StartButton
                    Start()
      EndSwitch
    WEnd

    Func Start()
      Sleep(1000)
      ;While 1
             CheckIdle()   ;Check disconnect message and click on reload
             GetInput()    ;Read user's input
             ZoomOut()
             LocateBarrack()       ;If barrack not located, ask user to manually click on barrack to locate position
             Train()                       ;Train troop according to user's input
             ;Sleep(900000)        ;Wait 15 mins for troops training
             ;AssignTroop()        ;Assign troop type to troop position in attack (unfinished)
             PrepareAttack()       ;Click Attack
             VillageSearch()       ;Search gold & elixir according to input
             ;DropTroop()  ;Drop troop in order: Giant, Barbarian, Archer (unfinished)
             DropAll()     ;Drop everything
             Sleep(180000) ;Wait 3 mins
             ControlClick ($HWnD, "","", "left", "1", 400*$x_ratio, 450*$y_ratio)  ;Click Return Home
             ;Sleep(10000)
      ;WEnd
    EndFunc

    Func CheckIdle()
      WinActivate($HWnD)
      $ColorCheck = PixelGetColor(560*$x_ratio, 333*$y_ratio, $HWnD)
      If Hex($ColorCheck,6) = 282828 Then
             ControlClick ($HWnD, "","", "left", "1", 205*$x_ratio, 330*$y_ratio)
             Sleep(10000)
      EndIf
    EndFunc

    Func GetInput()
      $B1Troop = GUICtrlRead($Barrack01)
      $B2Troop = GUICtrlRead($Barrack02)
      $B3Troop = GUICtrlRead($Barrack03)
      $B4Troop = GUICtrlRead($Barrack04)
      $MinGold = Number(GUICtrlRead($MinGoldInput))
      $MinElixir = Number(GUICtrlRead($MinElixirInput))
      If GUICtrlRead($MeetAll) = $GUI_CHECKED Then
             $SearchMode = 2
      Else
             $SearchMode = 1
      EndIf
    EndFunc

    #Region ##### TRAIN #####
    Func FindPos(ByRef $Pos)
      Local $x = 1
             While $x = 1
                    If _IsPressed("01") Then
                           $Pos = MouseGetPos()
                           $x = 0
                    EndIf
             WEnd
      EndFunc

    Func LocateBarrack()
      Local $ClickCheck, $LocateCheck = 0
      While 1
             While 1
                    If $B1Pos[0] = 0 Then
                           $ClickCheck = MsgBox(6+65536, "Locate first barrack", "Click Continue then click on your first barrack. Cancel if not available", 0, $BotGUI)
                           If $ClickCheck = 11 Then
                              WinActivate ($HWnD)
                              FindPos($B1Pos)
                           ElseIf $ClickCheck = 10 Then
                              $B1Pos[0] = 0
                              $B2Pos[0] = 0
                              $B3Pos[0] = 0
                              $B4Pos[0] = 0
                              ExitLoop
                           EndIf
                           Sleep(500)
                    EndIf

                    If $B2Pos[0] = 0 Then
                           $ClickCheck = MsgBox(6+65536, "Locate second barrack", "Click Continue then click on you second barrack. Cancel if not available", 0, $BotGUI)
                           If $ClickCheck = 11 Then
                              WinActivate ($HWnD)
                              FindPos($B2Pos)
                           ElseIf $ClickCheck = 10 Then
                              $B1Pos[0] = 0
                              $B2Pos[0] = 0
                              $B3Pos[0] = 0
                              $B4Pos[0] = 0
                              ExitLoop
                           EndIf
                           Sleep(500)
                    EndIf

                    If $B3Pos[0] = 0 Then
                           $ClickCheck = MsgBox(6+65536, "Locate third barrack", "Click Continue then click on your third barrack. Cancel if not available", 0, $BotGUI)
                           If $ClickCheck = 11 Then
                              WinActivate ($HWnD)
                              FindPos($B3Pos)
                           ElseIf $ClickCheck = 10 Then
                              $B1Pos[0] = 0
                              $B2Pos[0] = 0
                              $B3Pos[0] = 0
                              $B4Pos[0] = 0
                              ExitLoop
                           EndIf
                           Sleep(500)
                    EndIf

                    If $B4Pos[0] = 0 Then
                           $ClickCheck = MsgBox(6+65536, "Locate fourth barrack", "Click Continue then click on your fourth barrack. Cancel if not available", 0, $BotGUI)
                           If $ClickCheck = 11 Then
                              WinActivate ($HWnD)
                              FindPos($B4Pos)
                           ElseIf $ClickCheck = 10 Then
                              $B1Pos[0] = 0
                              $B2Pos[0] = 0
                              $B3Pos[0] = 0
                              $B4Pos[0] = 0
                              ExitLoop
                           EndIf
                           Sleep(500)
                    EndIf
                    ExitLoop(2)
             WEnd
      WEnd
    EndFunc

    Func TrainBarrack($x, $y, $z)
      ControlClick ($HWnD, "","", "left", "1", $x, $y)
      Sleep(1000)
      ControlClick ($HWnD, "","", "left", "1", 560*$x_ratio, 490*$y_ratio)
      Sleep(1000)
      Select
      Case $z = "Barbarian"
             For $i = 1 To 65 Step 1
                    ControlClick ($HWnD, "","", "left", "1", 220*$x_ratio, 270*$y_ratio)
                    Sleep(50)
             Next
      Case $z = "Archer"
             For $i = 1 To 65 Step 1
                    ControlClick ($HWnD, "","", "left", "1", 310*$x_ratio, 270*$y_ratio)
                    Sleep(50)
             Next
      Case $z = "Goblin"
             For $i = 1 To 65 Step 1
                    ControlClick ($HWnD, "","", "left", "1", 490*$x_ratio, 270*$y_ratio)
                    Sleep(50)
             Next
      Case $z = "Giant"
             For $i = 1 To 15 Step 1
                    ControlClick ($HWnD, "","", "left", "1", 400*$x_ratio, 270*$y_ratio)
                    Sleep(50)
             Next
      EndSelect
      Sleep(1000)
      ControlClick ($HWnD, "","", "left", "1", 656*$x_ratio, 113*$y_ratio)
      Sleep(1000)
    EndFunc

    Func Train()
      If $B1Pos[0] <> 0 Then
             TrainBarrack($B1Pos[0],$B1Pos[1],$B1Troop)
      EndIf
      If $B2Pos[0] <> 0 Then
             TrainBarrack($B2Pos[0],$B2Pos[1],$B2Troop)
      EndIf
      If $B3Pos[0] <> 0 Then
             TrainBarrack($B3Pos[0],$B3Pos[1],$B3Troop)
      EndIf
      If $B4Pos[0] <> 0 Then
             TrainBarrack($B4Pos[0],$B4Pos[1],$B4Troop)
      EndIf
    EndFunc

    #EndRegion ##### TRAIN #####

    #Region ##### ATTACK #####
    Func PrepareAttack()
      ;TrayTip ("Attack mode started!","Minimum Gold: " & $MinGold & ". Minimum Elixir: " & $MinElixir & ". Search Mode: " & $SearchMode, 0, $TIP_ICONASTERISK)
      ControlClick ($HWnD, "","", "left", "1", 50*$x_ratio, 500*$y_ratio) ;Click Attack
      Sleep(2000)
      ControlClick ($HWnD, "","", "left", "1", 190*$x_ratio, 420*$y_ratio) ;Click Find a Match
      Sleep(2000)
      ControlClick ($HWnD, "","", "left", "1", 470*$x_ratio, 330*$y_ratio) ;Click Break Shield
    EndFunc

    Func CheckScreen()
      Local $Check = ""
      $i = 0
      While $Check = "" And $ErrorCheck = 0
             $Check = _TesseractWinCapture($HWnD,"",0,"",1,2,$Left*$x_ratio,$Top*$y_ratio,$Right*$x_ratio,$Bottom*$y_ratio,0)
             $Check = StringStripWS($Check, 8)
             Sleep(200)
             $i += 1
             If $i > 150 Then
                    $ErrorCheck = 1
                    Exit
             EndIf
      WEnd
    EndFunc

    Func VillageSearch()
      CheckScreen()
      ReadValue()
      CompareValue()
      While $SearchCheck = 0 And $ErrorCheck = 0
             ControlClick ($HWnD, "","", "left", "1", 715*$x_ratio, 405*$y_ratio) ;Click Next
             CheckScreen()
             ReadValue()
             CompareValue()
      WEnd
      If $ErrorCheck = 1 Then
             Restart()
             Attack()
      Else
             TrayTip ("Enemy Found!","Requirement met:  Gold: " & $Gold & ". Elixir: " & $Elixir, 0, $TIP_ICONASTERISK)
             Sleep(20000)
      EndIf
    EndFunc

    Func CheckTroop($a)
      If $B1Troop = $a Or $B2Troop = $a Or $B3Troop = $a Or $B4Troop = $a Then
             Return True
      Else
             Return False
      EndIf
    EndFunc

    Func AssignTroop()
      If CheckTroop("Barbarian") Then
             $Barbarian[0] = $Troop[0][0]
             #Barbarian[1] = $Troop[0][1]
             If CheckTroop("Archer") Then
                    $Archer[0] = $Troop[1][0]
                    $Archer[1] = $Troop[1][1]
                    If CheckTroop("Goblin") Then
                           $Goblin[0] = $Troop[2][0]
                           $Goblin[1] = $Troop[2][1]
                           If CheckTroop("Giant") Then
                              $Giant[0] = $Troop[3][0]
                              $Giant[1] = $Troop[3][1]
                           EndIf
                    ElseIf CheckTroop("Giant") Then
                           $Giant[0] = $Troop[2][0]
                           $Giant[1] = $Troop[2][1]
                    EndIf
             ElseIf CheckTroop("Goblin") Then
                    $Goblin[0] = $Troop[1][0]
                    $Goblin[1] = $Troop[1][1]
                    If CheckTroop("Giant") Then
                           $Giant[0] = $Troop[2][0]
                           $Giant[1] = $Troop[2][1]
                    EndIf
             ElseIf CheckTroop("Giant") Then
                    $Giant[0] = $Troop[1][0]
                    $Giant[1] = $Troop[1][1]
             EndIf
      ElseIf CheckTroop("Archer") Then
             $Archer[0] = $Troop[0][0]
             $Archer[1] = $Troop[0][1]
             If CheckTroop("Goblin") Then
                    $Goblin[0] = $Troop[1][0]
                    $Goblin[1] = $Troop[1][1]
                    If CheckTroop("Giant") Then
                           $Giant[0] = $Troop[2][0]
                           $Giant[1] = $Troop[2][1]
                    EndIf
             ElseIf CheckTroop("Giant") Then
                    $Giant[0] = $Troop[1][0]
                    $Giant[1] = $Troop[1][1]
             EndIf
      ElseIf CheckTroop("Goblin") Then
             $Goblin[0] = $Troop[0][0]
             $Goblin[1] = $Troop[0][1]
             If CheckTroop("Giant") Then
                    $Giant[0] = $Troop[1][0]
                    $Giant[1] = $Troop[1][1]
             EndIf
      ElseIf CheckTroop("Giant") Then
             $Giant[0] = $Troop[0][0]
             $Giant[1] = $Troop[0][1]
      EndIf
    EndFunc

    Func DropAll()
      ControlClick ($HWnD, "","", "left", "1", $Troop[2][0], $Troop[2][1])
      Sleep(500)
      For $i = 0 to 4 Step 1
             ControlClick ($HWnD, "","", "left", "1", $UpLeft[$i][0], $UpLeft[$i][1])
             Sleep(100)
      Next
      Sleep(500)
      ControlClick ($HWnD, "","", "left", "1", $Troop[0][0], $Troop[0][1])
      Sleep(300)
      For $x = 0 to 15 Step 1
             For $i = 0 to 4 Step 1
                    ControlClick ($HWnD, "","", "left", "1", $UpLeft[$i][0], $UpLeft[$i][1])
                    Sleep(100)
             Next
             Sleep(300)
      Next
      Sleep(500)
      ControlClick ($HWnD, "","", "left", "1", $Troop[1][0], $Troop[1][1])
      Sleep(300)
      For $x = 0 to 8 Step 1
             For $i = 0 to 4 Step 1
                    ControlClick ($HWnD, "","", "left", "1", $UpLeft[$i][0], $UpLeft[$i][1])
                    Sleep(100)
             Next
             Sleep(300)
      Next
      Sleep(500)
      ControlClick ($HWnD, "","", "left", "1", $Troop[2][0], $Troop[2][1])
      Sleep(500)
      For $i = 0 to 4 Step 1
             ControlClick ($HWnD, "","", "left", "1", $UpRight[$i][0], $UpRight[$i][1])
             Sleep(100)
      Next
      Sleep(500)
      ControlClick ($HWnD, "","", "left", "1", $Troop[0][0], $Troop[0][1])
      Sleep(300)
      For $x = 0 to 15 Step 1
             For $i = 0 to 4 Step 1
                    ControlClick ($HWnD, "","", "left", "1", $UpRight[$i][0], $UpRight[$i][1])
                    Sleep(100)
             Next
             Sleep(300)
      Next
      Sleep(500)
      ControlClick ($HWnD, "","", "left", "1", $Troop[1][0], $Troop[1][1])
      Sleep(300)
      For $x = 0 to 8 Step 1
             For $i = 0 to 4 Step 1
                    ControlClick ($HWnD, "","", "left", "1", $UpRight[$i][0], $UpRight[$i][1])
                    Sleep(100)
             Next
             Sleep(300)
      Next
      Sleep(500)
    EndFunc

    Func DropTroop()
      DropCombo($UpLeft)
      DropCombo($UpRight)
    EndFunc

    Func DropCombo($Wing)
      If CheckTroop("Giant") Then
             ControlClick ($HWnD, "","", "left", "1", $Giant[0], $Giant[1])
             Sleep(300)
             For $i = 1 to 3 Step 1
                    ControlClick ($HWnD, "","", "left", "1", $Wing[$i][0], $Wing[i][1])
                    Sleep(100)
             Next
             Sleep(300)
      EndIf
      If CheckTroop("Barbarian") Then
             ControlClick ($HWnD, "","", "left", "1", $Barbarian[0], $Barbarian[1])
             Sleep(300)
             For $x = 0 to 2 Step 1
                    For $i = 0 to 4 Step 1
                           ControlClick ($HWnD, "","", "left", "1", , $Wing[$i][0], $Wing[i][1])
                           Sleep(100)
                    Next
             Next
             Sleep(300)
      EndIf
      If CheckTroop("Archer") Then
             ControlClick ($HWnD, "","", "left", "1", $Archer[0], $Archer[1])
             Sleep(300)
             For $x = 0 to 2 Step 1
                    For $i = 0 to 4 Step 1
                           ControlClick ($HWnD, "","", "left", "1", , $Wing[$i][0], $Wing[i][1])
                           Sleep(100)
                    Next
             Next
             Sleep(300)
      EndIf
      If CheckTroop("Goblin") Then
             ControlClick ($HWnD, "","", "left", "1", $Goblin[0], $Goblin[1])
             Sleep(300)
             For $x = 0 to 2 Step 1
                    For $i = 0 to 4 Step 1
                           ControlClick ($HWnD, "","", "left", "1", , $Wing[$i][0], $Wing[i][1])
                           Sleep(100)
                    Next
             Next
             Sleep(30)
      EndIf
    EndFunc

    Func ReadValue()
      $Read = _TesseractWinCapture($HWnD,"",0,"",1,2,$Left*$x_ratio,$Top*$y_ratio,$Right*$x_ratio,$Bottom*$y_ratio,0)      ;Capture screen region with gold and elixir
      ;MsgBox(0,"Read",$Read)
      $Read = StringRegExpReplace(StringRegExpReplace($Read, "(\v)+", @CRLF), "\A\v|\v\Z", "")
      ;MsgBox(0,"Read",$Read)
      $Read = StringSplit($Read, @CRLF, 1) ;Strip whitespaces & blank lines and split into array
      ;MsgBox(0,"Read",$Read[2] & @CR & $Read[3])
      $Gold = Number(StringRegExpReplace($Read[2], "[^[:digit:]]", ""))    ;Convert gold to number
      $Elixir = Number(StringRegExpReplace($Read[3], "[^[:digit:]]", ""))  ;Convert exlir to number
      ;$Dark = Number(StringStripWS($Read[4], $STR_STRIPALL))
      ;MsgBox(0,"Result", "Gold: " & $Gold & @CR & "Elixir: " & $Elixir & @CR & "Dark: " & $Dark)
      ;TrayTip ("Current Search","Gold: " & $Gold & ". Elixir: " & $Elixir, 0, $TIP_ICONASTERISK)
      ;SplashTextOn("Current Search","Gold: " & $Gold & @CR & "Elixir: " & $Elixir,200,70)

    EndFunc

    Func CompareValue()
      If $Gold >= $MinGold Then
             If $Elixir >= $MinElixir Then
                    ;MsgBox(0, "Gold & Elixir Check", "Gold: " & $Gold & @CR & "Elixir: " & $Elixir & @CR & "Requirement met.")
                    Select
                           Case $SearchMode = 1
                              $SearchCheck = 1
                           Case $SearchMode = 2
                              $SearchCheck = 1
                           Case Else
                              $SearchCheck = 0
                    EndSelect
             Else
                    ;MsgBox(0, "Gold & Elixir Check", "Gold: " & $Gold & @CR & "Elixir: " & $Elixir & @CR &  "Not enough " & $MinElixir & " Elixir.")
                    Select
                           Case $SearchMode = 1
                              $SearchCheck = 1
                           Case $SearchMode = 2
                              $SearchCheck = 0
                           Case Else
                              $SearchCheck = 0
                    EndSelect
             EndIf
      Else
             If $Elixir >= $MinElixir Then
                    ;MsgBox(0, "Gold & Elixir Check", "Gold: " & $Gold & @CR & "Elixir: " & $Elixir & @CR & "Not enough " & $MinGold & " Gold.")
                    Select
                           Case $SearchMode = 1
                              $SearchCheck = 1
                           Case $SearchMode = 2
                              $SearchCheck = 0
                           Case Else
                              $SearchCheck = 0
                    EndSelect
             Else
                    ;MsgBox(0, "Gold & Elixir Check", "Gold: " & $Gold & @CR & "Elixir: " & $Elixir & @CR & "Not enough " & $MinGold & " Gold and " & $MinElixir & " Elixir." )
                    Select
                           Case $SearchMode = 1
                              $SearchCheck = 0
                           Case $SearchMode = 2
                              $SearchCheck = 0
                           Case Else
                              $SearchCheck = 0
                    EndSelect
             EndIf
      EndIf
    EndFunc
    #EndRegion ##### ATTACK #####

    Func Initiate()
      ControlClick ($HWnD, "","", "left", "1", 290, 150) ;Click BlueStacks
      Sleep(60000)
      ZoomOut()
      Sleep(10000)
    EndFunc

    Func ZoomOut()
      For $i = 1 To 20 Step 1
             ControlSend($HWnD, "", "", "{DOWN}", 0)
             Sleep(500)
      Next
    EndFunc

    Func Restart()
      ControlClick ($HWnD, "","", "left", "1", 125, 575)
      Sleep(2000)
      ControlClick ($HWnD, "","", "left", "1", 125, 577)
      Sleep(2000)
      ControlClick ($HWnD, "","", "left", "1", 205, 575)
      Sleep(2000)
      MouseClickDrag("left", 700, 300, 700, 120)
      Sleep(2000)
      ControlClick ($HWnD, "","", "left", "1", 290, 160)
      Sleep(50000)
    EndFunc

    Func Pause()
      $Paused = NOT $Paused
      While $Paused
             Sleep(100)
      TrayTip("Script Paused","Press Space to Unpause", 0, $TIP_ICONASTERISK)
      WEnd
    EndFunc

    Func Terminate()
      Exit
    EndFunc

    I made a small mistake, if you want to use the tesseract included change to #include "Tesseract.au3" in the code
    If you want it to run continuously (not recommended), uncomment ;While1 and WEnd in Func Start(), also uncomment ;Sleep(900000) so it will wait for troops training
    Find
    qaqaq Offline
    Junior Member
    **
    Verified Member
    Posts: 29
    Threads: 0
    Joined: Dec 2014
    Reputation: 0
    #46
    12-13-2014, 01:26 AM
    Can you guide how to use it Sad. I have already istalled AutoIT and tesseract-ocr-setup-3.02.02. Thank you.

    I run the Search Function.exe but nothing happend. The Bluestack windows always on top, can not exit Search Fuction windows. My bluestack res is 800x600
    Find
    Antidote Offline
    Respected Member
    *****
    Respected Members
    Posts: 157
    Threads: 7
    Joined: Dec 2014
    Reputation: 29
    #47
    12-13-2014, 01:43 AM
    Since the program will put Bluestacks into the foreground for Tesseract to read, it's best you drag the program to one side where it won't be obstructed by BlueStacks. You have to zoom out all the way and click attack before you press Start. After you pressed Start the function will run until it find a match and you cannot stop it with button or close windows. Press Shift+ESC to force close the program. Can you try again and let me know how it goes?
    Find
    qaqaq Offline
    Junior Member
    **
    Verified Member
    Posts: 29
    Threads: 0
    Joined: Dec 2014
    Reputation: 0
    #48
    12-13-2014, 02:11 AM (This post was last modified: 12-13-2014, 02:13 AM by qaqaq.)
    (12-13-2014, 01:43 AM)Antidote Wrote:  Since the program will put Bluestacks into the foreground for Tesseract to read, it's best you drag the program to one side where it won't be obstructed by BlueStacks. You have to zoom out all the way and click attack before you press Start. After you pressed Start the function will run until it find a match and you cannot stop it with button or close windows. Press Shift+ESC to force close the program. Can you try again and let me know how it goes?
    Thanks for your reply. I pressed "Start" button after click Attack. It's works (next) but only 1 time (next 1 time) and stop. I can't use Shift Esc to stop tool too. Need to End task on Task Manager Smile
    p/s my system is windows 8.1 64bit
    Find
    odySSeys Offline
    Junior Member
    **
    Verified Member
    Posts: 24
    Threads: 0
    Joined: Dec 2014
    Reputation: 0
    #49
    12-13-2014, 03:40 AM (This post was last modified: 12-13-2014, 06:00 AM by odySSeys.)
    Find
    qaqaq Offline
    Junior Member
    **
    Verified Member
    Posts: 29
    Threads: 0
    Joined: Dec 2014
    Reputation: 0
    #50
    12-13-2014, 04:47 AM (This post was last modified: 12-13-2014, 02:40 PM by qaqaq.)
    Thanks odySSeys .
    I did it. But still the same. Herre is vid Smile
    Find
     
    Thread Closed 


    Forum Jump:


    Users browsing this thread: 12 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.