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



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




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


    loop


        %-------------------------------------------------------------------------HOUSE
        g := 1300
        k := 600
        %              x1  y1  x2   y2    color
        Draw.FillBox (150, 50, 400, 250, brightred) %Main house box
        Draw.FillBox (501, 50, 620, 150, brightgreen) %Garage
        Draw.FillBox (520, 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



        View.Update
        delay (1)
        %--------------------------------------------------------------------------^^^^^HOUSE END
        %--------------------------------------------------------------------------ROOF                                                                         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 (1)
            randint (row, 1, 15)
            randint (column, 1, 158)
            locate (row, column)
            color (white)
            put "*"


            %----------------------------------------------------------------------------STARS END
            %----------------------------------------------------------------------------moon start
            g := g - 1
            k := 1 + 500

            Time.Delay (5)
            Draw.FillOval (g, k, 30, 30, white)
            View.Update


            Draw.FillOval (g, k, 30, 30, black)
            exit when g = 1

            %-----------------------------------------------------------------------------moon end

         




        end loop
    end loop
end loop

g := g -1

g := g -5

..
%line 53
randint (column, 1, 158)
locate (row, column)
color (white)
put "*"
..

randint (column, 1, 15)