;bound.as fsize=20 limitx=640-fsize: limity=480-fsize: font "MS ゴシック",fsize hk=100 ;反発係数(0-100) mk=0 ;摩擦係数(0-100) ay=256 ;加速度(100倍) interval=25 repeat x=0: y=180 ;初期位置 vx=1024: vy=0 ;初速(100倍) color: boxf color 255,255,255: pos x,y: mes "●" cn=0 repeat: await interval redraw 2: color: boxf x,y,x+fsize-1,y+fsize-1 vy+=ay ;加速 x+=vx/100: y+=vy/100 ;移動 if y>limity { 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 } } ;跳ね返り(左端) color 255,255,255: pos x,y: mes "●" redraw if y==limity: if vx<100: if vx>-100: if vy>(-ay/2): cn++: if cn>20: break loop loop