ボールの移動

ブロック崩しを作ります。まだボールが画面内を動き回るだけです。

壁（画面端）でボールを反射させるには、速度に-1を掛けて符合を逆にします。

//画面の大きさ
#define wx 360
#define wy 400
//ボールの位置
x = 40.0
y = 300.0
//ボールの速度
vx = 3.0
vy = 3.0
//ボールの大きさ
ballsize = 8
screen 0,wx,wy

repeat
	x += vx
	y += vy
	//画面端でボールを反射させる
	if x < 0 | x > (wx-ballsize) : vx = vx * -1
	if y < 0 | y > wy : vy = vy * -1
	
	color 0,0,0
	boxf //画面を塗りつぶす
	color 255,255,0 
	circle x,y,x+ballsize,y+ballsize
	
	redraw 1
	wait 1
	redraw 0
loop