block1.hsp

sample\game\block1.hsp » Plain Format

	;
	;	ブロック崩し(1)
	;	(ボールの移動のみ行ないます)
	;

	x1=0:y1=0		; 画面左上の座標
	x2=480:y2=640		; 画面右下の座標

	blsize=16		; ボールのサイズ
	blx=240:bly=400		; ボールの座標
	bpx=8:bpy=8		; XY方向のボール座標加算値

	screen 0,x2,y2

*main
	redraw 0
	gradf 0,0,x2,y2,1,0,128	; 画面クリア

	; ボール : X方向の移動
	blx=blx+bpx
	if blx<=x1 : blx=x1 : bpx=-bpx
	if blx>=(x2-blsize) : blx=x2-blsize : bpx=-bpx

	; ボール : Y方向の移動
	bly=bly+bpy
	if bly<=y1 : bly=y1 : bpy=-bpy
	if bly>=(y2-blsize) : bly=y2-blsize : bpy=-bpy

	; ボールを表示
	pos blx,bly:color 255,255,255
	font msgothic,blsize
	mes "●"

	redraw 1
	await 16
	goto *main