%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
 
  |