/packages/libndsfpc/src/nds/arm9/rumble.inc

https://github.com/slibre/freepascal · Pascal · 16 lines · 11 code · 3 blank · 2 comment · 0 complexity · 5d6b5df8f0e2a06e0da27eefcb960fcd MD5 · raw file 

    

  1. {$ifdef NDS_INTERFACE}
    2. 

  2. const
    3. 

  3.   RUMBLE_PAK: pcuint16 = pointer($08000000);
    4. 

  4. 	WARIOWARE_PAK:		pcuint16 = pointer($080000C4);
    5. 

  5. 	WARIOWARE_ENABLE:	pcuint16 = pointer($080000C6);
    6. 

  6.  
    7. 

  7. type 
    8. 

  8.   RUMBLE_TYPE = (
    9. 

  9. 	  RUMBLE, WARIOWARE
    10. 

  10. 	);
    11. 

  11. 	TRumbleType = RUMBLE_TYPE;
    12. 

  12.   
    13. 

  13. 

  14. function isRumbleInserted(): cbool; cdecl; external;
    15. 

  15. procedure setRumble(position: cbool); cdecl; external;
    16. 

  16. {$endif NDS_INTERFACE}
    17.