#include "hgimg3.as" xs=800 : ys=600 screen 0,xs,ys,0,(ginfo_dispx-xs)/2,(ginfo_dispy-ys)/2 hgini texload "ground.bmp" addmesh gd,32,32,0,256,256,stat regobj mgd,gd selcang : objset1r 1,128 selcpos : objset3 0,-8,0 *main selcang : objgetfv an fvadd an(1),-double(ginfo(0)-(ginfo(4)+xs/2))/300 mouse ginfo(4)+xs/2,ginfo(5)+ys/2 objsetfv an an(1)+=3.14 fvmul an,-1,-1,-1 selcpos : objgetfv po stick ky,255 if ky&1 { fvdir an,1,0,0 fvadd po,an(0),an(1),an(2) } if ky&2 { fvdir an,0,0,1 fvadd po,an(0),an(1),an(2) } if ky&4 { fvdir an,-1,0,0 fvadd po,an(0),an(1),an(2) } if ky&8 { fvdir an,0,0,-1 fvadd po,an(0),an(1),an(2) } fvmax po,128,8,128 fvmin po,-128,-8,-128 objsetfv po if ky&128 : end hgdraw hgsync 10 goto *main
同時に「↓」と「←」を押す以外はおかしくなってしまいます。