home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fun Online 1997 January
/
FOL0197.ISO
/
SHARE
/
WINPAC
/
WINPAC.INI
< prev
next >
Wrap
INI File
|
1996-04-25
|
2KB
|
68 lines
Option Explicit
'joystic declarations
Global Const JOY_NOERROR=0
Global Const MMSYSERR_NODRIVER=6
Global Const JOYERR_PARMS=165
Global Const JOYERR_UNPLUGGED=167
Global Const JOYCAPSIZE=54
Global Const JOY1=0
Global Const JOY2=1
Type JoyCaps
Mid As Integer 'Manufacturer ID
Pid As Integer 'Product ID
PName As String * 32 'Product Name
XMin As Integer 'Min and Max Positions
xMax As Integer
YMin As Integer
YMax As Integer
Zmin As Integer
Zmax As Integer
NumButtons As Integer 'Number of Buttons
PeriodMin As Integer 'Min Message Period
PeriodMax As Integer 'Max Message Period
End Type
Type JoyPos
X As Integer 'X pos
Y As Integer 'Y pos
Z As Integer 'Z pos
Buttons As Integer 'Button states
End Type
Declare Function joyGetDevCaps% Lib "MMSystem" (ByVal JoyId%, JCaps As JoyCaps, ByVal CapSize%)
Declare Function joyGetPos% Lib "MMSystem" (ByVal JoyId%, JPos As JoyPos)
Declare Function JoyGetNumDevs% Lib "MMSystem" ()
Global NumJoys As Long
Global JCap As JoyCaps
Global JPos As JoyPos
Global XMin As Long
Global xMax As Long
Global YMin As Long
Global YMax As Long
Global xPos As Long
Global yPos As Long
'BitBlt
Declare Function BitBlt% Lib "GDI" (ByVal hDestDC%, ByVal dx%, ByVal dy%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal sx%, ByVal sy%, ByVal dwRop&)
'twips crap
Global TX As Integer
Global TY As Integer
[Options]
Center=-1
Sound=-1
Speed=8
BrainPower=1
Control1=1
Control2=1
Left=3520
Top=2027
Width=8320
Height=7015