
18.12.2020 - New private powerful Undetected

STATUS: UNDETECTED
Supports any game client language, maps and heroes. Contact with me in discord or skype.

Better to


Free outdated version with sources:
Usage instructions: (Do it step by step and very carefully)
1. Download Twinkie
2. Launch your game. Open "Options", then change the "Display Mode" to "Windowed".
3. Then close settings. Select "Hotkeys", then last button "Quick Cast Setting" and set "Global quick cast setting" to "On".
After you may check your "Basic" tab where your buttons must be like on this image:
4. Close your game. Then open your "Documents and Settings" folder and find Heroes of the Storm folder. In this folder you must replace your Variables.txt to what you downloaded before (or download it now from Attachments under OP-post).
5. Launch game again. Your game window must be like here in the top left corner with a small indent on the left:
*IMPORTANT* Be sure, what your keyboard layout is set on ENGLISH US when you launch and use the bot.
6. Done! Press the "Play" button and then run the bot and get a lot of chests!
Autoit Source code:
1. Download Twinkie
2. Launch your game. Open "Options", then change the "Display Mode" to "Windowed".

3. Then close settings. Select "Hotkeys", then last button "Quick Cast Setting" and set "Global quick cast setting" to "On".



After you may check your "Basic" tab where your buttons must be like on this image:

4. Close your game. Then open your "Documents and Settings" folder and find Heroes of the Storm folder. In this folder you must replace your Variables.txt to what you downloaded before (or download it now from Attachments under OP-post).
5. Launch game again. Your game window must be like here in the top left corner with a small indent on the left:

*IMPORTANT* Be sure, what your keyboard layout is set on ENGLISH US when you launch and use the bot.
6. Done! Press the "Play" button and then run the bot and get a lot of chests!

