Ping-Pong жив

o=#00000a
 
ball="
oo.oooo
o.o...o
o.oooo.
o.o.o.o
.oooo.o
o...o.o
oooo.oo
+
ooo.ooo
o..o..o
o.ooo.o
.oo.oo.
o.ooo.o
o..o..o
ooo.ooo
+
ooo..oo
o...o.o
.oooo.o
o.o.ooo
o.oooo.
o.o...o
oo.oooo
"
make_pixi(ball)
a=#rr0000
o=#00000a
 
ball1="
..aa..
..aa..
aaooaa
aaooaa
..aa..
..aa..
+
aa..aa
aa..aa
..oo..
..oo..
aa..aa
aa..aa
"
 
make_pixi(ball1)
o=#00000a
 
 
 
bita=" 
.....ooooooooooo....
.....ooooooooooo....
.....ooooooooooo....
.....ooooooooooo....
..ooooooooooooooooo..
...ooooooooooooooo...
...oo...ooooo...oo...
...oo...ooooo...oo...
...ooooooooooooooo...
....ooooo...ooooo...
......ooooooooo......
....o....ooo....o....
....ooo..ooo..ooo....
....oooooo.oooooo....
....ooo..ooo..ooo....
....o....ooo....o...
 
"
 
make_pixi(bita)
a=#rr0000
 
glaza=" 
.....aaaoooooaaa.....
.....aaaoooooaaa.....
" 
make_pixi(glaza)
 
x=0
y=0
z=0
f=0
dx=2
dy=4
dz=7
df=3
s=0
ss=0
k=1
u=2
 
r=1
start:
clear(#ffffff)
handle_keys( {}, {}, {} )
 
//interativ
a = get_pen_x
//uskorenie
x=x+dx
y=y+dy
z=z+dz
f=f+df
 
//ball
pixi(ball,x,y)
pixi(ball1,z,f)
 
//otskok1
if x>75 {dx=-dx}
if y>75 {dy=-dy}
if x<-75 {dx=-dx}
if y<-75 {dy=-dy}
 
//scet stena1
if y>75 {ss+1}
 
//scet stena2
if f>75{ss+1}
 
//otskok2
if z>75 {dz=-dz}
if f>75 {df=-df}
if z<-75 {dz=-dz}
if f<-75 {df=-df}
 
//otskok bita1
if y = 60{ if x>a-5 { if x< a+5 { dy = -dy } } }
//otskok bita1
if f = 60 { if z>a-5 { if z<a+5 { df=-df} } }
//scet bita2
if f = 60 { if z>a-5 { if z<a+5 { s+1} } }
//scet bita1
if y= 60 { if x>a-5 { if x<a+5 { s+1} } }
 
g=90
pixi(bita,a,72)
 
if y=60 {g=71}
 
pixi(glaza,a,g)
 
print( "$ss::$s", -75, -75, o )
frame(100)
go start