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