HSP キャラ移動

HSP　キャラ移動
screen 0,640,480


celload "chara4.bmp",1
celdiv 1,32,32,32,32
celload "chara3.bmp",2
celdiv 2,32,32,32,32

x1 = 300 : x2 = 320
y1 = 200 : y2 = 240

*kuri
redraw 0
color 0,0,0
boxf
pos x1 , y1
gmode 0
celput 1,0
pos x2,y2
gmode 0
celput 2,0

stick key,15
if key&1 : x1-8
if key&2 : y1-8
if key&4 : x1+8
if key&8 : y1+8
if x1<32 : x1=32 if x1>640 : x1=640
if y1<32 : y1=32 if y1>480 : y1=480

await 16
redraw 1
goto *kuri