sample\game\keymove2.hsp » Plain Format
; ; カーソルキーで画像を動かす(2) ; buffer 3 picload "face.bmp" ; 画像ファイル screen 0,640,480 x1=0 : y1=0 ; 左上XY x2=640 : y2=480 ; 右下XY ; 角度のリスト(90度単位) rotdir=0.0, 1.57079632, 3.14159264, 4.71238896 mx=320 ; X座標 my=240 ; Y座標 msp=4 ; スピード mr=0 ; 角度 *main redraw 0 ; 描画始め color 0,0,64 boxf ; 背景を消す gmode 2,64,64 ; 画像サイズ pos mx,my grotate 3,0,0,rotdir(mr) ; 画像コピー redraw 1 ; 描画終わり await 20 stick key,15 ; キー入力 if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3 if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1 if key&2 : my=limit( my-msp, y1, y2 ) : mr=0 if key&8 : my=limit( my+msp, y1, y2 ) : mr=2 goto *main