sample\new35\joystick2.hsp » Plain Format
#include "mod_joystick.as" ; ジョイスティック接続サンプル ; (アナログスティックで移動させます) ; tamas=ginfo_newid ; 未使用の画面IDを得る celload dir_tv+"tamane_b.png",tamas ; 素材フォルダから読み込みます celdiv tamas,256,512 ; 256x512ドットに区切る ; 標準のサイズで表示 screen 0,640,480 mx=320 ; X座標 my=240 ; Y座標 face=1 ; 表情 rate=32*64 ; ジョイスティック感度 dim jdata,16 ; ジョイスティック情報 *main stick key,15 ; キー入力 if key&128 : goto *owari ; [ESC]で終了 joyGetPosEx jdata, 0 ; ジョイスティック入力 if stat!=0 : goto *joy_err ; ジョイスティックのエラー時 px=( jdata(2) - 32768 )/rate ; アナログ入力X py=( jdata(3) - 32768 )/rate ; アナログ入力Y ; 入力から座標を動かす mx+=px my+=py *joy_err redraw 0 ; 描画始め color 0,160,160 ; 背景色 boxf ; 背景を消す gmode 2 ; 透明色ありの指定 pos mx,my ; 表示位置の設定 celput tamas,face ; 画像コピー redraw 1 ; 描画終わり await 1000/60 ; 60fpsで更新 goto *main *owari end