Autoit Source code:
Code:
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ScreenCapture.au3> #include <MsgBoxConstants.au3> #include <ColorConstants.au3> #Include <APIConstants.au3> #include <GUIListBox.au3> #Include <WinAPIEx.au3> #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("Twinkie HotS", 249, 553, -1, -1) GUISetBkColor(0xA6CAF0) $Label1 = GUICtrlCreateLabel("Status:", 8, 0, 87, 24, $SS_CENTER) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFF00) GUICtrlSetBkColor(-1, 0x0078D7) $Idling = GUICtrlCreateLabel("Not working", 96, 0, 146, 24, $SS_CENTER) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetBkColor(-1, 0x0078D7) $Label3 = GUICtrlCreateLabel("Current Map:", 8, 80, 91, 20) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x800080) $Label4 = GUICtrlCreateLabel("Not yet defined!", 104, 80, 137, 20, $SS_CENTER) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetBkColor(-1, 0x0078D7) $Label5 = GUICtrlCreateLabel("Current Side:", 8, 104, 93, 20) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x800080) $Label6 = GUICtrlCreateLabel("Not yet defined!", 104, 104, 137, 20, $SS_CENTER) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetBkColor(-1, 0x0078D7) $Checkbox1 = GUICtrlCreateCheckbox("Pause the bot after this match", 24, 272, 193, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xD7E4F2) $Checkbox2 = GUICtrlCreateCheckbox("Screenshot game and put it here:", 24, 288, 209, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("Input1", 16, 328, 217, 21) GUICtrlSetColor(-1, 0x000000) GUICtrlSetBkColor(-1, 0xF0F0F0) $Button1 = GUICtrlCreateButton("Start Twinkie Now", 16, 40, 219, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0x00FF00) $Label9 = GUICtrlCreateLabel("TotalPlayed:", 8, 128, 93, 20) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x800080) $Label8 = GUICtrlCreateLabel("Not yet defined!", 104, 128, 137, 20, $SS_CENTER) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetBkColor(-1, 0x0078D7) $border = GUICtrlCreateGroup("Bypass Blizzard's Checks", 8, 216, 233, 41) $Checkbox3 = GUICtrlCreateCheckbox("Enable human-like gaming with pauses", 24, 232, 209, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetColor(-1, 0x00FF00) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group1 = GUICtrlCreateGroup("Example of path - 'D:\Folder\' (with \ in end)", 8, 312, 233, 41) GUICtrlCreateGroup("", -99, -99, 1, 1) $Control = GUICtrlCreateGroup("", 8, 24, 233, 49) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Other Settings", 8, 256, 233, 57) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group3 = GUICtrlCreateGroup("Bot motion type", 8, 176, 233, 41) $Combo1 = GUICtrlCreateCombo("Default (with A key)", 16, 192, 217, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Use right mouse clicks") GUICtrlSetBkColor(-1, 0xF0F0F0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup("Enter the name of hero you want to leveling up", 8, 352, 233, 193) $List1 = GUICtrlCreateList("", 16, 440, 217, 58) GUICtrlSetBkColor(-1, 0xF0F0F0) $Button2 = GUICtrlCreateButton("Add hero to leveling queue", 16, 392, 219, 25) $Button3 = GUICtrlCreateButton("Delete hero from leveling queue", 16, 416, 219, 25) $Input2 = GUICtrlCreateInput("", 16, 368, 217, 21) GUICtrlSetBkColor(-1, 0xF0F0F0) $Group5 = GUICtrlCreateGroup("How m. games bot must play per one hero:", 16, 496, 217, 41) $Input3 = GUICtrlCreateInput("10", 24, 512, 201, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label2 = GUICtrlCreateLabel("HeroGames:", 8, 152, 91, 20) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x800080) $Label7 = GUICtrlCreateLabel("Not yet defined!", 104, 152, 137, 20, $SS_CENTER) GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetBkColor(-1, 0x0078D7) #EndRegion ### END Koda GUI section ### $infinityCase = 0 $myCounter = 0 Global $counter = 0 $globalCounter = 0 Global $heroLevelCounter = 0 Global $gameCounter = 0 Local Const $sFilePath = [MENTION=5699755]Scriptd[/MENTION]ir & "\" & [MENTION=1121303]mday[/MENTION] & "." & [MENTION=313989]mon[/MENTION] & "." & [MENTION=1988357]year[/MENTION] & " " & [MENTION=902431]Hour[/MENTION] & ";" & [MENTION=287308]Min[/MENTION] & ";" & [MENTION=301518]sec[/MENTION] & ".tmp" $sINI = [MENTION=5699755]Scriptd[/MENTION]ir & '\config.ini' $screenPath = IniRead($sINI, "Screen Path", "FullPath", "") GUICtrlSetData($Input1, $screenPath) GUISetState(@SW_SHOW) TestGUI() Func WriteLog($text) If Not FileWrite($sFilePath, "") Then MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst writing the temporary file.") Return False EndIf Local $hFileOpen = FileOpen($sFilePath, $FO_APPEND) If $hFileOpen = -1 Then MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst writing the temporary file.") Return False EndIf $goodtext = [MENTION=902431]Hour[/MENTION] & ":" & [MENTION=287308]Min[/MENTION] & ":" & [MENTION=301518]sec[/MENTION] & " " & $text FileWrite($hFileOpen, $goodtext & [MENTION=3576271]CRLF[/MENTION]) FileClose($hFileOpen) EndFunc Func LowLevelHeroes() Sleep(1000) WriteLog("Select hero") If $counter <> _GUICtrlListBox_GetCount($List1) Then GuiCtrlSetColor($Idling, 0xFFFACD) GuiCtrlSetData($Idling, "ChangeHero") $HeroName = _GUICtrlListBox_GetText($List1, $counter) WinActivate("[TITLE:Heroes of the Storm]","") Global $hWnd = ProcessWait("HeroesOfTheStorm_x64.exe", 5) MouseMove(512,384) Sleep(500) WinActivate("[TITLE:Heroes of the Storm]","") MouseClick("left",512,384,1) Sleep(2000) Local $aCoord = PixelSearch(185, 197, 214, 230, 0xF3FEFE, 3) WriteLog("Selecting hero (in process)") If Not [MENTION=2544426]Error T[/MENTION]hen MouseMove(810,144) Sleep(500) MouseClick("left",810,144,1) Sleep(500) Send($HeroName) Sleep(500) MouseMove(269,218) Sleep(500) MouseClick("left",269,218,1) Sleep(500) MouseMove(512,384) Sleep(500) MouseClick("left",512,384,1) EndIf $gameCounter += 1 GuiCtrlSetColor($Label7, 0x56FF00) GuiCtrlSetData($Label7,$gameCounter) If $gameCounter = GuiCtrlRead($Input3) Then WriteLog("Done play for hero, changing") $gameCounter = 0 $counter += 1 EndIf EndIf WriteLog("Exit from change hero function") EndFunc Func TestGUI() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 WinActivate("[TITLE:Heroes of the Storm]","") Global $hWnd = WinWait("[TITLE:Heroes of the Storm]", "", 5) WinMove($hWnd, "", 0,0, Default, Default) NewStartBot() If Not $hWnd Then WriteLog("Can't find game window") Exit EndIf Case $Button2 WriteLog("Pressed Button 2. Added hero to queue") GuiCtrlSetData($List1, GuiCtrlRead($Input2)) $count = _GUICtrlListBox_GetCount($List1) GUICtrlSetData($Input2,"") ;MsgBox(0,'cntr',$count) Case $Button3 WriteLog("Pressed Button 3. Deleted hero from queue") ;MsgBox(0,'listbox',_GUICtrlListBox_GetText($List1, $count - 1)) $iSel = _GUICtrlListBox_GetCurSel($List1) _GUICtrlListBox_DeleteString($List1, $iSel) EndSwitch WEnd EndFunc Func bypassBlizz() WriteLog("Entering in bypass function") If GUICtrlRead($Checkbox3) = 1 Then $rando = Random(3000,15000) GuiCtrlSetColor($Idling, 0xFDD22C) GuiCtrlSetData($Idling, "Imitating") Sleep($rando) EndIf WriteLog("Exiting from bypass function") EndFunc Func PauseBot() WriteLog("Entering in pause function") While 1 Sleep(1000) GuiCtrlSetColor($Idling, 0xFDD22C) GuiCtrlSetData($Idling, "On Pause") If GUICtrlRead($Checkbox1) = 4 Then WriteLog("Pause unchecked, resuming game") NewStartBot() EndIf WEnd EndFunc Func CheckDifficult() WriteLog("Entering intro Check Difficult function") $getEasyDifficult = PixelGetColor(63,542) $getRecruitDifficult = PixelGetColor(125,542) If 0xEAFDFE <> $getEasyDifficult Then If 0xEAFDFE = $getRecruitDifficult Then WriteLog("Changing difficult") MouseClickDrag("left", 125, 542, 63, 542) EndIf EndIf Local $aCoord = PixelSearch(60, 536, 66, 548, 0x043E77, 2) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Changing difficult 2") MouseClick('left',63, 542) EndIf EndFunc Func ScreenShot() WriteLog("Entering into screenshot function") If GUICtrlRead($Checkbox2) = 1 Then $file = String($myCounter) & "-" & [MENTION=1121303]mday[/MENTION] & "." & [MENTION=313989]mon[/MENTION] & "." & [MENTION=1988357]year[/MENTION] & " " & [MENTION=902431]Hour[/MENTION] & "-" & [MENTION=287308]Min[/MENTION] & ".jpg" WinActivate("[TITLE:Heroes of the Storm]","") WriteLog("Take screenshot") _ScreenCapture_CaptureWnd(GUICtrlRead($Input1) & $file, $hWnd) EndIf WriteLog("Exiting from screenshot function") EndFunc Func CheckGameType() WriteLog("Entering into check game type function") Local $aCoord = PixelSearch(58, 596, 65, 617, 0x9382FE, 2) If [MENTION=2544426]Error T[/MENTION]hen WriteLog("Changing game type") MouseMove(74,614) MouseClick("left",74,614,2) Sleep(500) EndIf WriteLog("Exiting from change game type function") EndFunc Func CheckStartButton() WriteLog("Checking start button") Local $checkButton = 0 Do WriteLog("Entering into checking start button loop") Local $aCoord = PixelSearch(20, 37, 56, 70, 0x9183FB, 3) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Done not error search into check start button.") $infinityCase = 0 WinActivate("[TITLE:Heroes of the Storm]","") Sleep(1000) WriteLog("-- Call change hero function") LowLevelHeroes() Sleep(1000) WriteLog("-- Call check game type function") CheckGameType() Sleep(1000) WriteLog("-- Call check difficult function") CheckDifficult() Sleep(1000) WriteLog("-- Call bypass function") bypassBlizz() Sleep(1000) WriteLog("-- Humanizing") bypassBlizz() Sleep(500) WinActivate("[TITLE:Heroes of the Storm]","") WriteLog("---- Pushing Start button") MouseClick('left',518,758,1) GuiCtrlSetColor($Idling, 0x56FF00) GuiCtrlSetData($Idling, "Working") $checkButton = 1 EndIf Until $checkButton <> 0 WriteLog("-- Exiting from check start button function") Return $checkButton EndFunc Func GetSide() WriteLog("Entering into get side function") Local $currentSide = 0 Do WriteLog("Entering into get side loop") Sleep (1000) Local $aCoord = PixelSearch(7, 161, 11, 217, 0x4FBFFB, 10) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find side. Its left side.") $currentSide = 2 GuiCtrlSetColor($Label6, 0x00F200) GuiCtrlSetData($Label6, "Left Side") EndIf Local $aCoord2 = PixelSearch(7, 161, 11, 217, 0xFB4E87, 10) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find side. Its right side.") $currentSide = 1 GuiCtrlSetColor($Label6, 0x00F200) GuiCtrlSetData($Label6, "Right Side") EndIf Until $currentSide <> 0 Return $currentSide EndFunc Func GetMap() WriteLog("Entering into get map function") Local $currentMap = 0 Do Sleep(1000) Local $aCoord = PixelSearch(380, 380, 390, 390, 0x4A5184, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find hanamura map") $currentMap = 1 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "Hanamura") EndIf Local $aCoord2 = PixelSearch(380, 380, 390, 390, 0x088684, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find towers of doom map") $currentMap = 2 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "TowersOfDoom") EndIf Local $aCoord3 = PixelSearch(380, 380, 390, 390, 0x3C2C32, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find braxis holdout map") $currentMap = 3 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "BraxisHoldout") EndIf Local $aCoord4 = PixelSearch(380, 380, 390, 390, 0xC57112, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find blackhearts bay map") $currentMap = 4 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "BlackheartsBay") EndIf Local $aCoord5 = PixelSearch(380, 380, 390, 390, 0xF3B86E, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find battlefield of eternity map") $currentMap = 5 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "BattlefieldOfEternity") EndIf Local $aCoord6 = PixelSearch(380, 380, 390, 390, 0x295588, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find spider queen map") $currentMap = 6 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "SpiderQueen") EndIf Local $aCoord7 = PixelSearch(380, 380, 390, 390, 0x844F49, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find dragon shire map") $currentMap = 7 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "DragonShire") EndIf Local $aCoord8 = PixelSearch(380, 380, 390, 390, 0xFBB4B1, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find sky temple map") $currentMap = 8 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "SkyTemple") EndIf Local $aCoord9 = PixelSearch(380, 380, 390, 390, 0x46222E, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find infernal shrines map") $currentMap = 9 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "InfernalShrines") EndIf Local $aCoord10 = PixelSearch(380, 380, 390, 390, 0xDBC5BE, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find haunted mines map") $currentMap = 10 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "HauntedMines") EndIf Local $aCoord11 = PixelSearch(380, 380, 390, 390, 0x7347C0, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find cursed hollow map") $currentMap = 11 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "CursedHollow") EndIf Local $aCoord12 = PixelSearch(380, 380, 390, 390, 0x1B263A, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find garden of terror map") $currentMap = 12 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "GardenOfTerror") EndIf Local $aCoord13 = PixelSearch(380, 380, 390, 390, 0xE3693D, 1) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Find warhead junction map") $currentMap = 13 GuiCtrlSetColor($Label4, 0x00F200) GuiCtrlSetData($Label4, "WarheadJunction") EndIf Until $currentMap <> 0 Return $currentMap EndFunc Func GetChampion() ; code here Local $currentChampion = 0 Local $DefaultLeftPositionX = 101 Local $DefaultLeftPositionY = 184 Local $DefaultRightPositionX = 931 Local $DefaultRightPositionY = 430 Local $AbaturColorLeft = 3228701 Local $AbaturColorRight = 1514271 Local $AzmodanColorLeft = 988973 Local $AzmodanColorRight = 3475984 Local $VarianColorLeft = 14201503 Local $VarianColorRight = 0 Local $GuldanColorLeft = 0 Local $GuldanColorRight = 0 Local $DehakaColorLeft = 0 Local $DehakaColorRight = 0 Local $ZaryaColorLeft = 0 Local $ZaryaColorRight = 0 Local $ZulColorLeft = 0 Local $ZulColorRight = 0 Local $LiLiColorLeft = 0 Local $LiLiColorRight = 0 Local $LusioColorLeft = 0 Local $LusioColorRight = 0 Local $NaziboColorLeft = 0 Local $NaziboColorRight = 0 Local $NovaColorLeft = 0 Local $NovaColorRight = 0 Local $RagnarosColorLeft = 0 Local $RagnarosColorRight = 0 Local $SilvanaColorLeft = 0 Local $SilvanaColorRight = 0 Local $SonyaColorLeft = 0 Local $SonyaColorRight = 0 Local $StezhokColorLeft = 0 Local $StezhokColorRight = 0 Local $UterColorLeft = 0 Local $UterColorRight = 0 Local $FalstadColorLeft = 0 Local $FalstadColorRight = 0 Local $ChenColorLeft = 0 Local $ChenColorRight = 0 Local $AurielColorLeft = 0 Local $AurielColorRight = 0 Local $JainaColorLeft = 0 Local $JainaColorRight = 0 Local $JhoannaColorLeft = 0 Local $JhoannaColorRight = 0 Local $DiabloColorLeft = 0 Local $DiabloColorRight = 0 Local $ETCColorLeft = 0 Local $ETCColorRight = 0 Local $ZagaraColorLeft = 0 Local $ZagaraColorRight = 0 Local $KarazimColorLeft = 0 Local $KarazimColorRight = 0 Local $LMoralesColorLeft = 0 Local $LMoralesColorRight = 0 Local $MalfurionColorLeft = 0 Local $MalfurionColorRight = 0 Local $MediveColorLeft = 0 Local $MediveColorRight = 0 Local $MuradinColorLeft = 0 Local $MuradinColorRight = 0 Local $RegarColorLeft = 0 Local $RegarColorRight = 0 Local $RaynorColorLeft = 0 Local $RaynorColorRight = 0 Local $TassadarColorLeft = 0 Local $TassadarColorRight = 0 Local $TirandaColorLeft = 0 Local $TirandaColorRight = 0 Local $TiraelColorLeft = 0 Local $TiraelColorRight = 0 Do Sleep (1000) Until $currentChampion <> 0 EndFunc Func CheckForEndgame() WriteLog("Entering into check for end game function") Local $aCoord = PixelSearch(20, 37, 56, 70, 0x9183FB, 3) If Not [MENTION=2544426]Error T[/MENTION]hen WriteLog("Found end game. Stating quitting") GuiCtrlSetColor($Idling, 0xEA899A) GuiCtrlSetData($Idling, "Waiting") $infinityCase = 1 $myCounter += 1 GuiCtrlSetColor($Label8, 0x7DCCBD) GuiCtrlSetData($Label8, $myCounter) Sleep(5000) WriteLog("Call screenshot function") ScreenShot() Sleep(1000) WriteLog("Pushing Leave button in check end game function") MouseClick('left',140,765,1) If GUICtrlRead($Checkbox1) = 1 Then WriteLog("Found Pause Me Please, so calling Pause function") PauseBot() EndIf Sleep(5000) $checkStatus = 1 WriteLog("Starting bot from check end game function") NewStartBot() EndIf EndFunc Func MapRoute($getMeMap) WriteLog("Entering into check map route function") Select Case $getMeMap = 1 ; ханамура $getMeSide = GetSide() If $getMeSide = 1 Then; если слева красные Do Local $aCoord = PixelSearch(380, 380, 390, 390, 0x4A5184, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") Local $aCoord = PixelSearch(784, 628, 797, 648, 0xDB0040, 2) If Not [MENTION=2544426]Error T[/MENTION]hen If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(800, 637) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(800, 637) MouseClick("right",800, 637,1) EndIf Else Local $aCoord = PixelSearch(788, 694, 800, 712, 0xDB0040, 2) If Not [MENTION=2544426]Error T[/MENTION]hen If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(800, 705) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(800, 705) MouseClick("right",800, 705,1) EndIf Else If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(800, 705) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(800, 705) MouseClick("right",800, 705,1) EndIf EndIf EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then; Do Local $aCoord = PixelSearch(380, 380, 390, 390, 0x4A5184, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") Local $aCoord = PixelSearch(939, 630, 954, 649, 0xDB0040, 2) If Not [MENTION=2544426]Error T[/MENTION]hen If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(940, 637) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(940, 637) MouseClick("right",940, 637,1) EndIf Else Local $aCoord = PixelSearch(942, 695, 955, 712, 0xDB0040, 2) If Not [MENTION=2544426]Error T[/MENTION]hen If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(940, 706) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(940, 706) MouseClick("right",940, 706,1) EndIf Else If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(940, 706) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(940, 706) MouseClick("right",940, 706,1) EndIf EndIf EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 2 ; #башни рока $getMeSide = GetSide() If $getMeSide = 1 Then ; если слева красные Do Local $aCoord2 = PixelSearch(380, 380, 390, 390, 0x088684, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(810, 662) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(810, 662) MouseClick("right",810, 662,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then ; если слева синие Do Local $aCoord2 = PixelSearch(380, 380, 390, 390, 0x088684, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(936, 661) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(936, 661) MouseClick("right",936, 661,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 3 ; бойня на браксисе $getMeSide = GetSide() If $getMeSide = 1 Then ; если слева красные Do Local $aCoord3 = PixelSearch(380, 380, 390, 390, 0x3C2C32, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(766, 645) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(766, 645) MouseClick("right",766, 645,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then ; если слева синие Do Local $aCoord3 = PixelSearch(380, 380, 390, 390, 0x3C2C32, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(970, 620) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(970, 620) MouseClick("right",970, 620,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 4 ; бухта черносерда $getMeSide = GetSide() If $getMeSide = 1 Then ; если слева красные Do Local $aCoord4 = PixelSearch(380, 380, 390, 390, 0xC57112, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(769, 688) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(769, 688) MouseClick("right",769, 688,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then ; если слева синие Do Local $aCoord4 = PixelSearch(380, 380, 390, 390, 0xC57112, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(976, 688) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(976, 688) MouseClick("right",976, 688,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 5 ; вечная битва $getMeSide = GetSide() If $getMeSide = 1 Then ; если слева красные Do Local $aCoord5 = PixelSearch(380, 380, 390, 390, 0xF3B86E, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(774, 711) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(774, 711) MouseClick("right",774, 711,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then ; если слева синие Do Local $aCoord5 = PixelSearch(380, 380, 390, 390, 0xF3B86E, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(972, 701) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(972, 701) MouseClick("right",972, 701,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 6 ; гробница королевы пауков $getMeSide = GetSide() If $getMeSide = 1 Then ; если слева красные Do Local $aCoord6 = PixelSearch(380, 380, 390, 390, 0x295588, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(780, 635) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(780, 635) MouseClick("right",780, 635,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then ; если слева синие Do Local $aCoord6 = PixelSearch(380, 380, 390, 390, 0x295588, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(958, 636) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(958, 636) MouseClick("right",958, 636,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 7 ; драконий край $getMeSide = GetSide() If $getMeSide = 1 Then ; если слева красные Do Local $aCoord7 = PixelSearch(380, 380, 390, 390, 0x844F49, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(771, 688) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(771, 688) MouseClick("right",771, 688,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then ; если слева синие Do Local $aCoord7 = PixelSearch(380, 380, 390, 390, 0x844F49, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(975, 688) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(975, 688) MouseClick("right",975, 688,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 8 ; небесный храм $getMeSide = GetSide() If $getMeSide = 1 Then ; если слева красные Do Local $aCoord8 = PixelSearch(380, 380, 390, 390, 0xFBB4B1, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(787, 600) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(787, 600) MouseClick("right",787, 600,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then; если слева синие Do Local $aCoord8 = PixelSearch(380, 380, 390, 390, 0xFBB4B1, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(983, 600) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(983, 600) MouseClick("right",983, 600,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 9 ; оскверненные святилища $getMeSide = GetSide() If $getMeSide = 1 Then; если слева красные Do Local $aCoord9 = PixelSearch(380, 380, 390, 390, 0x46222E, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(767, 663) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(767, 663) MouseClick("right",767, 663,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then; если слева синие Do Local $aCoord9 = PixelSearch(380, 380, 390, 390, 0x46222E, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(979, 663) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(979, 663) MouseClick("right",979, 663,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 10 ; призрачные копи $getMeSide = GetSide() If $getMeSide = 1 Then; если слева красные Do Local $aCoord10 = PixelSearch(380, 380, 390, 390, 0xDBC5BE, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(782, 604) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(782, 604) MouseClick("right",782, 604,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then; если слева синие Do Local $aCoord10 = PixelSearch(380, 380, 390, 390, 0xDBC5BE, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(950, 604) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(950, 604) MouseClick("right",950, 604,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 11 ; проклятая лощина $getMeSide = GetSide() If $getMeSide = 1 Then; если слева красные Do Local $aCoord11 = PixelSearch(380, 380, 390, 390, 0x7347C0, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(763, 687) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(763, 687) MouseClick("right",763, 687,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then; если слева синие Do Local $aCoord11 = PixelSearch(380, 380, 390, 390, 0x7347C0, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(968, 668) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(968, 668) MouseClick("right",968, 668,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 12 ; сад ужасов $getMeSide = GetSide() If $getMeSide = 1 Then; если слева красные Do Local $aCoord12 = PixelSearch(380, 380, 390, 390, 0x1B263A, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(765, 691) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(765, 691) MouseClick("right",765, 691,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then; если слева синие Do Local $aCoord12 = PixelSearch(380, 380, 390, 390, 0x1B263A, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(981, 669) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(981, 669) MouseClick("right",981, 669,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf Case $getMeMap = 13 ; ядерный полигон $getMeSide = GetSide() If $getMeSide = 1 Then; если слева красные Do Local $aCoord13 = PixelSearch(380, 380, 390, 390, 0xE3693D, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(792, 647) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(792, 647) MouseClick("right",792, 647,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 ElseIf $getMeSide = 2 Then; если слева синие Do Local $aCoord13 = PixelSearch(380, 380, 390, 390, 0xE3693D, 1) If [MENTION=2544426]Error T[/MENTION]hen Sleep(3000) WinActivate("[TITLE:Heroes of the Storm]","") If GUICtrlRead($Combo1) = "Default (with A key)" Then MouseMove(983, 647) Send("A") ElseIf GUICtrlRead($Combo1) = "Use right mouse clicks" Then MouseMove(983, 647) MouseClick("right",983, 647,1) EndIf Sleep(12000) CheckForEndgame() EndIf Until $infinityCase = 1 EndIf EndSelect EndFunc Func NewStartBot() WriteLog("--- Entering into new Start Bot") GuiCtrlSetData($Idling, "Idling in Menu") WriteLog("--- Calling check start button function") $findButton = CheckStartButton() If $findButton = 1 Then WriteLog("Found start button and already pressed it") Sleep(9000) WriteLog("--- Call get map function") $findMap = GetMap() WriteLog("--- Call map route function") MapRoute($findMap) EndIf WriteLog("Exiting from new start bot function! lol?") EndFunc
Have a nice time!