XProfan

Def GetAsyncKeyState(1) !"USER32","GetAsyncKeyState"
Def lm_(0) Neq(GetAsyncKeyState(1),0)
Def rm_(0) Neq(GetAsyncKeyState(2),0)
DEF GetCursorPos(1) !"USER32","GetCursorPos"
DEF LMousefield(4) and(and(gt(L_Mousex%,@%(1)),gt(L_Mousey%,@%(2))),and(lt(L_Mousex%,@%(3)),lt(L_Mousey%,@%(4))))
DEF GMousefield(4) and(and(gt(G_Mousex%,@%(1)),gt(G_Mousey%,@%(2))),and(lt(G_Mousex%,@%(3)),lt(G_Mousey%,@%(4))))
Def ClipCursor(1) !"USER32","ClipCursor"