setscreen ("graphics:max,max,offscreenonly")



colorback (black)
var row, column : int
var x : int
x := 1
cls





var v : int
var u : int
var c : int
var count : int
var g : int
var k : int


loop


    %-------------------------------------------------------------------------HOUSE
    g := 1300
    k := 600

    Draw.FillBox (150, 50, 400, 250, brightred)     %Main house box
    Draw.FillBox (401, 50, 620, 160, brightgreen)   %Garage
    Draw.FillBox (420, 50, 601, 140, brightblue)    %Garage Door

    Draw.FillBox (350, 140, 300, 170, grey)         %Main house window Right side
    Draw.FillBox (200, 140, 250, 170, grey)         %Main house window Left side
    Draw.FillBox (1800, 1, 1, 50, green)            % Road in front
    Draw.FillBox (250, 110, 200, 50, grey)          %Door
    drawfillbox (205, 250, 250, 450, red)           %Chiminy



    delay (1)
    %--------------------------------------------------------------------------^^^^^HOUSE END
    %--------------------------------------------------------------------------ROOF
    var h : array 1 .. 4 of int := init (150, 400, 270, 10)
    var d : array 1 .. 4 of int := init (250, 250, 400, 10)
    Draw.FillPolygon (h, d, 3, 1)
    %---------------------------------------------------------------------------ROOF END
    loop
        %---------------------------------------------------------------------------STARS
        delay (100)
        randint (row, 1, 20)
        randint (column, 1, 158)
        locate (row, column)
        color (white)
        put "*"



        %----------------------------------------------------------------------------STARS END
        %----------------------------------------------------------------------------moon start
        g := g - 25
        k := k + 5



        Draw.FillOval (g, k, 30, 30, white)
        View.Update
        Draw.FillOval (g, k, 30, 30, black)






        %-----------------------------------------------------------------------------moon end
        %-----------------------------------------------------------------------------smoke start

        var counter := 1

        var Pic1 : int
        var Pic2 : int
        var y:int
        x:= 50
        y:=20
        loop
            Pic1 := Pic.FileNew ("smoke1.bmp")
            Pic2 := Pic.FileNew ("smoke2.bmp")

            counter := (counter + 1) mod 2
            if counter = 1 then
                Pic.Draw (Pic1, x, y, picMerge)
            else
                Pic.Draw (Pic2, x, y, picMerge)
            end if
        end loop

    end loop
end loop

                Pic.Draw (Pic1, x, y, picMerge)

drawfillbox (205, 250, 250, 450, red)           %Chiminy

        x:= 205
        y:= 450