;
#include "hspdx.as"

	fsize=128: limity=480-fsize: limitx=640-fsize
	es_ini
	screen 0,640,480,1,dispx+1,0: gsel 0,1
	es_screen 640,480,8,2: if stat: dialog "es_screen失敗": end
	wait 100
	font "ＭＳ ゴシック",fsize
	color 255,255,255
	hk=60			;反発係数
	mk=15			;摩擦係数
	ay=128			;加速度
	repeat
		x=0: y=0		;初期位置
		vx=1024: vy=0	;初速
		cn=0
		repeat
			es_cls: es_boxf 0,0,639,1: es_boxf 0,0,1,479
			es_boxf 0,478,639,479: es_boxf 638,0,639,479
			pos x,y: es_fmes "■"
			es_sync
			vy+=ay					;加速
			x+=vx/100: y+=vy/100	;移動
			if y>limity {
				cn++: if cn>30: break	;30回バウンドしたら初めから
				y=limity: vy=-vy*hk/100	;跳ね返り（下端）
				vx-=vx*mk/100			;摩擦効果
			}
			if x>=limitx { x=limitx: vx=-vx*hk/100 }		;跳ね返り（右端）
			else { if x<=0 { x=0: vx=-vx*hk/100 } }	;跳ね返り（左端）
			stick c: if c: end
			await
		loop
	loop