i also change vilagesearch() function to make it show for searching a dead base
Its working find dead base
Code:
Func VillageSearch() ;Control for searching a village that meets conditions
While 1
SetLog("===============Searching For Base===============")
$SearchCount = 0
While 1
If _Sleep(1000) Or $RunState = False Then ExitLoop (2)
GetResources() ;Reads Resource Values
If $Restart = True Then ExitLoop (2)
If CompareResources() Then
If $iradAttackMode = 0 Then
;==================hervian
If $Hide = true Then
GUICtrlSetData($btnHide, "Hide")
WinMove("BlueStacks App Player", "", $botPos[0], $botPos[1])
;$Hide = true;"====
EndIf
;==============hervian
If ZombieSearch() Then
SetLog("~~~~~~~Dead Base Found!~~~~~~~")
If $Hide = true Then
GUICtrlSetData($btnHide, "Show")
$botPos[0] = WinGetPos("BlueStacks App Player")[0]
$botPos[1] = WinGetPos("BlueStacks App Player")[1]
WinMove("BlueStacks App Player", "", -32000, -32000)
$Hide = True
EndIf
ExitLoop
Else
SetLog("~~~~~~~Not dead base, skipping~~~~~~~")
Click(750, 500) ;Click Next
If $Hide = true Then
GUICtrlSetData($btnHide, "Show")
$botPos[0] = WinGetPos("BlueStacks App Player")[0]
$botPos[1] = WinGetPos("BlueStacks App Player")[1]
WinMove("BlueStacks App Player", "", -32000, -32000)
$Hide = True
EndIf
EndIf
Else
ExitLoop
EndIf
Else
Click(750, 500) ;Click Next
EndIf
WEnd
SetLog("===============Searching Complete===============")
ExitLoop
WEnd
EndFunc ;==>VillageSearch
its only show a sec then back to hide, maybe its distrubing, but still can use while browsing or something else,
Best Regrads,
Hervianzhou