home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SPX10.ZIP / SPX_INT.ZIP / SPX_JOY.INT < prev    next >
Encoding:
Text File  |  1993-05-05  |  841 b   |  24 lines
  1. Unit SPX_JOY;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. interface
  6.  
  7. Uses dos;
  8.  
  9. const
  10.   gravis : boolean = false;   { Set to true if using Gravis GamePad or }
  11.                               { other four button joystick }
  12.  
  13. var
  14.    stickx,                             { X locations for joystick 1 & 2 }
  15.    sticky   : array[1..2] of integer;  { Y locations for joystick 1 & 2 }
  16.    button1,                            { button 1 for joystick 1 & 2 }
  17.    button2  : array[1..2] of boolean;  { button 2 for joystick 1 & 2 }
  18.  
  19. function joythere : boolean;           { TRUE if A joystick is present }
  20. function joy1there : boolean;          { TRUE if joystick 1 is present }
  21. function joy2there : boolean;          { TRUE if joystick 2 is present }
  22. procedure setstick(h:integer);         { Read joystick inputs }
  23.  
  24.