常に斜め移動というのが気に入らなくていじったら 止まるようになってしまった(^_^;; 逆にゲームっぽくていいかも。 #define ctype sgn(%1) ((%1>0)-(%1<0)) v=3 ;速度 w=32 h=32 hw=w/2-1 hh=h/2-1 ;gsel 0,-1 bgscr 0,w,h,,(ginfo_dispx-w)/2,(ginfo_dispy-h)/2 #if 0 picload "icon.bmp" #else color 0,0,255: boxf #endif cx=ginfo_wx1 cy=ginfo_wy1 repeat wait 1 stick key if key: end cx+=sgn((cx+w/2-ginfo_mx)/hw)*v if cx<0 { cx=0 } else : if cx+w>=ginfo_dispx { cx=ginfo