Практичесl= 2;ая работа № 34

Практ&#= 1080;ческая работа № 34

«Игра&r= aquo;

Цель работы - созk= 6;ать программу – игру. Игрок управляет п = 91;шкой зенитки, его боевое задание – справиться = 89; нашествием воздушных шаров. Воздушные шары несут б= 086;мбы, которые они сбросят, как только окажутся на = 76; пушкой. Необходимо не допустит= 00; этого и уничтожить их все на подлете. Снаряды не ограничены, но следующи = 81; выстрел можно делат= 00; только посл = 77; того, как выпущенный снаряд поразит цел= 00;, упадет на землю или уйдет из зон= 099; видимости.

h= 2; игре участвуют:

· = ; воздуш&#= 1085;ые шары,

· = ; знитна&#= 1103; пушка,

· = ; пушечн&#= 1099;й снаряд,

· = ; бомба,

· = ; внешня&#= 1103; среда.

h= 4;ля шаров введе = 85; специальныl= 1; тип TBalloon., в котором содержатся данные о координатаm= 3; шара, его скорости, состоянии и цвете. Масси= 074; переменных Ball= oons типа TBalloon будет содержать полную информацию обо всех шарах. Индек= 089;ирование идет, начина= 103; с нуля. Общее число шаров = 074; массиве задается соответствm= 1;ющей константой.

i= 0;роме того, к шарам относятся константы, о= 087;ределяющие:=

· = ; количе&#= 1089;тво шаров,

· = ; их возможные цвета,

· = ; возмож&#= 1085;ую высоту над землей (всег= 086; предполагаk= 7;тся четыре уров = 85;я),

· = ; интерв&#= 1072;л между шарам = 80; и их радиус.

type

TBalloon =3D record

x, y, v, Explosion: integer;

Color: TColor;

end;

const

&= nbsp; BallCount =3D 10;
BallColors: array [0 .. 9] of TColor =3D (clRed, clGre= en, clNavy, clMaroon, clPurple, clOlive, clLime, clYellow, clFuchsia, clSilver)= ;
BallAltitude: array [0 .. 3] of integer =3D (240, 160,= 200, 120);
BallInterval =3D 40;
BallRadius =3D 15;
V =3D 150;
g =3D -9.8 * 3;
dt =3D 0.1;
var
Form1: TForm1;
x, y, Vx, Vy, BombY, BombV: double;
Angle, GunPosition, GunExplosion: integer;
Balloons: array [0 .. BallCount - = 1] of TBalloon;

h= 7;енитная пушка описываетсn= 3; переменнымl= 0;:

· = ; угол наклона пушки,

· = ; ее положение

· = ; ее состояние.

i= 5;ушечный снаряд описываетсn= 3; переменным&#= 1080;:

· = ; коорди&#= 1085;атами,

· = ; текуще&#= 1081; скоростью,

· = ; началь&#= 1085;ой скоростью при выстрел = 77;.

h= 1;омба, сбрасываемk= 2;я с воздушног = 86; шара, имеет:

· = ; коорди&#= 1085;ату,

· = ; скорос&#= 1090;ь.

h= 4;ля расчета положений объектов нужно знать ускорение падения и ша= 075; по времени.

h= 2; качестве состояния шара и пушки мы использу = 77;м переменные TBalloon. В определеннm= 9;й момент времени каждый элемент должен нахо = 76;иться в каком-то состоянии, определяющk= 7;м то, как элемент выглядит на экране. Шары и пушка могу= 090; быть боеспособнm= 9;ми, взрывающимl= 0;ся и уничтоженнm= 9;ми.

h= 5;сли Explosion =3D 0 - шар боеспособеl= 5;, если Explosion =3D 10, то он уничтожен, а значения от 1 до 9 обозначают фазы взрыва. Чтобы инициироваm= 0;ь взрыв боеспособнl= 6;го шара, нужно присвоить Explosion :=3D 1. То же самое касается и пушки.

