samochodzik

program grafika;
uses GRAPH,CRT;
var
ster,tryb:integer;
a:char;
x,y,x2,y2:integer;
wyszZa : byte;
fillinfo:FillSettingsType;
kolor : word;
procedure plansza(ktora : byte);
begin
case ktora of
1: begin
   ellipse(300,240,0,360,180,220);
   ellipse(300,240,0,360,100,120);
   setfillstyle(1,green);
   floodfill(320,240,white);
   floodfill(1,1,white);
   line(120,240,200,240);
end;
end;
end;
procedure mozliwe(s,t : integer);
var i,j : byte;
begin i:=0;
s:=x2-x-9;
REPEAT
i:=i+1;j:=0;t:=y2-y-9;
       REPEAT
       putpixel(s,t,12);
       j:=j+1;t:=t+9;
       UNTIL j=3;
s:=s+9;
UNTIL i=3;
end;
procedure all;
begin
x2:=160;
y2:=240;
repeat
mozliwe(x2,y2);
a:=readkey;
case a of
'q':begin y:=y+10; x:=x+10; end;
'w':begin y:=y+10; end;
'e':begin y:=y+10; x:=x-10; end;
'a':begin x:=x+10; end;
's':begin y:=y+0; x:=x+0; end;
'd':begin x:=x-10; end;
'z':begin y:=y-10; x:=x+10; end;
'x':begin y:=y-10; end;
'c':begin y:=y-10; x:=x-10; end;
end;

if getpixel(x2-x,y2-y)<>0 then
begin wyszZa:=1; end;
setlinestyle(dottedln,0,3);
line(x2,y2,x2-x,y2-y);
setlinestyle(0,0,1);
x2:=x2-x;
y2:=y2-y;
if wyszZa=1 then begin
x:=0; y:=0;
wyszza:=0;
end;
circle(x2,y2,3);
until a='b';
end;
Begin
ster:=VGA;  tryb:=VGAHi;
InitGraph(ster, tryb, 'd:\bgi');plansza(1);
all;
closegraph;
end.