Описание процедур в игре "Сбей самолет"

uses ABCObjects,Events,GraphABC,Timers,Utils;
 
{Î Ï È Ñ À Í È Å   Ï Å Ð Å Ì Å Í Í Û Õ}
var
kLeftKey,kRightKey: boolean;  {Клавиши влево, вправо}
kSpaceKey: integer; {Клавиша пробел}
StaticObjectsCount: integer; {Начальное число объектов}
Player: PictureABC;  {Объект рисунок}
EndOfGame,LifeDesc,CrObj,Win,HvPul,ScrCh: boolean;
r1: RectangleABC; {Объект прямоугольник}
LevelABC,LifesABC,DestrABC,GameABC,WinABC: TextABC; {Текстовые переменные : уровень, жизней, сбито"}
life,t,np,lvl,sb,CrEn,game,WinGame:integer;{Переменные: количество жизней, таймер, очки, уровень, количество сбитых самолетов}
Stat:TextABC;
nextube:array[1..6] of string;
 
{- - - - - - - - - - - - - - - - - - - -}
 
type
  KeysType=(kLeft,kRight);
  
  Pulya=class(PictureABC)                          { Описание класса ПУЛЯ }
    constructor Create(x,y: integer; fname:string);
    var j:integer;
    begin
    For j:=1 to ObjectsCount do                 {лимит на запуск ракет}
    if objects[j] is Pulya then
    HvPul:=false
    else                                        {}
    HvPul:=true;
     if HvPul=true then
      begin
      inherited Create(x,y,'E:/g/objects/roket.bmp');
      dx:=0; dy:=-(14-(2-lvl*2));
      end;
    end;
    
    {ДВИЖЕНИЕ ПУЛИ:} 
    procedure Move;
    var j: integer;
    begin
      inherited Move;
      if Top<35 then
      begin
        Visible:=False;
      end;
      for j:=StaticObjectsCount+2 to ObjectsCount do
        if (Objects[j]<>Self) and Intersect(Objects[j]) then     {попадание в самолет}
        begin
          Objects[j].Visible:=False;
          Visible:=False;
          CrEn:=1;
          np:=np+50;                       {+очки }
          CrObj:=false;
          sb:=sb+1;                      {+сбитый самолет}
          if (sb mod 5)=0 then            {Условие на повышение ЛВЛ}
           begin
            inc(lvl);
            ScrCh:=True;
            end;
          if random(11)+1=5 then
           begin
            np:=np+75;
            inc(life);
           end;
        end;
    end;
  end;
  
 { ОПИСАНИЕ САМОЛЕТОВ }
 Enemy=class(PictureABC)
    constructor Create(x,y: integer; fname:string);
    begin
      inherited Create(x,y,'E:/g/objects/plane2.bmp');
      end;
      
 { ДВИЖЕНИЕ САМОЛЕТОВ }
  procedure Move;
    begin
      dx:=6+lvl;
      if (dx<0) then
        dx:=-dx;
      inherited Move;
      if Left+60>WindowWidth+0 then
       begin
        LifeDesc:=True;
        Visible:=false;
        CrEn:=1;
        CrObj:=false;
       end;
    end;
  end;
  
  { КОЛИЧЕСТВО ПРОТИВНИКОВ НА ЭКРАНЕ }
function NumberOfEnemies: integer;
var i: integer;
begin
  Result:=0;
  for i:=1 to ObjectsCount do
    if Objects[i] is Enemy then
      Inc(Result);
end;
 
{ КОЛИЧЕСТВО ЖИЗНЕЙ }
function NumLife(pp:integer):integer;
begin
if LifeDesc then
 begin
  dec(pp);
  LifeDesc:=false;
 end;
numlife:=pp;
end;
 
{ СОЗДАТЬ ОБЪЕКТЫ  }
procedure CreateObjects;
var
  r1: PictureABC;
  r2: PictureABC;
begin
if CrObj=true then
    begin
     Player:=PictureABC.Create(WindowWidth div 2,WindowHeight-60,'E:/g/objects/player2.bmp');
     CrObj:=false;
    end;
if CrEn=1 then
 begin
  r1:=Enemy.Create(-120,70,'E:/g/objects/plane2.bmp');
  CrEn:=2;
 end;
 if CrEn=2 then
  begin
   r2:=Enemy.Create(-360,95,'E:/g/objects/plane2.bmp');
   CrEn:=0;
  end;
end;
 
 { ДВИЖЕНИЕ ВРАГОВ }
 procedure MoveObjects;
var i: integer;
begin
  for i:=StaticObjectsCount+2 to ObjectsCount do
    Objects[i].Move;
end;
 
{ УНИЧТОЖЕНИЕ УБИТЫХ ОБЪЕКТОВ }
procedure DestroyKilledObjects;
var i: integer;
begin
  for i:=ObjectsCount downto StaticObjectsCount+2 do
    if not Objects[i].Visible then
      Objects[i].Destroy;
end;
 
{ УНИЧТОЖЕНИЕ ВСЕХ ОБЪЕКТОВ }
procedure DestroyObjects;
var i: integer;
begin
  for i:=ObjectsCount downto StaticObjectsCount+1 do
    Objects[i].Destroy;
end;
 
{ СОБЫТИЕ: НАЖАТИЕ КЛАВИШИ }
procedure KeyDown(Key: integer);
begin
  case Key of
vk_Left:  kLeftKey:=True;
vk_Right: kRightKey:=True;
vk_Space: if kSpaceKey=2 then kSpaceKey:=1;
  end;
end;
 
{ СОБЫТИЕ: ОТЖАТИЕ КЛАВИШИ }
procedure KeyUp(Key: integer);
begin
  case Key of
vk_Left:  kLeftKey:=False;
vk_Right: kRightKey:=False;
vk_Space: kSpaceKey:=2;
  end;
end;
 
{ ТАЙМЕР }
procedure Timer1;
var
  i,j,n: integer;
  p: Pulya;
begin
if ScrCh=true then begin
  FillWindow(nextube[random(5)+1]);
  ScrCh:=false;
  end;
  if kLeftKey and (Player.Left>0) then
  begin
    Player.MoveOn(-15,0);
  end;
  if kRightKey and (Player.Left+Player.Width<WindowWidth) then
  begin
    Player.MoveOn(15,0);
  end;
  if kSpaceKey=1 then
  begin
    p:=Pulya.Create(Player.Left-5+Player.Width div 2,Player.Top+10,'E:/g/objects/roket.bmp');
    kSpaceKey:=0;
  end;
  MoveObjects;
  DestroyKilledObjects;
  RedrawObjects;
  life:=NumLife(life);
  LifesABC.Text:='Жизней: '+IntToStr(life);
  Stat.Text:='Очки: '+IntToStr(np);
  LevelABC.Text:='Уровень: '+IntToStr(lvl);
  DestrABC.Text:='Сбито: '+IntToStr(sb);
  if WinGame>0 then begin Objects[6].Visible:=True; WinABC.Text:='Выиграно: '+IntToStr(WinGame); end;
  if game> 1 then begin objects[5].visible:=true; GameABC.Text:='Игра № '+IntToStr(game);   end;
  if (NumberOfEnemies=0) or (NumberOfEnemies=1) then
   begin
    CreateObjects;
   end;
   
  { СОБЫТИЕ: КОНЕЦ ИГРЫ }
  if lvl=6 then begin
  EndOfGame:=true;
  WinGame:=WinGame+1;
  Win:=true;
  end;
  
  { СОБЫТИЕ: КОНЕЦ ИГРЫ}
  if life=0 then
    EndOfGame:=True;
    if EndOfGame and Win then
      begin
       StopTimer(t);
 
       FillWindow('E:\g\\areas\win.jpg');
       ShowMessage('Вы выиграли! Набранные очки: '+IntToStr(np));
       FillWindow('E:\g\areas\start.jpg');
       DestroyObjects;
 
       end
      else
    if EndOfGame then
     begin
      StopTimer(t);
 
      FillWindow('E:\g\areas\lose.jpg');
      ShowMessage('Вы проиграли! Набранные очки: '+IntToStr(np));
      FillWindow('E:\g\areas\start.jpg');
      DestroyObjects;
 
     end;
    end;
    
{ СОБЫТИЕ: НАЖАТИЕ КЛАВИШИ }
procedure KeyPress(Key: char);
begin
  if (UpCase(Key)='G')  and EndOfGame then
  begin
    np:=0;
    life:=5;
    lvl:=1;
    sb:=0;
    game:=game+1;
    CrEn:=1;
    ScrCh:=true;
    Win:=False;
    EndOfGame:=False;
    StartTimer(t);
    kSpaceKey:=2;
    kLeftKey:=False;
    kRightKey:=False;
    CrObj:=True;
  end;
end;
 
{ ОСНОВНАЯ ПРОГРАММА }
begin
  SetWindowSize(800,600);
  CenterWindow;
  ScrCh:=true;
  game:=0;
  WinGame:=0;
  FillWindow('E:\g\areas\start.jpg');
  nextube[1]:='E:\g\areas\0000.jpg';
  nextube[2]:='E:\g\areas\0011.jpg';
  nextube[3]:='E:\g\areas\0022.jpg';
  nextube[4]:='E:\g\areas\0033.jpg';
  nextube[5]:='E:\g\areas\0044.jpg';
  LockDrawingObjects;
  EndOfGame:=True;
  Stat:=TextABC.Create(10,5,14,clRed,'Очки: '+IntToStr(np));
  LevelABC:=TextABC.Create(150,5,14,clRed,'Уровень: '+IntToStr(lvl));
  LifesABC:=TextABC.Create(280,5,14,clRed,'Жизней: '+IntToStr(life));
  DestrABC:=TextABC.Create(430,5,14,clRed,'Сбито: '+IntToStr(sb));
  GameABC:=TextABC.Create(550,5,14,clRed,'Игра №: ' +IntToStr(game));
  WinABC:=TextABC.Create(670,5,14,clRed,'Выиграно: '+IntToStr(WInGame));
  Objects[5].Visible:=False;
  Objects[6].Visible:=False;
  StaticObjectsCount:=ObjectsCount;
  OnKeyDown:=KeyDown;
  OnKeyPress:=KeyPress;
  OnKeyUp:=KeyUp;
  t:=CreateTimer(25,Timer1);
  stoptimer(t);
  RedrawObjects;
end.