//Al_Rado// Ballid // Управление CURSOR_KEYS // Не забываем сохранить спрайт рядом с прожкой
resize_pixi (0,160,160)
ballid = load_pixi("slix_f1.gif")
x=0 y=0 z=0
 
unu:
ogranich
handle_hard_keys({downed},{})
clear (SNEG)
fpixi(ballid,x,y,0,0,z)
y=y+yp
x=x+xp
frame (30)
goto unu
 
downed:
if ghk = 264 {vel=1} // velocity
if ghk = 265 {vel=0} // velocity
if ghk = 266 {z-1} // left
if ghk = 267 {z+1} // right
xp=((cos(z*16)+64)/128) * vel
yp=((sin(z*16)+64)/128) * vel
ret
 
ogranich:
if y<-get_pixi_ysize(0)/2 {y=-get_pixi_ysize(0)/2}
if y>get_pixi_ysize(0)/2 {y=get_pixi_ysize(0)/2}
if x<-get_pixi_xsize(0)/2 {x=-get_pixi_xsize(0)/2}
if x>get_pixi_xsize(0)/2 {x=get_pixi_xsize(0)/2}
if vel<0 {vel=0 yp=0 xp=0}
if z < 0 {z = 31}
ret