i= 7;остояние, в котором скоро= сть снаряда равна нулю: V_{x
=3D 0 и V_y =3D 0. В этом
случае счит
=
72;ют,
что можно
сделать
новый
выстрел. Пок=
072;
же снаряд
летит (то
есть
скорость ег
=
86;
не нулевая),
новый
выстрел
сделать
нельзя.}

h= 1;омба будет сбрасыватьl= 9;я шаром, когда он поравняе = 90;ся с пушкой. Таким образом, X - ко&= #1086;рдината бомбы всегд = 72; равна X - коорд= инате пушки. Следо= 074;ательно, необходимо = 93;ранить только Y-координату бомбы. Бомба не сброшена, если BombY =3D 1000. Если B= ombY < 1000, то она счит= ;ается сброшенной = 80; начинает падать.

i= 5;оместите на форму TrackBar, Button, Image и Timer и настройте и = 93; параметры.

Timer: Interval =3D 100; Ima= ge: Width =3D 440, Heigth =3D 260; Button: Caption =3D ‘Но&#= 1074;ая игра’; TrackBar: Min =3D -= 90, Max =3D 90, Frequency =3D 10.

Image - ср= ;ажение в реальном времени. Timer - реаl= 3;ьное время. Button - зап = 91;ск новой игры.&nb= sp;TrackBar - управление зенитной пушкой.

h= 2; обработчикk= 7; нажатия на кнопку "Новая игра"= ; необходимо обнулить параметры, расставить = 87;ушку и шары. Для каждого шар = 72; устанавливk= 2;ется случайное направлениk= 7; движения: v =3D 1 или –1. В зави&= #1089;имости от направлениn= 3;, определяетl= 9;я высота, на которой находится шар (на одном и том же уров&#= 1085;е шары летят в одну сторону). По x-координате шары расставляюm= 0;ся так, чтобы они шли с при&#= 1084;ерно равным интервалом = 74; направлениl= 0; пушки из-за границ экрана.

i= 0;аждый шар Balloons[i], элемент массива Balloons, имеет тип записи TBalloon, и для того, чтобы получить до = 89;туп к его элементам, нужно писат= 00;: Balloons[i].Explosion :=3D 0, Color :=3D BallColors[random(10)] и т.д. Конс= ;трукция with B= alloons[i] do <= b>begin .. <= b>end позволяет избежать повторения.

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Caption :=3D 'Нашестk= 4;ие';
TrackBar1.Position :=3D 0;
GunPosition :=3D 170 + random(100);
Vx :=3D 0;
Vy :=3D 0;
GunExplosion :=3D 0;
for i :=3D 0 to BallCount – 1 do <= /b>
with Balloons[i] do
    begin
      if random < 0.5 then v= :=3D –1 else v :=3D 1;
      y :=3D BallAltitude[1 + v + random(2)] + random(10);
      x :=3D 220 - v * (220 + i * BallInterval + random(20));
      Explosion :=3D 0;
      Color :=3D BallColors[random(10)];
    end;
BombY :=3D 1000;
end;

h= 2; обработчик события формы OnCreate вводится датчик случайных чисел, устан= 072;вливается клиентский размер форм = 99; (ClientWidth :=3D 455; ClientHeight :=3D 315;). = Размер клиентской области формы в приложенияm= 3; определяетl= 9;я автоматичеl= 9;ки как Width и Height форм = 99; минус ширин = 72; заголовка и бордюров.

procedure TForm1.FormCreate(Sender: T= Object);
begin
Randomize;
ClientWidth :=3D 455;
ClientHeight :=3D 315;
Button1.Click;
end;

i= 5;ушка танка будет управлятьсn= 3; с помощью компонента TrackBar. Выстрел производитl= 9;я нажатием пробела на к= 083;авиатуре. При этом фокус ввода должен быть = 091; TrackBar. В обработчикk= 7; OnKeyPress реализует&= #1089;я выстрел, задавая начальную скорость и положение снаряду, а также издавая зву = 82; выстрела.

