Basketball FRVR

#RequireAdmin
#include <Misc.au3>
HotKeySet("{ESC}", "_Exit"); Nhấn ESC để thoát.
Global $PosX, $PosY; Khởi tạo biến vị trí ban đầu.

While 1; Vòng lặp đầu, ghi nhận vị trí của bóng.
    If _IsPressed(02) Then; Điều kiện là nhấn chuột phải, nếu nâng cao thì nên dùng WinAPI hoặc hook sẽ tiện hơn.
        Local $aPos = MouseGetPos(); Lấy vị trí chuột, nơi trung tâm quả bóng.
        $PosX = $aPos[0]; Gán cho vị trí ban đầu.
        $PosY = $aPos[1]; ...
        ExitLoop; Thoát khỏi vòng lặp đầu.
    EndIf
    Sleep(50); Thời gian nghỉ 0,05s, nếu càng ngắn hoặc bỏ đi thì dễ gặp lỗi, CPU usage có thể tăng cao.
WEnd

While 1 ; Vòng lặp thứ hai, ghi nhận vị trí rổ và ném bóng.
    If _IsPressed(02) Then
        Local $aPos = MouseGetPos();
        MouseClickDrag("left", $PosX, $PosY, $aPos[0], $aPos[1], 5); Điều khiển chuột click drag để ném bóng theo hai vị trí đã gán.
        ;Ở hàm trên, phần thời gian nên để 1 nếu muốn nhanh gọn và không thấy di chuyển chuột.
    EndIf
    Sleep(50);
WEnd

Func _Exit()
    Exit; Thoát.
EndFunc