Código: Seleccionar todo
#Include <Misc.au3>
Func Close()
MsgBox(0, "Bot", "Bot closed successfully.");
Exit;
EndFunc
Func PixelCheck ($x, $y, $c)
While PixelGetColor($x, $y) <> $c
Sleep(100);
WEnd
EndFunc
Func Main()
While 1
;PixelCheck(612, 162, 3256607);
Sleep(500);
MouseClick("primary", 745, 545, 1, 0);
;PixelCheck(751, 538, 3817283);
Sleep(100);
MouseClick("primary", 775, 490, 1, 0);
;PixelCheck(305, 220, 0);
Sleep(500);
;MouseClick("primary", 475, 475, 1, 0);
MouseClick("primary", 510, 720, 2, 0);
Sleep(200);
MouseClick("primary", 560, 720, 2, 0);
Sleep(200);
MouseClick("primary", 640, 720, 2, 0);
Sleep(200);
MouseClick("primary", 570, 470, 1, 0);
;PixelCheck(490, 660, 4112132);
Sleep(200);
MouseClick("primary", 490, 660, 1, 0);
WEnd
EndFunc
If _Singleton("MyScriptName", 1) == 0 Then
MsgBox(64, "Bot", "The bot is already running.");
Else
HotKeySet("{F4}", "Close");
MsgBox(0, "Bot", "Press the F4 key to close the bot.");
Main();
EndIf