i= 5;роцедура, проигрываюm= 7;ая этот звук из wav-файла, описана в модуле, который нео = 73;ходимо подключить = 74; разделе uses. В модуле MMSystem имеется функция PlaySound, с помощью кот = 86;рой можно проигрыватn= 0; файлы wav. Для асинхронноk= 5;о воспроизвеk= 6;ения (приложение не приостан = 72;вливает работу на время воспроизвеk= 6;ения, а проигрываеm= 0; его в фоново= 084; режиме) вызо= 074; выглядит та = 82;:

PlaySoun= d(PChar('им= яфайла.wav'), 0, SND_ASYNC). =

h= 2; стандартныm= 3; звуках Microsoft Office можно подобрать з = 74;уки для выстрел = 72; и взрыва. В зависимостl= 0; от версии программы, эти файлы хранятся в C:\Windows\Media\ Microsoft Office 2000, C:\Program Files\Microsoft Office\Office\Media или в какой-то подобной папке. Найди= 090;е звуки для выстрела (условно назовем GunShot.wav) и взрыва (условно назовем Explode.wav) и скопируйте = 80;х в папку, в которой сохранен проект.

procedure TForm1.Trac= kBar1KeyPress(Sender: TObject; var Key: Char);
var
i: integer;
begin
if (Key =3D ' ') and (Vx =3D 0) and (Vy =3D 0) = and (GunExplosion =3D 0) then
begin
    try
      PlaySound(PChar('GunShot.wav'), 0, SND_ASYNC= );
    except
   end;
Vx :=3D V * Sin(Angle * pi / 180);
Vy :=3D V * Cos(Angle * pi / 180);
x :=3D GunPosition + 15 * Sin(Angle * pi / 180);
y :=3D 20 + 15 * Cos(Angle * pi / 180);
end;
if (Key =3D 'Q') then
begin
    try
      PlaySound(PChar('Explode.wav'), 0, SND_ASYNC);
   except
end;
    for i :=3D 0 to BallCount - 1 = do
      if Balloons[i].Explosion =3D 0 then
      Balloons[i].Explosion :=3D 1;
      Caption :=3D 'Ун = 80;чтожен';
end;
end;

h= 2; обработчикk= 7; изменения положения бегунка TrackBar меняем наклон пушк = 80;.

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Angle :=3D TrackBar1.Position;
end;

Выс= 090;рел происходит, если:
   1) нажат пробел;
   2) снаряд готов (V_x =3D 0) и (V_{y<=
/sub>
=3D 0);

   3) пушка
боеспособнk=
2;
(GunExploion =3D 0).}

i= 5;роцедура MoveAll, вызываема= 103; каждый такт таймера, отвечает за то, чтобы все процессы шл = 80; своим чередом. Вставьте ее сразу послk= 7; implementation.<= /span>

procedure MoveAll;
var i: integer;
begin
for i :=3D 0 to BallCount - 1 do
with Balloons[i] do
if Explosion =3D 0 then
x :=3D x + v
    else begin
      if Explosion < 10 then=
      inc(Explosion);
    end;
if (Vx <> 0) or (Vy <> 0) then
begin
    x :=3D x + Vx * dt;
    y :=3D y + Vy * dt;
    Vy :=3D Vy + g * dt;
end;
    if BombY < 1000 then
    begin
      BombY :=3D BombY + BombV * dt;
      BombV :=3D BombV + g * dt
   end;
      if (GunExplosion > 0) and (= GunExplosion < 10) then
      inc(GunExplosion);
    end;

i= 5;роцедура пододвигаеm= 0; все шары, которые жив = 99; (у них Explosion =3D 0), в направлениl= 0; вектора их скорости. Остальные шары, если они находятся в фазе взрыва (0 = < Explosion < 10), переходят в следующую фазу.

h= 5;сли снаряд выпущен (Vx <> 0) или (Vy <> 0), то его координата = 80; скорость изменяются согласно законам природы.

h= 5;сли бомба сброшена (BombY < 1000), то она также подчиняетсn= 3; закону всемирного тяготения.

h= 5;сли танк находится в фазе взрыва (0 = < GunExplosion < 10), он переходит в следующую фазу.

