HotKeySet("{ESC}","Stop")
Func Stop ()
WinMove($SHK_Title, "", 5, 10)
Exit 0
EndFunc
_SetWindow()
Func _SetWindow()
Local $aPos, $aClientSize, $Win_Border[3]
$aClientSize = WinGetClientSize($SHK_Title)
$aPos = WinGetPos($SHK_Title)
$Win_Border[1] = ($aPos[2] - $aClientSize[0]) / 2
$Win_Border[2] = $aPos[3] - $aClientSize[1] - $Win_Border[1]
WinMove($SHK_Title, "", "-" & $Win_Border[1], "-" & $Win_Border[2], 1000, 720)
Return 'ok'
EndFunc
While 1
_Eda()
Sleep (500)
_Monahi()
Sleep (500)
_Razvedka()
Sleep (500)
_Ataka()
Sleep (500)
_Error()
Sleep (15500)
WEnd
Func _Monahi()
MouseClick('Left', 858, 70, 1)
MouseClick('Left', 896, 116, 1)
Sleep (1000)
$coord = PixelSearch(853, 430, 923, 442, 0x000000)
If Not @error Then
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
EndIf
EndFunc
Func _Razvedka()
$coord = PixelSearch(870, 58, 881, 72, 0xFFFFEE)
If Not @error Then
MouseClick('Left', 858, 70, 1)
MouseClick('Left', 705, 115, 1)
$coord = PixelSearch(853, 430, 923, 442, 0x000000)
If Not @error Then
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
EndIf
EndIf
EndFunc
Func _Ataka()
$coord = PixelSearch(870, 58, 881, 72, 0xFFFFEE)
If Not @error Then
MouseClick('Left', 858, 70, 1)
MouseClick('Left', 640, 113, 1)
$coord = PixelSearch(32, 440, 34, 442, 0x000000)
If Not @error Then
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
EndIf
EndIf
EndFunc
Func _Eda()
MouseClick('Left', 601, 72, 1)
MouseClick('Left', 754, 104, 1)
MouseClick('Left', 551, 39, 1)
MouseClick('Left', 136, 213, 1)
MouseClick('Left', 100, 320, 1)
Sleep (1000)
$coord = PixelSearch(250, 313, 263, 325, 0x000000)
If Not @error Then
MouseClick('Left', 610, 318, 1)
MouseClick('Left', 575, 318, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 360, 1)
$coord = PixelSearch(250, 353, 263, 366, 0x000000)
If Not @error Then
MouseClick('Left', 610, 358, 1)
MouseClick('Left', 575, 358, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 400, 1)
$coord = PixelSearch(250, 392, 263, 405, 0x000000)
If Not @error Then
MouseClick('Left', 610, 397, 1)
MouseClick('Left', 575, 397, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 435, 1)
$coord = PixelSearch(250, 432, 263, 445, 0x000000)
If Not @error Then
MouseClick('Left', 610, 436, 1)
MouseClick('Left', 575, 436, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 480, 1)
$coord = PixelSearch(250, 472, 263, 485, 0x000000)
If Not @error Then
MouseClick('Left', 610, 478, 1)
MouseClick('Left', 575, 478, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 520, 1)
$coord = PixelSearch(250, 512, 263, 525, 0x000000)
If Not @error Then
MouseClick('Left', 610, 517, 1)
MouseClick('Left', 575, 517, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 560, 1)
$coord = PixelSearch(250, 551, 263, 565, 0x000000)
If Not @error Then
MouseClick('Left', 610, 557, 1)
MouseClick('Left', 575, 557, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 60, 213, 1)
MouseClick('Left', 100, 320, 1)
$coord = PixelSearch(250, 313, 263, 325, 0x000000)
If Not @error Then
MouseClick('Left', 610, 318, 1)
MouseClick('Left', 575, 318, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 360, 1)
$coord = PixelSearch(250, 353, 263, 366, 0x000000)
If Not @error Then
MouseClick('Left', 610, 358, 1)
MouseClick('Left', 575, 358, 1)
MouseClick('Left', 878, 504, 1)
Else
MouseClick('Left', 100, 400, 1)
$coord = PixelSearch(250, 392, 263, 405, 0x000000)
If Not @error Then
MouseClick('Left', 610, 397, 1)
MouseClick('Left', 575, 397, 1)
MouseClick('Left', 878, 504, 1)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc
Func _Error()
$coord = PixelSearch(361, 325, 552, 358, 0x82939E)
If Not @error Then
MouseClick('Left', 491, 377, 1)
EndIf
EndFunc