//pixilang  0.8 (2007)- http://community.livejournal.com/pixilang
// interactiv_tank - goglus - 9.12.06

video_export_gif( "tanks.gif" );

B=#ffffff
plus="
.B.
BBB
.B.
+
B.B
.B.
B.B
"
make_pixi(plus)
a=#000a

plus1="
..aaa..
..aaa..
aaaaaaa
aaaaaaa
aaaaaaa
..aaa..
..aaa..
+
aa...aa
aa...aa
..aaa..
..aaa..
..aaa..
aa...aa
aa...aa
"
make_pixi(plus1)

tank1="
aa..aa
...aaaaaa
aa..aa
+
aaa.aa
...aaaaaa
aaa.aa
+
aaaaaa
...aaaaaa
aaaaaa
+
.aaaaa
...aaaaaa
.aaaaa
+
..aaaa
...aaaaaa
..aaaa
+
a..aaa
...aaaaaa
a..aaa
+
aa..aa
...aaaaaa
aa..aa
"
make_pixi(tank1)

tank="
BB..BB
...BBBBBB
BB..BB
+
BBB.BB
...BBBBBB
BBB.BB
+
BBBBBB
...BBBBBB
BBBBBB
+
.BBBBB
...BBBBBB
.BBBBB
+
..BBBB
...BBBBBB
..BBBB
+
B..BBB
...BBBBBB
B..BBB
+
BB..BB
...BBBBBB
BB..BB
"
make_pixi(tank)

x=1
y=1

start:
clear(B)
x=get_pen_x 
y=get_pen_y 

box(-70,-70,140,140,a)

fbox(-16,-50,48,110,a)
box(16,-52,17,113,a)


pixi(tank,-5,-40,4)
pixi(tank,-5,0)
pixi(tank,-5,40)

pixi(tank1,-20,-40)
pixi(tank1,-20,0)
pixi(tank1,-20,40)

pixi(plus1,1+x,1+y,2)
pixi(plus,1+x,1+y,2)

frame(90)
go start