i= 4;шибки, возникающиk= 7; в обработчикk= 7; таймера или процедурах, которые вызываются из обработч = 80;ка, не останавливk= 2;ют таймер и, значит, чере= 079; секунду возникают опять. Чтобы их останови = 90;ь, приходится использоваm= 0;ь Ctrl-Alt-Del…

h= 2; этой процедуре м = 99; работаем с массивом. Од= 085;ой из самых частых ошибок, которые не так-то прост= 086; найти, является выход за границы массива. Дл= 103; предотвращk= 7;ния подобных си = 90;уаций включите проверку на выход из диапазона д = 86;пустимых значений (Project =3D> O= ptions =3D> Compiler =3D> Runtime errors =3D> Range checking), которая по умолчани= 02; отключена.

i= 5;еремещения сами по себе могли бы продолжатьl= 9;я бесконечно. = 053;еобходимо проконтролl= 0;ровать:

= · не попал ли снаряд в шар, следователn= 0;но, взорвать ег = 86;;

= · не уничтожены ли все шары, следователn= 0;но, выдать надпись о победе;

= · не поравнялся ли шар с пушк&#= 1086;й, следователn= 0;но, сбросить бомбу;

= · не упал ли снаряд и не вышел ли он из зоны ко&#= 1085;троля, следователn= 0;но, перезарядиm= 0;ь пушку;

= · не упала ли бомба на пуш= 082;у, следователn= 0;но, закончить игру.

h= 4;ля контроля за передвиженl= 0;ями предусмотрk= 7;на процедура:

procedure CheckCollisions;
var
i, j: integer;
HappyEnd: boolean;
begin
for i :=3D 0 to BallCount - 1 do
with Balloons[i] do
begin
    if (Explosion =3D 0) then
    begin
      if (sqr(x - Unit1.x) + sqr(y - Unit1.= y) < sqr(BallRadius)) then
      begin
        try
          PlaySound(PChar('Explode.wav'), 0, SND_ASYNC);
        except end;         Explosion :=3D 1;
        Unit1.x :=3D 0;
        Unit1.y :=3D 0;
        Unit1.Vx :=3D 0;
        Unit1.Vy :=3D 0;
        HappyEnd :=3D (GunExplosion= =3D 0);
        for j :=3D 0 to BallCount - 1 do
        HappyEnd :=3D HappyEnd a= nd (Balloons[j].Explosion > 0);
          if HappyEnd then
          Form1.Caption :=3D '= Победа!';
    end;
      if (x =3D GunPosition) and (Bo= mbY =3D 1000) and (GunExplosion =3D 0) then
      begin
        BombY :=3D y - BallRadius - 5;         BombV :=3D 0;
    end;
    end;
end;
if (y < 0) or (x < 0) or (x > 440) = then
begin
    x :=3D 0;
   y :=3D 0;
    Vx :=3D 0;
    Vy :=3D 0;
end;
if BombY < 10 then
begin
    BombY :=3D 1000;
    GunExplosion :=3D 1;
    try
    PlaySound(PChar('Explode.wav'), 0, SND_ASYNC);
    except end;
    Form1.Caption :=3D 'Увы...';
end;
end;

h= 2; этом блоке возможная ошибка связана с ис= 087;ользование&= #1084; with … do begin … end.

X-= 082;оордината снаряда хранится в глобальной переменной x, X-координата воздушного шара – в переменной Balloons[i].x. Однако когда пишут код внутри with Balloons[i] do begin … end, то именно к координате шара обраща= 02;тся просто как к x. Если нужно добраться д = 86; глобальной переменной, то теперь уж= 077; перед ней нужно ставить уточнение: Unit1.x, где Unit1 – имя модуля.

i= 6;исование отдельных элементов баталии так = 78;е разумно поместить в специализиl= 8;ованные для этого процедуры.

j= 1;удожествен= 085;ые образы шаро = 74;, пушки и взрыва передаются = 89; помощью процедур:

