home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / spx10.zip / SPX_DOC.ZIP / SPX_JOY.DOC < prev    next >
Text File  |  1993-05-05  |  1KB  |  34 lines
  1. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  2.  
  3.   SPX_JOY is the joystick handling unit.  It can read up two joysticks.
  4.  
  5. var
  6.    stickx,                             { X locations for joystick 1 & 2 }
  7.    sticky   : array[1..2] of integer;  { Y locations for joystick 1 & 2 }
  8.    button1,                            { button 1 for joystick 1 & 2 }
  9.    button2  : array[1..2] of boolean;  { button 2 for joystick 1 & 2 }
  10.  
  11. ───────────────────────────────────────────────────────────────────────────
  12. function joythere : boolean;
  13.  
  14.    Returns TRUE if any joystick is connected to the computer.
  15.  
  16. ───────────────────────────────────────────────────────────────────────────
  17. function joy1there : boolean;
  18.  
  19.    Returns TRUE if joystick 1 is connected to the computer.
  20.  
  21. ───────────────────────────────────────────────────────────────────────────
  22. function joy2there : boolean;
  23.  
  24.   Returns TRUE if joystick 2 is connected to the computer.
  25.  
  26. ───────────────────────────────────────────────────────────────────────────
  27. procedure setstick(h:integer);
  28.  
  29.   Reads the joystick setting the global variables.
  30.  
  31.   H:  Joystick number to read. 1 or 2
  32.  
  33. ───────────────────────────────────────────────────────────────────────────
  34.