(* Nice Line Effect done by Zulu & Grey of Rebels *)

Program DoItYourSelf_HausBau;

uses     graph,crt;

const    xstart=20;
         ystart=30;
         xstop=630;
         ystop=400;

var      x1,y1,x2,y2,color,number,realline,point,high,length:integer;
         treib,modus:integer;
         maxx:word;
         taste:char;


begin                            
         clrscr;

         randomize;

         treib:=detect;
         initgraph(treib,modus,'a:\tp');

         color:=random(15-1);
         setcolor(color);
         line(xstart,ystop,xstart,ystart);
         line(xstart,ystart,xstop,ystart);
         color:=random(15-1);
         setcolor(color);
         line(xstop,ystart,xstop,ystop);
         line(xstop,ystop,xstart,ystop);

         realline:=(ystop-ystart)+(xstop-xstart);
         high:=ystop-ystart;
         length:=xstop-xstart;

         repeat

         color:=random(15-1);
         setcolor(color);

         point:=random(realline);

         if point<=high then begin
                             x1:=xstart+1;
                             y1:=ystart+1+point;
                             if y1>=ystop then y1:=ystop-1;
                             end;

         if point>high then begin
                            x1:=xstart+1+point-high;
                            y1:=ystart+1;
                            if x1>=xstop then x1:=xstop-1;
                            end;

         point:=random(realline);

         if point>high then begin
                            x2:=xstart+1+point-high;
                            y2:=ystop-1;
                            if x2>=xstop then x2:=xstop-1;
                            end;

         if point<=high then begin
                             x2:=xstop-1;
                             y2:=ystart+1+point;
                             if y2>=ystop then y2:=ystop-1;
                             end;
         (* sound(2000+x1+x2+y1+y2); *)
         line(x1,y1,x2,y2);
         delay(10);
         (*nosound;*)

         until keypressed;

         closegraph;
end.