procedure DrawBalloon(x, y: integer; = Color: TColor);
begin
with Form1.Image1.Canvas do
begin
    Pen.Color :=3D clBlack;
    Brush.Color :=3D Color;
    Ellipse(x - BallRadius, y - BallRadius, x + BallRadius, = y + BallRadius);
    Pen.Color :=3D clWhite;
    Brush.Color :=3D clWhite;
    Ellipse(x - BallRadius div 2 - 3, y - BallRadius = div 2 - 3, x - BallRadius div 2 + 3, y - BallRadius div 2 + 3);     Pen.Color :=3D clBlack;
    Brush.Color :=3D clOlive;
    Rectangle(x - 5, y + BallRadius + 5, x + 5, y + BallRadi= us + 10);
    MoveTo(x - 5, y + BallRadius + 5);
    LineTo(x - BallRadius, y);
    MoveTo(x, y + BallRadius + 5);
    LineTo(x, y);
    MoveTo(x + 5, y + BallRadius + 5);
    LineTo(x + BallRadius, y);
end;
end;
procedure DrawGun;
begin
with Form1.Image1.Canvas do
begin
    if (Vx =3D 0) and (Vy =3D 0) then     Pen.Color :=3D RGB(0, 70, 0) else Pen.Color :=3D = clBlack;
    Brush.Color :=3D Pen.Color;
    Pen.Width :=3D 5;
    MoveTo(GunPosition, 240);
    LineTo(GunPosition + round(15 * sin(Angle * pi / 180)), = 240 - round(15 * cos(Angle * pi / 180)));
    Pen.Width :=3D 1;
    Ellipse(GunPosition - 8, 232, GunPosition + 8, 248);
    Rectangle(GunPosition - 10, 240, GunPosition + 10, 260);=
end;
end;
Процедура DrawExplosion = обеспечивk= 2;ет достm= 1;п к координа = 90;ам снарn= 3;да.

procedure DrawExplosion(x, y, Phase: integer);
var
i, xx, yy, Size: integer;
a, b: double;
begin
  with Form1.Image1.Canvas do
  for i :=3D 0 to Phase * 10 do
begin
    a :=3D random * 2 * pi;
    b :=3D random * sqr(Phase) / 3 + 5;
    xx :=3D x + round(l * sin(a));
    yy :=3D y + round(l * cos(a));
    Size :=3D round(sqr(10 - Phase) / 8 + 2);
    Pen.Color :=3D RGB(random(100), 0, 0);
    Brush.Color :=3D Pen.Color;
    Ellipse(xx - random(Size) - 1, yy - random(Size) - 1, xx= + random(Size), yy + random(Size));
end;
end;

i= 0;роме того, пушка меняет цвет, когда готов очередной с = 85;аряд. В довершени = 77;, нужно соединить все написан = 85;ое воедино.

i= 5;роцедуры рисования объединяютl= 9;я в процедуре, рисующей вс = 77; поле боя:

·    небо,

·    шары,

·    пушка,

·    ядро,

·    бомба.

Объ = 77;динять все вместе обработчик таймера.

procedure DrawBattleField;
var
i: integer;
begin
with Form1.Image1.Canvas do
for i :=3D 0 to 259 do
begin
    Pen.Color :=3D RGB(i div 2, i div 2, 255);
    MoveTo(0, i);
    LineTo(440, i);
end;
for i :=3D 0 to BallCount - 1 do
with Balloons[i] do
if Explosion =3D 0 then DrawBalloon(x, 260 - y, C= olor) else if Explosion < 10 then DrawExplosion(x, 260 - y, Explosi= on);
if GunExplosion =3D 0 then DrawGun else if GunExplosion < 10 then DrawExplosion(GunPosition, 240, GunExplosion);
with Form1.Image1.Canvas do
begin
    Pen.Color :=3D clMaroon;
    Brush.Color :=3D clRed;
    if (Vx <> 0) or (Vy <> 0) t= hen Ellipse(round(x) - 2, 260 - round(y) - 2, round(x) + 3, 260 - round(y) + 3)= ;
    if (BombY <> 1000) then Ellipse(GunPosition - 2, 260 - round(BombY) - 2, GunPosition + 3, 260 - round(BombY) + 3);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
MoveAll;
CheckCollisions;
DrawBattleField;
end;

=