setscreen ("graphics:640;480")
View.Set ("offscreenonly")
var font : int

%road
drawline (0, 200, 641, 200, 7)
drawline (0, 100, 641, 100, 7)
drawfill (1, 120, 0, 0)
drawfill (1, 1, 10, 7)

%house
drawline (20, 199, 20, 350, 7)
drawline (200, 200, 200, 350, 7)
drawline (0, 330, 110, 440, 7)
drawline (220, 330, 110, 440, 7)
drawfill (100, 300, 115, 7)
%door and windows
drawfillbox (90, 200, 130, 260, 7)
drawfillbox (140, 220, 190, 260, 0) %bottom right window
drawbox (140, 220, 190, 260, 7)
drawline (165, 260, 165, 220, 7)
drawline (140, 240, 190, 240, 7)
drawfillbox (30, 220, 80, 260, 0) %bottom left window
drawbox (30, 220, 80, 260, 7)
drawline (55, 260, 55, 220, 7)
drawline (30, 240, 80, 240, 7)
drawfillbox (30, 290, 90, 340, 0) %top left window
drawbox (30, 290, 90, 340, 7)
drawfillbox (130, 290, 190, 340, 0) %top right window
drawbox (130, 290, 190, 340, 7)

%tree
drawfillbox (520, 201, 580, 370, 187)
drawfilloval (550, 400, 70, 50, 143)

%man
drawoval (250, 260, 10, 10, 7)
drawline (250, 220, 250, 250, 7)
drawline (250, 220, 260, 200, 7)
drawline (250, 220, 240, 200, 7)
drawline (250, 240, 235, 230, 7)
drawline (250, 240, 265, 230, 7)
drawdot (247, 265, 7)
drawdot (253, 265, 7)
drawarc (250, 258, 5, 5, 200, 340, 7)
delay (1000)
drawoval (250, 260, 10, 10, 0)
drawline (250, 220, 250, 250, 0)
drawline (250, 220, 260, 200, 0)
drawline (250, 220, 240, 200, 0)
drawline (250, 240, 235, 230, 0)
drawline (250, 240, 265, 230, 0)
drawdot (247, 265, 0)
drawdot (253, 265, 0)
drawarc (250, 258, 5, 5, 200, 340, 0)
View.Update
%walking
for c : 1 .. 90 by 2

    drawoval (250, 260 - c, 10, 10, 7)
    drawfill (250, 260 - c, 0, 7)
    drawline (250, 220 - c, 250, 250 - c, 7)
    drawline (250, 220 - c, 260, 200 - c, 7)
    drawline (250, 220 - c, 240, 200 - c, 7)
    drawline (250, 240 - c, 235, 230 - c, 7)
    drawline (250, 240 - c, 265, 230 - c, 7)
    drawdot (247, 265 - c, 7)
    drawdot (253, 265 - c, 7)
    drawarc (250, 258 - c, 5, 5, 200, 340, 7)
    View.Update
    delay (100)
    drawoval (250, 260 - c, 10, 10, 0)
    drawline (250, 220 - c, 250, 250 - c, 0)
    drawline (250, 220 - c, 260, 200 - c, 0)
    drawline (250, 220 - c, 240, 200 - c, 0)
    drawline (250, 240 - c, 235, 230 - c, 0)
    drawline (250, 240 - c, 265, 230 - c, 0)
    drawdot (247, 265 - c, 0)
    drawdot (253, 265 - c, 0)
    drawarc (250, 258 - c, 5, 5, 200, 340, 0)
    drawline (0, 200, 641, 200, 7)
end for
drawoval (250, 170, 10, 10, 7)
drawline (250, 130, 250, 160, 7)
drawline (250, 130, 260, 110, 7)
drawline (250, 130, 240, 110, 7)
drawline (250, 150, 235, 140, 7)
drawline (250, 150, 265, 140, 7)
drawfilloval (247, 175, 2, 2, 7)
drawfilloval (253, 175, 2, 2, 7)
drawoval (250, 165, 3, 3, 7)
View.Update
%car
for c : 1 .. 640 by 20
    drawfillbox (1 + c, 130, 130 + c, 160, 9)
    drawfillbox (40 + c, 150, 80 + c, 180, 9)
    drawline (20 + c, 160, 40 + c, 180, 7)
    drawline (110 + c, 160, 80 + c, 180, 7)
    drawfilloval (20 + c, 120, 10, 10, 7)
    drawfilloval (110 + c, 120, 10, 10, 7)
    drawoval (87+c,166,5,5,7)
    drawdot (89+c,168,7)
    drawline (88+c,165,90+c,163,7)
    font := Font.New ("Times New Roman:25")
    Font.Draw ("Pizza", 25 + c, 135, font, 0)
    View.Update
    delay (60)
    font := Font.New ("Times New Roman:20")
    Font.Draw ("Pizza", 25 + c, 135, font, 0)
    drawfillbox (1 + c, 130, 130 + c, 160, 0)
    drawfillbox (40 + c, 150, 80 + c, 180, 0)
    drawline (20 + c, 160, 40 + c, 180, 0)
    drawline (110 + c, 160, 80 + c, 180, 0)
    drawfilloval (20 + c, 120, 10, 10, 0)
    drawfilloval (110 + c, 120, 10, 10, 0)
end for


%clears man
drawoval (250, 170, 10, 10, 0)
drawline (250, 130, 250, 160, 0)
drawline (250, 130, 260, 110, 0)
drawline (250, 130, 240, 110, 0)
drawline (250, 150, 235, 140, 0)
drawline (250, 150, 265, 140, 0)
drawfilloval (247, 175, 2, 2, 0)
drawfilloval (253, 175, 2, 2, 0)
drawoval (250, 165, 3, 3, 0)
View.Update
%dead man
drawoval (250, 140, 10, 10, 7)
drawline (260, 140, 300, 140, 7)
drawline (300, 140, 320, 150, 7)
drawline (300, 140, 320, 130, 7)
drawline (270, 140, 290, 150, 7)
drawline (270, 140, 260, 130, 7)
drawline (245, 135, 248, 138, 7)
drawline (245, 138, 248, 135, 7)
drawline (245, 142, 248, 145, 7)
drawline (245, 145, 248, 142, 7)
drawarc (260, 140, 5, 5, 140, 230, 7)
View.Update
delay (1000)


for decreasing d : 500 .. 1 by 4
    drawoval (270, 140, d, d, 12)
    View.Update
    delay (10)
end for
delay (100)
for c : 1 .. 550 by 2
    drawfilloval (270, 140, c, c, 12)
    View.Update
    delay (10)
end for

delay (1000)

%THE END
font := Font.New ("Times New Roman:40")
Font.Draw ("The End", 230, 225, font, black)

%inclosing circle
for decreasing c : 500 .. 100
    drawoval (320, 240, c, c, 7)
    View.Update
    delay (5)
end for

delay (500)
for decreasing c : 100 .. 0
    drawoval (320, 240, c, c, 7)
    View.Update
    delay (2)
end for