| %Final House Project
%By: Greg DIlts
 %
 setscreen("graphics:780;530")
 setscreen("nocursor")
 
 %Grass
 drawfillbox(0,0,780,105,green)
 
 %Sky
 drawfillbox(0,105,780,530,9)
 
 %House Outline
 drawfillbox(130,100,500,350,white)
 drawfillbox(500,100,690,370,white)
 
 %Roof
 drawline(130,350,500,350,black)
 drawline(130,350,200,440,black)
 drawline(500,350,445,440,black)
 drawline(445,440,200,440,black)
 drawfill(423,358,15,black)
 drawline(500,370,690,370,black)
 drawline(500,370,600,450,black)
 drawline(690,370,600,450,black)
 drawfill(660,371,15,black)
 drawline(270,425,330,425,black)
 drawline(270,425,300,455,black)
 drawline(330,425,300,455,black)
 drawline(286,440,314,440,15)
 drawfill(300,454,15,black)
 drawline(279,365,279,424,white)
 drawline(278,365,278,424,white)
 drawline(277,365,277,424,white)
 drawline(276,365,276,424,white)
 drawline(321,365,321,424,white)
 drawline(322,365,322,424,white)
 drawline(323,365,323,424,white)
 drawline(324,365,324,424,white)
 drawline(85,260,140,280,black)
 drawline(140,280,440,280,black)
 drawline(440,280,495,260,black)
 drawline(85,260,495,260,black)
 drawfill(200,275,15,black)
 drawline(85,260,129,250,black)
 drawline(129,250,129,260,black)
 drawfill(128,251,15,black)
 
 %Windows
 drawbox(540,270,575,330,black)
 drawline(540,300,575,300,black)
 drawline(550,330,550,300,black)
 drawline(563,330,563,300,black)
 drawbox(620,270,655,330,black)
 drawline(620,300,655,300,black)
 drawline(630,330,630,300,black)
 drawline(643,330,643,300,black)
 drawline(520,240,535,250,black)
 drawline(535,250,655,250,black)
 drawline(655,250,670,240,black)
 drawline(520,240,670,240,black)
 drawbox(520,165,670,240,black)
 drawfill(540,249,15,black)
 drawfilloval(600,378,30,30,white)
 drawfilloval(600,378,28,28,black)
 drawfillbox(560,350,630,369,white)
 drawfillbox(568,370,630,378,15)
 drawline(568,370,630,370,black)
 drawline(570,378,630,378,white)
 drawline(570,377,630,377,white)
 drawoval(600,384,7,7,white)
 drawline(593,385,573,385,white)
 drawline(607,385,627,385,white)
 drawline(595,388,583,400,white)
 drawline(605,388,617,400,white)
 drawline(600,392,600,407,white)
 drawbox(280,365,320,425,black)
 drawline(280,395,320,395,black)
 drawline(292,395,292,425,black)
 drawline(307,395,307,425,black)
 drawfill(310,400,red,black)
 drawfill(300,400,red,black)
 drawfill(282,400,red,black)
 drawfill(300,370,white,black)
 drawline(275,364,325,364,white)
 drawline(275,363,325,363,white)
 drawline(275,362,325,362,white)
 drawbox(200,285,235,340,black)
 drawline(200,310,235,310,black)
 drawline(210,310,210,340,black)
 drawline(223,310,223,340,black)
 drawfill(224,311,red,black)
 drawfill(211,311,red,black)
 drawfill(201,311,red,black)
 drawbox(360,285,395,340,black)
 drawline(360,310,395,310,black)
 drawline(370,310,370,340,black)
 drawline(383,310,383,340,black)
 drawfill(384,311,red,black)
 drawfill(371,311,red,black)
 drawfill(361,311,red,black)
 drawfillbox(200,285,185,340,black)
 drawfillbox(235,285,250,340,black)
 drawfillbox(360,285,345,340,black)
 drawfillbox(395,285,410,340,black)
 drawbox(220,188,260,248,black)
 drawline(220,215,260,215,black)
 drawline(231,215,231,248,black)
 drawline(246,215,246,248,black)
 drawfill(247,216,red,black)
 drawfill(232,216,red,black)
 drawfill(221,216,red,black)
 drawline(218,187,262,187,15)
 drawline(218,186,262,186,15)
 drawline(218,185,262,185,15)
 drawbox(320,188,360,248,black)
 drawline(320,215,360,215,black)
 drawline(331,215,331,248,black)
 drawline(346,215,346,248,black)
 drawfill(347,216,red,black)
 drawfill(332,216,red,black)
 drawfill(321,216,red,black)
 drawline(318,187,362,187,15)
 drawline(318,186,362,186,15)
 drawline(318,185,362,185,15)
 
 %Window Bars
 drawline(530,240,530,165,black)
 drawline(542,240,542,165,black)
 drawline(554,240,554,165,black)
 drawline(566,240,566,165,black)
 drawline(578,240,578,165,black)
 drawline(590,240,590,165,black)
 drawline(602,240,602,165,black)
 drawline(614,240,614,165,black)
 drawline(626,240,626,165,black)
 drawline(638,240,638,165,black)
 drawline(650,240,650,165,black)
 drawline(662,240,662,165,black)
 drawline(520,227,670,227,black)
 drawline(520,213,670,213,black)
 drawline(520,202,670,202,black)
 drawline(520,189,670,189,black)
 drawline(520,177,670,177,black)
 
 
 %Shutters
 drawfillbox(522,270,540,330,black)
 drawfillbox(575,270,593,330,black)
 drawfillbox(602,270,620,330,black)
 drawfillbox(655,270,672,330,black)
 
 %Curtains
 drawfill(653,329,red,black)
 drawfill(640,329,red,black)
 drawfill(621,320,red,black)
 drawfill(564,329,red,black)
 drawfill(551,329,red,black)
 drawfill(541,329,red,black)
 
 %Chimney
 drawline(623,430,623,455,black)
 drawline(655,401,655,455,black)
 drawline(623,455,655,455,black)
 drawline(623,430,655,401,black)
 drawfill(654,405,111,black)
 drawline(617,455,661,455,black)
 drawline(617,462,661,462,black)
 drawline(617,455,617,462,black)
 drawline(661,455,661,462,black)
 drawfill(618,458,111,black)
 
 %Siding
 drawbox(485,100,495,260,black)
 drawbox(495,100,690,165,black)
 drawbox(85,100,95,260,black)
 drawfill(91,101,white,black)
 drawline(106,175,106,255,black)
 drawline(116,175,116,253,black)
 drawline(106,255,116,253,black)
 drawline(106,175,116,175,black)
 drawfill(107,176,white,black)
 drawline(95,175,106,177,black)
 drawline(116,179,128,183,black)
 drawline(128,183,128,175,black)
 drawline(128,175,120,175,black)
 drawline(116,175,116,179,black)
 drawfillbox(120,176,128,180,white)
 drawfillbox(116,176,119,179,white)
 drawfillbox(124,176,130,182,white)
 drawline(116,180,129,183,black)
 drawbox(95,100,185,175,black)
 drawfill(109,109,white,black)
 drawbox(185,100,195,260,black)
 drawbox(195,100,285,175,black)
 drawbox(285,100,295,260,black)
 drawbox(295,100,385,175,black)
 drawbox(385,100,395,260,black)
 drawbox(395,100,485,120,black)
 drawbox(395,120,485,135,black)
 drawfillbox(410,135,470,250,111)
 drawfilloval(460,190,4,4,yellow)
 
 
 %Sun
 drawfilloval(25,494,24,24,14)
 
 %Sun Animation
 delay(300)
 procedure movecircle(x:int)
 drawfilloval(25 + x, maxy div 1.07,24,24,14)
 end movecircle
 procedure erasecircle(x:int)
 drawfilloval(25 + x, maxy div 1.07,24,24,9)
 end erasecircle
 
 for z:0..820
 movecircle(z)
 delay(15)
 erasecircle(z)
 end for
 movecircle(820 - 10)
 
 delay(500)
 %Sky
 drawfillbox(0,105,780,530,blue)
 
 %Stars
 var x,y,c:int
 var count:int:=0
 loop
 count:=count+1
 exit when count = 1000
 randint(x,0,780)
 randint(y,0,530)
 randint(c,14,14)
 drawdot(x,y,c)
 end loop
 
 %Night House
 %Grass
 drawfillbox(0,0,780,105,green)
 
 
 
 %House Outline
 drawfillbox(130,100,500,350,white)
 drawfillbox(500,100,690,370,white)
 
 %Roof
 drawline(130,350,500,350,black)
 drawline(130,350,200,440,black)
 drawline(500,350,445,440,black)
 drawline(445,440,200,440,black)
 drawfill(423,358,15,black)
 drawline(500,370,690,370,black)
 drawline(500,370,600,450,black)
 drawline(690,370,600,450,black)
 drawfill(660,371,15,black)
 drawline(270,425,330,425,black)
 drawline(270,425,300,455,black)
 drawline(330,425,300,455,black)
 drawline(286,440,314,440,15)
 drawfill(300,454,15,black)
 drawline(279,365,279,424,white)
 drawline(278,365,278,424,white)
 drawline(277,365,277,424,white)
 drawline(276,365,276,424,white)
 drawline(321,365,321,424,white)
 drawline(322,365,322,424,white)
 drawline(323,365,323,424,white)
 drawline(324,365,324,424,white)
 drawline(85,260,140,280,black)
 drawline(140,280,440,280,black)
 drawline(440,280,495,260,black)
 drawline(85,260,495,260,black)
 drawfill(200,275,15,black)
 drawline(85,260,129,250,black)
 drawline(129,250,129,260,black)
 drawfill(128,251,15,black)
 
 %Windows
 drawbox(540,270,575,330,black)
 drawline(540,300,575,300,black)
 drawline(550,330,550,300,black)
 drawline(563,330,563,300,black)
 drawbox(620,270,655,330,black)
 drawline(620,300,655,300,black)
 drawline(630,330,630,300,black)
 drawline(643,330,643,300,black)
 drawline(520,240,535,250,black)
 drawline(535,250,655,250,black)
 drawline(655,250,670,240,black)
 drawline(520,240,670,240,black)
 drawbox(520,165,670,240,black)
 drawfill(540,249,15,black)
 drawfilloval(600,378,30,30,white)
 drawfilloval(600,378,28,28,black)
 drawfillbox(560,350,630,369,white)
 drawfillbox(568,370,630,378,15)
 drawline(568,370,630,370,black)
 drawline(570,378,630,378,white)
 drawline(570,377,630,377,white)
 drawoval(600,384,7,7,white)
 drawline(593,385,573,385,white)
 drawline(607,385,627,385,white)
 drawline(595,388,583,400,white)
 drawline(605,388,617,400,white)
 drawline(600,392,600,407,white)
 drawbox(280,365,320,425,black)
 drawline(280,395,320,395,black)
 drawline(292,395,292,425,black)
 drawline(307,395,307,425,black)
 drawfill(310,400,red,black)
 drawfill(300,400,red,black)
 drawfill(282,400,red,black)
 drawfill(300,370,white,black)
 drawline(275,364,325,364,white)
 drawline(275,363,325,363,white)
 drawline(275,362,325,362,white)
 drawbox(200,285,235,340,black)
 drawline(200,310,235,310,black)
 drawline(210,310,210,340,black)
 drawline(223,310,223,340,black)
 drawfill(224,311,red,black)
 drawfill(211,311,red,black)
 drawfill(201,311,red,black)
 drawbox(360,285,395,340,black)
 drawline(360,310,395,310,black)
 drawline(370,310,370,340,black)
 drawline(383,310,383,340,black)
 drawfill(384,311,red,black)
 drawfill(371,311,red,black)
 drawfill(361,311,red,black)
 drawfillbox(200,285,185,340,black)
 drawfillbox(235,285,250,340,black)
 drawfillbox(360,285,345,340,black)
 drawfillbox(395,285,410,340,black)
 drawbox(220,188,260,248,black)
 drawline(220,215,260,215,black)
 drawline(231,215,231,248,black)
 drawline(246,215,246,248,black)
 drawfill(247,216,red,black)
 drawfill(232,216,red,black)
 drawfill(221,216,red,black)
 drawline(218,187,262,187,15)
 drawline(218,186,262,186,15)
 drawline(218,185,262,185,15)
 drawbox(320,188,360,248,black)
 drawline(320,215,360,215,black)
 drawline(331,215,331,248,black)
 drawline(346,215,346,248,black)
 drawfill(347,216,red,black)
 drawfill(332,216,red,black)
 drawfill(321,216,red,black)
 drawline(318,187,362,187,15)
 drawline(318,186,362,186,15)
 drawline(318,185,362,185,15)
 
 %Window Bars
 drawline(530,240,530,165,black)
 drawline(542,240,542,165,black)
 drawline(554,240,554,165,black)
 drawline(566,240,566,165,black)
 drawline(578,240,578,165,black)
 drawline(590,240,590,165,black)
 drawline(602,240,602,165,black)
 drawline(614,240,614,165,black)
 drawline(626,240,626,165,black)
 drawline(638,240,638,165,black)
 drawline(650,240,650,165,black)
 drawline(662,240,662,165,black)
 drawline(520,227,670,227,black)
 drawline(520,213,670,213,black)
 drawline(520,202,670,202,black)
 drawline(520,189,670,189,black)
 drawline(520,177,670,177,black)
 
 
 %Shutters
 drawfillbox(522,270,540,330,black)
 drawfillbox(575,270,593,330,black)
 drawfillbox(602,270,620,330,black)
 drawfillbox(655,270,672,330,black)
 
 %Curtains
 drawfill(653,329,red,black)
 drawfill(640,329,red,black)
 drawfill(621,320,red,black)
 drawfill(564,329,red,black)
 drawfill(551,329,red,black)
 drawfill(541,329,red,black)
 
 %Chimney
 drawline(623,430,623,455,black)
 drawline(655,401,655,455,black)
 drawline(623,455,655,455,black)
 drawline(623,430,655,401,black)
 drawfill(654,405,111,black)
 drawline(617,455,661,455,black)
 drawline(617,462,661,462,black)
 drawline(617,455,617,462,black)
 drawline(661,455,661,462,black)
 drawfill(618,458,111,black)
 
 %Siding
 drawbox(485,100,495,260,black)
 drawbox(495,100,690,165,black)
 drawbox(85,100,95,260,black)
 drawfill(91,101,white,black)
 drawline(106,175,106,255,black)
 drawline(116,175,116,253,black)
 drawline(106,255,116,253,black)
 drawline(106,175,116,175,black)
 drawfill(107,176,white,black)
 drawline(95,175,106,177,black)
 drawline(116,179,128,183,black)
 drawline(128,183,128,175,black)
 drawline(128,175,120,175,black)
 drawline(116,175,116,179,black)
 drawfillbox(120,176,128,180,white)
 drawfillbox(116,176,119,179,white)
 drawfillbox(124,176,130,182,white)
 drawline(116,180,129,183,black)
 drawbox(95,100,185,175,black)
 drawfill(109,109,white,black)
 drawbox(185,100,195,260,black)
 drawbox(195,100,285,175,black)
 drawbox(285,100,295,260,black)
 drawbox(295,100,385,175,black)
 drawbox(385,100,395,260,black)
 drawbox(395,100,485,120,black)
 drawbox(395,120,485,135,black)
 drawfillbox(410,135,470,250,111)
 drawfilloval(460,190,4,4,yellow)
 
 %Lights
 delay(500)
 drawfill(541,271,14,black)
 delay(1000)
 drawfill(541,271,white,black)
 delay(1000)
 drawfill(621,271,14,black)
 delay(1000)
 drawfill(621,271,white,black)
 delay(1000)
 drawfill(281,366,14,black)
 delay(1000)
 drawfill(281,366,white,black)
 delay(1000)
 drawfill(201,286,14,black)
 delay(1000)
 drawfill(201,286,white,black)
 delay(1000)
 drawfill(361,286,14,black)
 delay(1000)
 drawfill(361,286,white,black)
 delay(1000)
 drawfill(221,189,14,black)
 delay(1000)
 drawfill(221,189,white,black)
 delay(1000)
 drawfill(321,189,14,black)
 delay(1000)
 drawfill(321,189,white,black)
 delay(1000)
 drawfill(541,271,14,black)
 drawfill(621,271,14,black)
 drawfill(281,366,14,black)
 drawfill(201,286,14,black)
 drawfill(361,286,14,black)
 drawfill(221,189,14,black)
 drawfill(321,189,14,black)
 delay(1000)
 drawfill(541,271,white,black)
 drawfill(621,271,white,black)
 drawfill(281,366,white,black)
 drawfill(201,286,white,black)
 drawfill(361,286,white,black)
 drawfill(221,189,white,black)
 drawfill(321,189,white,black)
 
 delay(200)
 
 %Chimney Smoke
 var scount:int:=0
 loop
 exit when scount=15
 scount:=scount +1
 delay(200)
 drawfilloval(640,476,12,12,grey)
 delay(200)
 drawfilloval(658,497,8,8,grey)
 delay(200)
 drawfilloval(673,510,5,5,grey)
 delay(200)
 drawfilloval(640,476,12,12,blue)
 drawfilloval(658,497,8,8,blue)
 drawfilloval(673,510,5,5,blue)
 end loop
 
 |