//pixilang (2007)- http://goglus.com
// interactiv_dog - goglus - 29.11.06-8.12.06

//video_export_gif( "interactiv_dog.gif" );
B=#00000a
l=#00000a
i=#ffffff
o=#00000a
a=#00000a


monstr="
......aaa......
......aaa......
....aaaaaaa....
.a.aa.....aa.a.
....aa...aa....
.aa...a.a...aa.
.a..a.aaa.a..a.
+
......aaa......
......aaa......
....aaaaaaa....
.a.aa.....aa.a.
....aa...aa....
..aa..a.a..aa..
a...a.aaa.a...a
"
make_pixi(monstr)

ufo1="
....B....
...BBB...
..B.B.B..
BBBBBBBBB
.l.l.l.l.
.........
+
....B....
...BBB...
..B.B.B..
BBBBBBBBB
.l.l.l.l.
..l.l.l..
+
....B....
...BBB...
..B.B.B..
BBBBBBBBB
.........
.l.....l.
+
....B....
...BBB...
..B.B.B..
BBBBBBBBB
.........
.........
"
make_pixi(ufo1)

morda= "
ll.......ll
..lllllll..
lll..l..lll
..lllllll..
....lll....
+
ll.......ll
..lllllll..
lllllllllll
..lllllll..
....lll....
 "
make_pixi(morda)


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)

fonar="
.llllllllllllllll......
l..............lll.....
l.............lllll....
............lllllllll..
..........lllllllllllll
"
make_pixi(fonar)

urod="
...l....l...
...llllll...
..ll.ll.ll..
...llllll...
....llll....
llllllllllll
l...llll...l
....llll....
llll....llll
...........
+
...l....l...
...llllll...
..llllllll..
...llllll...
....llll....
llllllllllll
l...llll...l
....llll....
llll....llll
...........
"
make_pixi(urod)

dog="
...oo..
.oooooo
oo.oo.oo
oooooooo
oooooooo
o......o
.oooooo
...oo..
...oo......o
ooooooooooo
o.........o
+
...oo..
.oooooo
oooooooo
oooooooo
o......o
oooooooo
.oooooo
...oo..
...oo.....o
oooooooooo
.o.........o
+
...oo..
.oooooo
oo.oo.oo
oooooooo
oooooooo
o..oo..o
.oooooo
...oo..
...oo......o
ooooooooooo
o.........o
+
...oo..
.oooooo
oo.oo.oo
oooooooo
oooooooo
o.oooo.o
.oooooo
...oo..
...oo.....o
oooooooooo
o........o
+
...oo..
.oooooo
oo.oo.oo
oooooooo
oooooooo
oooooooo
.oooooo
...oo..
...oo......o
ooooooooooo
o.........o
"
make_pixi(dog)

text="
i..iii...iii..iii..iii....ii....ii..iii..i..i...i......iii....ii....ii.
...i..i...i...ii...i..i..i..i..i.....i......i...i......i..i..i..i..i...
i..i..i...i...i....iii...iiii..i.....i...i...i.i.......i..i..i..i..i..i
i..i..i...i...iii..i..i..i..i...ii...i...i....i........iii....ii....iii
"
make_pixi(text)


f=1
start:
handle_keys( {}, {}, {} )
clear(o)

//interactiv
x=get_pen_x

//pole
fbox(-75,-50,145,90,i)
     
//statika
line(-127,12,127,12,o)
line(-10,12,-10,-22,o)
line(-11,12,-11,-9,o)
line(-9,12,-9,-9,o)
pixi(text,0,-52)
pixi(fonar,1,-21)
pixi(urod,35,8)

//samoxodki
pixi(monstr,-98+f,20)
pixi(monstr,-78+f,30)

//dog-oshueinik
pixi(dog,14+x,6)
line(-10,-10,14+x,10,o)

pixi(morda,48,-21)
pixi(ufo,96+x,-40) 
pixi(ufo1,-58,-90-x)

//parametr
if f>185 {f=1}
f+1
frame(100)
go start