mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-03 14:12:17 -05:00
40 lines
1.2 KiB
PHP
40 lines
1.2 KiB
PHP
procedure Lape_MoveMouse(const Params: PParamArray);
|
|
begin
|
|
ps_MoveMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ScrollMouse(const Params: PParamArray);
|
|
begin
|
|
ps_ScrollMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetMousePos(const Params: PParamArray);
|
|
begin
|
|
ps_GetMousePos(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PClickType(Result)^ := ConvIntClickType(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_HoldMouse(const Params: PParamArray);
|
|
begin
|
|
ps_HoldMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ReleaseMouse(const Params: PParamArray);
|
|
begin
|
|
ps_ReleaseMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ClickMouse(const Params: PParamArray);
|
|
begin
|
|
ps_ClickMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_IsMouseButtonDown(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_IsMouseButtonDown(Pinteger(Params^[0])^);
|
|
end;
|