procedure Vystrel(L:integer); {procedura prorisovki vystrela}
var X,Y,X0,Y0:integer;
k:longint;
t:real;
FillInfo:FillSettingsType;
OldPattern:FillPatternType;
Begin
X0:=10+trunc(80*cos(pi*(90-L)/180)); {nachalnaya tochka vyhoda snaryada}
Y0:=-10+GetMaxY-trunc(80*sin(pi*(90-L)/180));
Y:=Y0;
t:=0;
L:=90-L;
k:=0;
while (y<480)and(y>0) do {granici ekrana}
begin
t:=t+0.03;{t-dlya vychislenie pologeniya snaryada param uravnenie}
inc(k);
if k mod 10=0 then
Cell(0); {zapusk dvigeniya celi}
X:=X0+trunc(v0*t*cos(pi*L/180)); {prochitivaem sled tochku poleta snaryada}
Y:=Y0-trunc(v0*t*sin(pi*L/180))+trunc(5*t*t);
If (abs((XC-15)-X)<20)And(abs(H1-Y)<15) then {esli popali v cell}
begin
C:=Black;
Vzriv(X,Y);{vzriv}
break;{ostanovka snaryada}
end;
SetColor(White);
Sector(X,Y,0,360,3,3);
delay(100);
GetFillSettings(Fillinfo); {prorisovka poleta snaryada}
SetFillPattern(OldPattern,Black);
SetColor(black);
Sector(X,Y,0,360,3,3); {risuem malenkiy krug}
with FillInfo do
SetFillStyle(Pattern, Color); {zakrashivaem}
if k mod 10 =0 then
Cell(0); {zapusk dvigeniya celi}
end;
End;
Теги !
klem4
