FREE PASCAL改良版射击游戏(2)

end;
if (ch='0')and(xz2=0) then
begin
xz2:=37;
yz2:=y2;
end;
end;{end of keyprssed}
if (t1 mod 1=0)and(xz1<>0) then
begin
if xz1>38 then
begin
gotoxy(xz1,yz1);
write(' ');
if yz1=y2 then Over(2);
xz1:=0;
yz1:=0;
end
else
begin
for jj:=1 to 30 do
begin
gotoxy(xz1,yz1);
end;
writeln(' ');
inc(xz1);
end;
end;
{play2}
if (t1 mod 2=0)and(xz2<>0) then
begin
if xz2<2 then
begin
gotoxy(xz2,yz2);
write(' ');
if yz2=y1 then Over(1);
xz2:=0;
yz2:=0
;
end
else
begin
gotoxy(xz2-1,yz2);
write('. ');
dec(xz2);
end;
end;
end;{end of while}
end; {end of go}
begin
//start;
go;
end.