daily pastebin goal
3%
SHARE
TWEET

Untitled

a guest Apr 17th, 2018 54 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program new;
  2.  
  3. var
  4.   LastPos, CurrentPos: TPoint;
  5.   T: Boolean;
  6.  
  7. begin
  8.   LastPos := Point(-1, -1);
  9.   repeat
  10.     GetMousePos(CurrentPos.x, CurrentPos.y);
  11.     If CurrentPos <> LastPos Then
  12.     Begin
  13.       LastPos := CurrentPos;
  14.       writeln(LastPos);
  15.     End;
  16.     If IsMouseButtonDown(mouse_Right) Then
  17.     Begin
  18.       While IsMouseButtonDown(mouse_Right) Do
  19.         Wait(1);
  20.       Writeln('MouseDown mouse_Right');
  21.     End;
  22.     If IsMouseButtonDown(mouse_Middle) Then
  23.     Begin
  24.       While IsMouseButtonDown(mouse_Middle) Do
  25.         Wait(1);
  26.       Writeln('MouseDown mouse_Middle');
  27.     End;
  28.     If IsMouseButtonDown(mouse_Left) Then
  29.     Begin
  30.       While IsMouseButtonDown(mouse_Left) Do
  31.         Wait(1);
  32.       Writeln('MouseDown mouse_Left');
  33.     End;
  34.   Until(false);
  35. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top