unit cl_gamepad;
interface
{$ifdef windows}
uses Windows;
type
{$packrecords c} //This moved to a separate unit because this directive fucks up the combined main header dump
  T_XINPUT_GAMEPAD = record
    wButtons:         Word;
    bLeftTrigger:     Byte;
    bRightTrigger:    Byte;
    sThumbLX:         Smallint;
    sThumbLY:         Smallint;
    sThumbRX:         Smallint;
    sThumbRY:         Smallint;
  end;
  T_XINPUT_STATE = record
    dwPacketNumber:   DWORD;
    Gamepad:          T_XINPUT_GAMEPAD;
  end;
  T_XINPUT_VIBRATION = record
    case integer of
    0: (
      wLeftMotorSpeed:  Word;
      wRightMotorSpeed: Word;
    );
    1: (
      Amp: array[0..1] of Word;
    );
  end;
  T_XINPUT_CAPABILITIES = record
    _Type:            Byte;
    SubType:          Byte;
    Flags:            Word;
    Gamepad:          T_XINPUT_GAMEPAD;
    Vibration:        T_XINPUT_VIBRATION;
  end;
{$endif}
implementation
end.

