- 428 名前：名前は開発中のものです。 [2007/02/20(火) 17:34:10 ID:UJXvMqBN]
- >>427
まずキャラをどうやって表示してるか書け
まぁ、簡単にやってみると
screen 1,32*4,32,0,0,0 :font "ＭＳ ゴシック",32,1 :mes "←↑→↓" :screen 0,640,480,0,200,100 :x=300:y=200
repeat
stick ky,$fff
if ky=1 {ctx=0 :cty=0 :x-4}
if ky=2 {ctx=32 :cty=0 :y-4}
if ky=4 {ctx=64 :cty=0 :x+4}
if ky=8 {ctx=96 :cty=0 :y+4}
pos x,y :gcopy 1,ctx,cty,32,32
pos 0,0 :mes "stick="+ky :redraw 1 :await 15 :redraw 0 :color 255,255,255:boxf :color
loop
こんな感じ（分かる安さ優先）
どーせ、アニメーションもさせるんだろうから
screen 1,32*4,32*4,0,0,0 :font "ＭＳ ゴシック",32,1
repeat 4:pos 0,cnt*32 :color 200*(cnt=1),200*(cnt=2),200*(cnt=3):mes "←↑→↓" :loop :screen 0,640,480,0,200,100 :x=300:y=200
repeat
stick ky,$fff
if ky=1 {ctx=0 :x-4}
if ky=2 {ctx=32 :y-4}
if ky=4 {ctx=64 :x+4}
if ky=8 {ctx=96 :y+4}
if ky&15 {cty=((cnt/3)\4)*32}
pos x,y
gcopy 1,ctx,cty,32,32
pos 0,0 :mes "stick="+ky :redraw 1 :await 15 :redraw 0 :color 255,255,255:boxf :color
loop
こっちはアニメ付き
|
 |
