procedure progectile(x:integer); var i:integer; begin; for i:=30 to windowheight+30 do begin; setpencolor(clwhite); circle(x,i-1,4); setpencolor(clred); circle(x,i,2); sleep(10); end; end;
begin; maximizewindow; for i:=2 to windowwidth do begin; setpencolor(clwhite); rectangle(i-1,18,i+5,24); setpencolor(clblue); line(i,20,i+10,20); line(i+5,20,i+3,18); line(i+5,20,i+3,22); sleep(100); if i mod 30=0 then progectile(i); end; end.
var i:integer;
procedure progectile(x:integer);
var i:integer;
begin;
for i:=30 to windowheight+30 do
begin;
setpencolor(clwhite);
circle(x,i-1,4);
setpencolor(clred);
circle(x,i,2);
sleep(10);
end;
end;
begin;
maximizewindow;
for i:=2 to windowwidth do
begin;
setpencolor(clwhite);
rectangle(i-1,18,i+5,24);
setpencolor(clblue);
line(i,20,i+10,20);
line(i+5,20,i+3,18);
line(i+5,20,i+3,22);
sleep(100);
if i mod 30=0 then progectile(i);
end;
end.