'スティック入力をボタン入力と同じにする関数 'キーリピート等（BUTTON関数の機能ID)は未対応 DEF SBUTTON(*) VAR X,Y,B DIM A[3] FOR I=0 TO DEFARGC()-1 A[I]=DEFARG(I) NEXT STICK A[0] OUT X,Y IF X && Y THEN B=VAL("&H"+"8A264519"[(((DEG(ATAN(Y,X ))+360+22.5) MOD 360)/45) MOD 8)]) ENDIF B=B OR BUTTON(A[0],-1,A[2]) IF A[1]==-1 THEN RETURN B RETURN !!(B AND POW(2,A[1])) END

共有する

フォークする