//pixilang (2007) - http://pixi.gif.ru
// ping-pong goglus 15/01/07

//video_export_gif( "pong.gif" );

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