Global $dsfsd = 34
Global Const $degToRad = 4 * ATan(1) / 180
$iX = 705
$iY = 545
$i_Step = 5 ; шаг между кругами
$i_Count = 0
$restart_after = 10 ; количество кругов
HotKeySet('{HOME}', '_DRAKA')
HotKeySet('{ESC}', '_Exit')
$iCursorOld = MouseGetCursor()
While 1
Sleep(100)
WEnd
Func _START()
$i_Count += $i_Step
TrayTip('', Int($i_Count / 360) + 1 & ' круг', 1000)
If $i_Count >= $restart_after*360 Then $i_Count = 0
MouseMove(Int($iX + $i_Count / 100 * Sin($i_Count * $degToRad)), _
Int($iY - $i_Count / 100 * Cos($i_Count * $degToRad)), 0)
$iCursorNew = MouseGetCursor()
If $iCursorOld <> $iCursorNew Then
MouseClick("left", Int($iX + $i_Count / 100 * Sin($i_Count * $degToRad)), Int($iY - $i_Count / 100 * Cos($i_Count * $degToRad)), 2)
Sleep(500)
MouseMove($iX, $iY, 0)
$iCursorOld = MouseGetCursor()
$i_Count = 0
EndIf
EndFunc
Func _DRAKA()
While 1
Local $test1 = "0x" & Hex(PixelGetColor(818, 565),6), $test2 = "0x" & Hex(PixelGetColor(1208, 583),6), $test3="0x" & Hex(PixelGetColor(424, 855),6), $test4="0x" & Hex(PixelGetColor(1034, 661),6)
If $test1 = 0xCCA55D And $test2 = 0xBEBEFF And $test3 <> 0xBE935C Then
MouseClick("left",917,586,1)
Sleep(Random(450, 600, 1))
ElseIf $test1 = 0xCCA55D And $test2 <> 0xBEBEFF And $test3 <> 0xBE935C Then
MouseClick("left",1208,583,1)
Sleep(Random(450, 600, 1))
ElseIf $test1 <> 0xCCA55D And $test2 <> 0xBEBEFF And $test3 = 0xBE935C Then
_START()
Sleep(Random(1100, 1600, 1))
ElseIf $test1 <> 0xCCA55D And $test4 = 0x82A635 Then
MouseClick("left",1034,661,1)
Sleep(Random(450, 600, 1))
EndIf
Sleep(5)
WEnd
EndFunc
Func _Exit()
Exit
EndFunc