fidel

View.Set("graphics:max,max")
%sky
for x :0 .. maxx by 1

drawline (x,300,x,maxx,blue)
end for

drawfillbox (300,300,500,300,brown)
drawfillbox (300,300,300,430,brown)
drawfillbox (300,430,500,430,brown)
drawfillbox (500,300,500,430,brown)

%door
drawfillbox (350,300,450,400,red)
drawfilloval (360,350,10,10,yellow)

%roof
drawline (280,430,500,430,brown)
drawline (280,430,400,500,brown)
drawline (400,500,500,430,brown)
drawline (400,500,488,503,brown)
drawline (488,503,550,445,brown)

%side
drawline (500,430,550,445,brown)
drawline (550,445,550,325,brown)
drawline (500,300,550,325,brown)

%tree
drawfillbox (700,300,720,320,brown)
%grass
for x :0 .. maxx by 1

drawline (x,300,x,15,green)
end for


%dude
drawfilloval (250,300,20,20,yellow)
drawline (250,300,250,250,yellow)
drawline(250,250,225,225,yellow)
drawline(250,250,275,275,yellow)

drawline(275,275,275,250,yellow)
drawline(250,270,210,240,yellow) 
drawline(250,270,270,290,yellow)
 %star mouse
 var mx,my,mb:int
 loop
 mousewhere (mx, my , mb)
if mb = 1 then
drawfillstar (mx - 10, my - 10 , mx + 10, my + 10,yellow)
end if
end loop