//pixilang  0.7 (2006)- http://community.livejournal.com/pixilang
// ufo - goglus 

video_export_gif( "ufo_demo.gif" );

o=#00000a
ufo="
.....o.o.....
......o......
.....ooo.....
....ooooo....
...oo.o.oo...
....ooooo....
...o..o..o...
...o..o..o...
.............
+
......o......
......o......
.....ooo.....
....ooooo....
...oo.o.oo...
....ooooo....
...o..o..o...
.............
...o..o..o...
+
.....o.o.....
......o......
.....ooo.....
....ooooo....
...ooooooo...
....ooooo....
...o..o..o...
...o..o..o...
.............
"
make_pixi(ufo)
s=1
start:
clear(#ffffff)
 //clik 
e=get_pen_x 
l=get_pen_y 
 //zoom urodz start
pixi(ufo,-60+e,-60,1+e)

print("z0om piXi",-10+e,0,o)
print("piXi zoOm",-10,0+e,o)
print(".......
.........",-70,20,o)

pixi(ufo,-60,-10+l,1)
pixi(ufo,-50,10-l)
pixi(ufo,-60,-20+l)
pixi(ufo,-40,20-l)
pixi(ufo,-60,-30+l)
pixi(ufo,-30,30-l)

pixi(ufo,-60,-50+l)
pixi(ufo,-10,50-l)
pixi(ufo,-60,-60+l)
pixi(ufo,0,60-l)
pixi(ufo,-40+s,-60+s)
pixi(ufo,-40,-60+e)
pixi(ufo,-20-l,-60+e)
pixi(ufo,0,-60+e)
pixi(ufo,20,-50+e)
pixi(ufo,40,-40+e)
pixi(ufo,60,-30+e)
s+1
frame(100)
go start