The Bytecode Club
Log inJoin the club
Video Game Reverse Engineering

Developing Bot

Started by Antidote · Dec 5, 2014

1,033 replies21,297,466 viewsLocked
Dec 23, 2014#341

@Antidote, for me y axis have a little margin after zoomout. btw, i solve it pushing camera for up.

Dec 23, 2014#342

We should make a mini guide how to set up for beginners so we can get more feedback/testing

Dec 23, 2014#343

@odySSeys: thanks for pointing that out. Actually most coord for controlclick are for 800x600 converted to 860x720 through $x_ratio and $y_ratio since I used that at the beginning, so 560*$x_ratio is actually 560800/860 = 522, 490720/600 = 588. I didn't experience any issue with it but there might be variations in different computers
@korpsx: sure I'll add it to first post with instruction so newcomers can easily test it, also summary of potential bugs so they know what to expect

Dec 23, 2014#344

I just tried the bot now and my first search was just dropped 1 barb and then nothing... I returned home and bot start himself, checked the troops and then he start searching for enemy with succes just that i only had 3 giants and rest barbs and archs.
Keep it up!

Dec 23, 2014#345

@Antidote - Awesome ! I think more feedback will result in better bot for all of us.

Merry Xmas everyone

Dec 23, 2014#346

@Antidote That seemd to do the trick, thanks 🙂.

Dec 23, 2014#347

bot is not attacking now..and not searching for enemy

Dec 23, 2014#348

We should make a mini guide how to set up for beginners so we can get more feedback/testing

yeah do it lol

Dec 23, 2014#349

I managed to check for maxed zoom out using PixelGetColor (thanks odySSeys & AtoZ). Here's the updated code for func ZoomOut

Func ZoomOut()
   GUICtrlSetData($Results, "Zoom Out" & @CRLF, -1)
   While 1
  If Hex(PixelGetColor(127, 248, $HWnD),6) = "E8C656" And Hex(PixelGetColor(61, 298, $HWnD),6) = "AC8C42" And Hex(PixelGetColor(577, 130, $HWnD),6) = "D5A04F" And Hex(PixelGetColor(739, 251, $HWnD),6) = "ECCE61" Then
 ExitLoop
  Else
 ControlSend($HWnD, "", "", "{DOWN}", 0)
  EndIf
  If $RunState = False Then
 ExitLoop
  EndIf
  Sleep(500)
   WEnd
   GUICtrlSetData($Results, "Zoom Out Complete" & @CRLF, -1)
EndFunc

I tested on 2 different accounts and it both detect max zoom out

Dec 23, 2014#350

how i can get to the BS developer options?

This discussion is closed.