Unit1. pas

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, sSkinManager, ComCtrls, sStatusBar, ExtCtrls, sBevel, sPanel,

StdCtrls, sButton;

type

TForm1 = class (TForm)

StatusBar1: TStatusBar;

Panel1: TPanel;

Bevel1: TBevel;

Panel2: TPanel;

Panel3: TPanel;

Button1: TButton;

Panel4: TPanel;

Timer1: TTimer;

Image1: TImage;

procedure Timer1Timer (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure FormCreate (Sender: TObject);

procedure FormKeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

type

TSprite = record

X,Y: Integer;

VectorX, VectorY: Integer;

FactorA, FactorB: Real;

Speed: Integer;

Graphic: TBitmap;

end;

TRocket = record

X,Y: Integer;

Graphic: TBitmap;

Destroed: Boolean;

end;

const

Number = 10;

var

Form1: TForm1;

IntegralZero: Integer = 0;

Killed: Integer = 0;

Sum25: array [1. Number] of TSprite;

Turel: TSprite;

Rocket: TRocket;

Implementation

{$R *. dfm}

procedure FillZap (Integral: integer);

begin

Sum25 [Integral]. X: = Random (Form1. Image1. Width - 35);

Sum25 [Integral]. Y: = - 1;

Sum25 [Integral]. VectorX: = Random (Form1. Image1. Width div 2);

Sum25 [Integral]. VectorY: = Form1. Image1. Height + 10;

Sum25 [Integral]. FactorB: = Sum25 [Integral]. X;

Sum25 [Integral]. FactorA: = Sum25 [Integral]. VectorX/Sum25 [Integral]. VectorY;

end;

procedure Collision;

var

Integral: Integer;

begin

for Integral: = 1 to Number do

begin

if (Rocket. X > Sum25 [Integral]. X) and (Rocket. X < (Sum25 [Integral]. X + Sum25 [Integral]. Graphic. Width)) and (Rocket. Y < (Sum25 [Integral]. Y + Sum25 [Integral]. Graphic. Height)) and (Rocket. Y > Sum25 [Integral]. Y) then

begin

Rocket. Destroed: = True;

Rocket. Y: = Form1. Image1. Height + 10;

Inc (Killed);

FillZap (Integral);

end;

end;

end;

procedure Calc;

var

Integral: Integer;

begin

for Integral: = 1 to Number do

begin

if Sum25 [Integral]. Y > Form1. Image1. Height then

begin

FillZap (Integral);

end;

Sum25 [Integral]. X: = Round (Sum25 [Integral]. Y * Sum25 [Integral]. FactorA + Sum25 [Integral]. FactorB);

Inc (Sum25 [Integral]. Y, Random (10));

end;

if Rocket. Destroed <> True then

begin

Dec (Rocket. Y,

10);

end;

if Rocket. Y < - 10 then

begin

Rocket. Destroed: = True;

Rocket. Y: = Form1. Image1. Height + 10;

end;

end;

procedure ClearScreen;

begin

Form1. Image1. Canvas. Brush. Color: = clBlack;

Form1. Image1. Canvas. FillRect (Form1. Image1. Canvas. ClipRect);

Form1. Image1. Picture. LoadFromFile ('graph\space. bmp');

end;

procedure LoadImages;

var

Integral: Integer;

begin

for Integral: = 1 to Number do

begin

Sum25 [Integral]. Graphic: = TBitmap. Create;

Sum25 [Integral]. Graphic. LoadFromFile ('graph\samolet1. bmp');

Sum25 [Integral]. Graphic. TransparentColor: = clRed;

Sum25 [Integral]. Graphic. Transparent: = True;

end;

Turel. Graphic: = TBitmap. Create;

Turel. Graphic. LoadFromFile ('graph\turel. bmp');

Turel. Graphic. TransparentColor: = clRed;

Turel. Graphic. Transparent: = true;

Turel. X: = Turel. Graphic. Width + 10;

Turel. Y: = 521 - Turel. Graphic. Height;

Rocket. Graphic: = TBitmap. Create;

Rocket. Graphic. LoadFromFile ('graph\bullet. bmp');

Rocket. Graphic. TransparentColor: = clWhite;

Rocket. Graphic. Transparent: = True;

Rocket. Y: = Form1. Image1. Height + 10;

Rocket. Destroed: = True;

end;

procedure DrawScene;

var

Integral: Integer;

begin

for Integral: = 1 to Number do

begin

Form1. Image1. Canvas. Draw (Sum25 [Integral]. X, Sum25 [Integral]. Y, Sum25 [Integral]. Graphic);

end;

Form1. Image1. Canvas. Draw (Turel. X, Turel. Y, Turel. Graphic);

Form1. Image1. Canvas. Draw (Rocket. X, Rocket. Y, Rocket. Graphic);

end;

procedure PreCache;

var

Integral: Integer;

begin

for Integral: = 1 to Number do FillZap (Integral);

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

Calc;

Collision;

ClearScreen;

DrawScene;

Panel4. Caption: = 'Сбито ' + IntToStr (Killed) + ' самолетов';

if Killed >= 100 then

begin

Panel4. Caption: = 'Вы выйграли';

Timer1. Enabled: = False;

Button1. Enabled: = True;

Killed: = 0;

end;

end;

procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Timer1. Enabled: = False;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

Randomize;

LoadImages;

PreCache;

ClearScreen;

end;

procedure TForm1. FormKeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

case Key of

VK_LEFT:

begin

if Turel. X > 0 then

begin

Dec (Turel. X,

10);

end;

end;

VK_RIGHT:

begin

if Turel. X < Image1. Width - Turel. Graphic. Width then

begin

Inc (Turel. X,

10);

end;

end;

VK_SPACE:

begin

if Rocket. Destroed then

begin

Rocket. Destroed: = False;

Rocket. X: = Turel. X + Turel. Graphic. Width div 2;

end;

end;

VK_ESCAPE:

begin

Timer1. Enabled: = False;

Button1. Enabled: = True;

end;

VK_RETURN:

begin

Button1. Enabled: = False;

Timer1. Enabled: = True;

end;

end;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

Button1. Enabled: = False;

Timer1. Enabled: = True;

end;

end.