sample\game\keymove4.hsp » Plain Format
; ; カーソルキーで画像を動かす(4) ; celload "face.bmp" ; 元画像ファイル face=stat ; 元画像のIDを保存 celdiv face,64,64,32,32 ; パーツのサイズと中心位置 x1=0 : y1=0 ; 左上XY x2=640 : y2=480 ; 右下XY mx=320.0 ; X座標 my=240.0 ; Y座標 msa=10.0 ; 最大スピード msp=0.5 ; 加速スピード mgo=0.0 ; スピード mr=0.0 ; 角度 mrsp=0.1 ; 角度回転スピード px=0.0 ; X移動ベクトル py=0.0 ; Y移動ベクトル mdown=0.95 ; 減衰率 *main redraw 0 ; 描画始め color 0,0,64 boxf ; 背景を消す gmode 2 ; 透明色ありの指定 pos mx,my ; 表示位置の設定 celput face,0,1,1,mr ; 画像コピー redraw 1 ; 描画終わり await 20 stick key,15 ; キー入力 if key&1 : mr-=mrsp if key&4 : mr+=mrsp if key&2 : mgo=msp : gosub *main2 if key&8 : mgo=-msp : gosub *main2 mx=limitf( mx+px, x1, x2 ) my=limitf( my+py, y1, y2 ) px=limitf( px*mdown, -msa, msa ) py=limitf( py*mdown, -msa, msa ) goto *main *main2 ; 加速させる rot=mr-1.57079632 px=px+cos(rot)*mgo py=py+sin(rot)*mgo return