home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / henkyaku1.0.exe / henkyaku / Program / Kernel / Util / JoyStick.tonyu < prev    next >
Text File  |  2002-09-06  |  887b  |  56 lines
  1. extends Object;
  2.  
  3. native _n_getX;
  4. function getX() {
  5.    return _n_getX (id);
  6. }
  7.  
  8. native _n_left;
  9. function left() {
  10.    return _n_left (id);
  11. }
  12. native _n_right;
  13. function right() {
  14.    return _n_right(id);
  15. }
  16. native _n_up;
  17. function up() {
  18.    return _n_up(id);
  19. }
  20. native _n_down;
  21. function down() {
  22.    return _n_down(id);
  23. }
  24.  
  25. native _n_getY;
  26. function getY() {
  27.    return _n_getY (id);
  28. }
  29.  
  30. native _n_getButtons;
  31. function button(n) {
  32.    return _n_getButtons (n,id);
  33. }
  34.  
  35. function strig(n) {
  36.    return _n_getButtons (n,id);
  37. }
  38. function stick() {
  39.    if ( up() ) {
  40.       if ( left() ) return 8;
  41.       if ( right() ) return 2;
  42.       return 1;
  43.    }
  44.    if ( down() ) {
  45.       if ( left() ) return 6;
  46.       if ( right() ) return 4;
  47.       return 5;
  48.    }
  49.    if ( left()  ) return 7;
  50.    if ( right() ) return 3;
  51.    return 0;
  52. }
  53.  
  54. constructor JoyStick(i) {
  55.   id=i;
  56. }