unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, LCLType, Buttons, StdCtrls, bass;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
    procedure kilepgombkatt(Sender: TObject);
    procedure palyafrissites(Sender: TObject);
    procedure j1bgbeallit(Sender: TObject);
    procedure j1jgbeallit(Sender: TObject);
    procedure j1tuzgbeallit(Sender: TObject);
    procedure j1faljavitgbeallit(Sender: TObject);
    procedure j1tankolgbeallit(Sender: TObject);
    procedure j1javitgbeallit(Sender: TObject);
    procedure j1gombokalapba(Sender: TObject);
    procedure szovmezgombbekerj1bg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj1jg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj1tuzg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj1tankolg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj1faljavitg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj1javitg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure j2bgbeallit(Sender: TObject);
    procedure j2jgbeallit(Sender: TObject);
    procedure j2tuzgbeallit(Sender: TObject);
    procedure j2faljavitgbeallit(Sender: TObject);
    procedure j2tankolgbeallit(Sender: TObject);
    procedure j2javitgbeallit(Sender: TObject);
    procedure j2gombokalapba(Sender: TObject);
    procedure szovmezgombbekerj2bg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj2jg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj2tuzg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj2tankolg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj2faljavitg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure szovmezgombbekerj2javitg(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure hangbeallitas(Sender: TObject);
    procedure zenebeallitas(Sender: TObject);
  private

  public

  end;

type Tjateleme = class(TObject)
  private
  public
    kepe: Tbitmap;
    alkepdb,aktalkep,alkepvaltido,elete,levonelet,raketatorloido,sebesseg: byte;
    xhely,yhely,mozgir: integer;
    torlendo: boolean;
    neve,felirata: string;
end;

var
  Form1: TForm1;
  hang,zene: HSTREAM;
  hatterkep,cimszovnagy,urhajo1kep,urhajo2kep,raketaveto1kep,raketaveto2kep,lovedek1kep,lovedek2kep,raketafelkep,raketalekep,balraikonkep,jobbraikonkep,tuzikonkep,tankolikonkep,javitikonkep,ujraepitikonkep,aszteroida1kep,aszteroida2kep: TBitMap;
  cimszov,hvshkep,hvspckep,nyelvkep,gepagyu1kep,gepagyu2kep: array [0..1] of TBitMap;
  vedofalkep: array [0..7] of TBitMap;
  robbkepe: array [0..6] of TBitMap;
  kisrobbkepe: array [0..4] of TBitMap;
  ufokepe: array [0..23] of TBitMap;
  urh1faltomb,urh2faltomb: array of boolean;
  jatallapot,nyelv,gombalkep,urh1uzemanyaga,urh2uzemanyaga,jatekmod,urh1raketai,urh2raketai,faltombdb,urh2irvaltido,urh1uzalevonido,urh2uzalevonido,johetujdologido: byte;
  jatelem: array of Tjateleme;
  palyafrissito: TTimer;
  jatelemdb,urh1penze,urh2penze,urhajo1x,urhajo1y,urhajo2x,urhajo2y,urhajo1elete,urhajo2elete,urh1tuzgomb,urh1balragomb,urh1jobbragomb,urh1faljavitgomb,urh1tankolgomb,urh1javitgomb,urh2tuzgomb,urh2balragomb,urh2jobbragomb,urh2faljavitgomb,urh2tankolgomb,urh2javitgomb: word;
  urh1balramegy,urh1jobbramegy,urh1tuzel,urh2balramegy,urh2jobbramegy,urh2tuzel,szovmeztorles,urh1lohetraketat,urh2lohetraketat,vanuzenet,urh1uzalevonhat,urh2uzalevonhat,hangbe,zenebe: boolean;
  urh1balfelirat,urh1jobbfelirat,urh1tuzfelirat,urh1tankolfelirat,urh1javitfelirat,urh1faljavitfelirat,urh2balfelirat,urh2jobbfelirat,urh2tuzfelirat,urh2tankolfelirat,urh2javitfelirat,urh2faljavitfelirat: array [0..1] of string;
  urh1panel,urh2panel: TPanel;
  szovegmezo: TEdit;
  hangbeallito,zenebeallito: TCheckBox;
  urh1gombbalra,urh1gombjobbra,urh1gombtuz,urh1gombfaljavit,urh1gombtankol,urh1gombjavit,urh1gombokalapba,urh2gombbalra,urh2gombjobbra,urh2gombtuz,urh2gombfaljavit,urh2gombtankol,urh2gombjavit,urh2gombokalapba: TBitBtn;

implementation

{$R *.lfm}

{ TForm1 }

procedure introszovkiiras(yhely: integer);
var
  szovter: TRect;
  szoveg: array [0..1] of string;
  szovstilus: TTextStyle;
begin
  Form1.Canvas.Font.Color:=clYellow;
  szoveg[0]:='Az emberiség megkezdte a végtelen világűr nyersanyagainak kiaknázását, melyekért több vállalat is verseng. Ezek egyikének vagy te a zsoldosa, akinek feladata, hogy a szektorban megsemmisítsen minden versenytársat. Ellenfeled űrhajóját is a tiédhez hasonló energiakockák védik, amelyek kilőhetők, de ezt a rendszert újjá lehet építeni. Pénzt az ellenség létesítményeinek, valamint ércekben gazdag aszteroidák és idegen lények járműveinek szétlövésével szerezhetsz.'+LineEnding+'Sok szerencsét!'+LineEnding+'Nyomj le egy gombot a kezdéshez...';
  szoveg[1]:='The humankind began to exploitation of raw materials of the endless space, for which several companies compete. You are the mercenary of one of these, whose task is to annihilate all opponents in the sector. The enemy spaceship is defended by energy cubes similar to yours, which can be shot apart, but this system can be rebuilt. You can get money by destroying enemy facilities, ore-rich asteroids and vehicles of alien creatures.'+LineEnding+'Good luck!'+LineEnding+'Press a key to begin...';
  szovter:=Rect(0,0,Form1.width,Form1.height);
  szovstilus:=Form1.Canvas.TextStyle;
  szovstilus.Wordbreak:=True;
  szovstilus.SingleLine:=False;
  Form1.Canvas.TextRect(szovter,1,yhely,szoveg[nyelv],szovstilus);
end;

procedure palyatorles();
var e: word;
begin
     if jatelemdb>0 then
      for e:=jatelemdb-1 downto 0 do
      begin
          FreeAndNil(jatelem[e]);
          dec(jatelemdb);
      end;
     urh1balramegy:=false; urh1jobbramegy:=false; urh1tuzel:=false; urh2balramegy:=false; urh2jobbramegy:=false; urh2tuzel:=false;
end;

procedure TForm1.hangbeallitas(Sender: TObject);
begin
  if hangbeallito.Checked=true then
    hangbe:=true
  else hangbe:=false;
end;

procedure Tform1.zenebeallitas(Sender: TObject);
begin
  if zenebeallito.Checked=true then
    zenebe:=true
  else zenebe:=false;
end;

procedure eligtablacsinalas();
var felirat,gombfelirat: array [0..1] of string;
begin  //PANEL 1:
     urh1panel:=TPanel.Create(form1);
     urh1panel.Parent:=form1;
     urh1panel.color:=clGreen;
     urh1panel.Left:=10;
     urh1panel.Top:=(form1.height div 2)-10;
     urh1panel.Width:=form1.width div 4;
     urh1panel.Height:=form1.height div 2;
     //
     urh1gombbalra:=TBitBtn.Create(urh1panel);
     urh1gombbalra.Parent:=urh1panel;
     urh1gombbalra.Left:=4;
     urh1gombbalra.Top:=4;
     urh1gombbalra.width:=urh1panel.width-8;
     urh1gombbalra.TabStop:=false;
     urh1gombbalra.Glyph.LoadFromFile('kepek\ikonbalra.bmp');
     case urh1balragomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh1balragomb)+' gomb'; gombfelirat[1]:=chr(urh1balragomb)+' button';
          end;
     end;
     felirat[0]:='1: Mozgás balra: '+gombfelirat[nyelv]; felirat[1]:='1: Move left: '+gombfelirat[nyelv];
     urh1gombbalra.Caption:=felirat[nyelv];
     urh1gombbalra.DoubleBuffered:=true;
     urh1gombbalra.OnClick:=@form1.j1bgbeallit;
     //
     urh1gombjobbra:=TBitBtn.Create(urh1panel);
     urh1gombjobbra.Parent:=urh1panel;
     urh1gombjobbra.Left:=4;
     urh1gombjobbra.Top:=urh1gombbalra.Top+urh1gombbalra.Height+8;
     urh1gombjobbra.width:=urh1panel.width-8;
     urh1gombjobbra.TabStop:=false;
     urh1gombjobbra.Glyph.LoadFromFile('kepek\ikonjobbra.bmp');
     case urh1jobbragomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh1jobbragomb)+' gomb'; gombfelirat[1]:=chr(urh1jobbragomb)+' button';
          end;
     end;
     felirat[0]:='1: Mozgás jobbra: '+gombfelirat[nyelv]; felirat[1]:='1: Move right: '+gombfelirat[nyelv];
     urh1gombjobbra.Caption:=felirat[nyelv];
     urh1gombjobbra.DoubleBuffered:=true;
     urh1gombjobbra.OnClick:=@form1.j1jgbeallit;
     //
     urh1gombtuz:=TBitBtn.Create(urh1panel);
     urh1gombtuz.Parent:=urh1panel;
     urh1gombtuz.Left:=4;
     urh1gombtuz.Top:=urh1gombjobbra.Top+urh1gombjobbra.Height+8;
     urh1gombtuz.width:=urh1panel.width-8;
     urh1gombtuz.TabStop:=false;
     urh1gombtuz.Glyph.LoadFromFile('kepek\ikontuz.bmp');
     case urh1tuzgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh1tuzgomb)+' gomb'; gombfelirat[1]:=chr(urh1tuzgomb)+' button';
          end;
     end;
     felirat[0]:='1: Lövés: '+gombfelirat[nyelv]; felirat[1]:='1: Shoot: '+gombfelirat[nyelv];
     urh1gombtuz.Caption:=felirat[nyelv];
     urh1gombtuz.DoubleBuffered:=true;
     urh1gombtuz.OnClick:=@form1.j1tuzgbeallit;
     //
     urh1gombtankol:=TBitBtn.Create(urh1panel);
     urh1gombtankol.Parent:=urh1panel;
     urh1gombtankol.Left:=4;
     urh1gombtankol.Top:=urh1gombtuz.Top+urh1gombtuz.Height+8;
     urh1gombtankol.width:=urh1panel.width-8;
     urh1gombtankol.TabStop:=false;
     urh1gombtankol.Glyph.LoadFromFile('kepek\ikontankol.bmp');
     case urh1tankolgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh1tankolgomb)+' gomb'; gombfelirat[1]:=chr(urh1tankolgomb)+' button';
          end;
     end;
     felirat[0]:='1: Üzemanyagfeltöltés: '+gombfelirat[nyelv]; felirat[1]:='1: Refueling: '+gombfelirat[nyelv];
     urh1gombtankol.Caption:=felirat[nyelv];
     urh1gombtankol.DoubleBuffered:=true;
     urh1gombtankol.OnClick:=@form1.j1tankolgbeallit;
     //
     urh1gombfaljavit:=TBitBtn.Create(urh1panel);
     urh1gombfaljavit.Parent:=urh1panel;
     urh1gombfaljavit.Left:=4;
     urh1gombfaljavit.Top:=urh1gombtankol.Top+urh1gombtankol.Height+8;
     urh1gombfaljavit.width:=urh1panel.width-8;
     urh1gombfaljavit.TabStop:=false;
     urh1gombfaljavit.Glyph.LoadFromFile('kepek\ikonujraepit.bmp');
     case urh1faljavitgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh1faljavitgomb)+' gomb'; gombfelirat[1]:=chr(urh1faljavitgomb)+' button';
          end;
     end;
     felirat[0]:='1: Fal javítása: '+gombfelirat[nyelv]; felirat[1]:='1: Repair of wall: '+gombfelirat[nyelv];
     urh1gombfaljavit.Caption:=felirat[nyelv];
     urh1gombfaljavit.DoubleBuffered:=true;
     urh1gombfaljavit.OnClick:=@form1.j1faljavitgbeallit;
     //
     urh1gombjavit:=TBitBtn.Create(urh1panel);
     urh1gombjavit.Parent:=urh1panel;
     urh1gombjavit.Left:=4;
     urh1gombjavit.Top:=urh1gombfaljavit.Top+urh1gombfaljavit.Height+8;
     urh1gombjavit.width:=urh1panel.width-8;
     urh1gombjavit.TabStop:=false;
     urh1gombjavit.Glyph.LoadFromFile('kepek\ikonjavit.bmp');
     case urh1javitgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh1javitgomb)+' gomb'; gombfelirat[1]:=chr(urh1javitgomb)+' button';
          end;
     end;
     felirat[0]:='1: Javítás: '+gombfelirat[nyelv]; felirat[1]:='1: Repair: '+gombfelirat[nyelv];
     urh1gombjavit.Caption:=felirat[nyelv];
     urh1gombjavit.DoubleBuffered:=true;
     urh1gombjavit.OnClick:=@form1.j1javitgbeallit;
     //
     urh1gombokalapba:=TBitBtn.Create(urh1panel);
     urh1gombokalapba.Parent:=urh1panel;
     urh1gombokalapba.Left:=4;
     urh1gombokalapba.Top:=urh1gombjavit.Top+urh1gombjavit.Height+16;
     urh1gombokalapba.width:=urh1panel.width-8;
     urh1gombokalapba.TabStop:=false;
     urh1gombokalapba.Glyph.LoadFromFile('kepek\ikonalapertek.bmp');
     felirat[0]:='Gombok vissza alapértelemezettbe'; felirat[1]:='Buttons reset to default';
     urh1gombokalapba.Caption:=felirat[nyelv];
     urh1gombokalapba.DoubleBuffered:=true;
     urh1gombokalapba.OnClick:=@form1.j1gombokalapba;
     //
     felirat[0]:='Hang'; felirat[1]:='Sound';
     hangbeallito:=TCheckBox.Create(urh1panel);
     hangbeallito.parent:=urh1panel;
     hangbeallito.Left:=4;
     hangbeallito.top:=urh1panel.Height-40;
     hangbeallito.Caption:=felirat[nyelv];
     if hangbe=true then
        hangbeallito.Checked:=true
     else hangbeallito.Checked:=false;
     hangbeallito.OnClick:=@form1.hangbeallitas;
     felirat[0]:='Zene'; felirat[1]:='Music';
     zenebeallito:=TCheckBox.Create(urh1panel);
     zenebeallito.parent:=urh1panel;
     zenebeallito.Left:=urh1panel.width-hangbeallito.width;
     zenebeallito.top:=urh1panel.Height-40;
     zenebeallito.Caption:=felirat[nyelv];
     if zenebe=true then
        zenebeallito.Checked:=true
     else zenebeallito.Checked:=false;
     zenebeallito.OnClick:=@form1.zenebeallitas;
     //PANEL 2:
     urh2panel:=TPanel.Create(form1);
     urh2panel.Parent:=form1;
     urh2panel.color:=clGreen;
     urh2panel.Left:=form1.width-(form1.width div 4)-10;
     urh2panel.Top:=(form1.height div 2)-10;
     urh2panel.Width:=form1.width div 4;
     urh2panel.Height:=form1.height div 2;
     //
     urh2gombbalra:=TBitBtn.Create(urh2panel);
     urh2gombbalra.Parent:=urh2panel;
     urh2gombbalra.Left:=4;
     urh2gombbalra.Top:=4;
     urh2gombbalra.width:=urh2panel.width-8;
     urh2gombbalra.TabStop:=false;
     urh2gombbalra.Glyph.LoadFromFile('kepek\ikonbalra.bmp');
     case urh2balragomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh2balragomb)+' gomb'; gombfelirat[1]:=chr(urh2balragomb)+' button';
          end;
     end;
     felirat[0]:='2: Mozgás balra: '+gombfelirat[nyelv]; felirat[1]:='2: Move left: '+gombfelirat[nyelv];
     urh2gombbalra.Caption:=felirat[nyelv];
     urh2gombbalra.DoubleBuffered:=true;
     urh2gombbalra.OnClick:=@form1.j2bgbeallit;
     //
     urh2gombjobbra:=TBitBtn.Create(urh2panel);
     urh2gombjobbra.Parent:=urh2panel;
     urh2gombjobbra.Left:=4;
     urh2gombjobbra.Top:=urh2gombbalra.Top+urh2gombbalra.Height+8;
     urh2gombjobbra.width:=urh2panel.width-8;
     urh2gombjobbra.TabStop:=false;
     urh2gombjobbra.Glyph.LoadFromFile('kepek\ikonjobbra.bmp');
     case urh2jobbragomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh2jobbragomb)+' gomb'; gombfelirat[1]:=chr(urh2jobbragomb)+' button';
          end;
     end;
     felirat[0]:='2: Mozgás jobbra: '+gombfelirat[nyelv]; felirat[1]:='2: Move right: '+gombfelirat[nyelv];
     urh2gombjobbra.Caption:=felirat[nyelv];
     urh2gombjobbra.DoubleBuffered:=true;
     urh2gombjobbra.OnClick:=@form1.j2jgbeallit;
     //
     urh2gombtuz:=TBitBtn.Create(urh2panel);
     urh2gombtuz.Parent:=urh2panel;
     urh2gombtuz.Left:=4;
     urh2gombtuz.Top:=urh2gombjobbra.Top+urh2gombjobbra.Height+8;
     urh2gombtuz.width:=urh2panel.width-8;
     urh2gombtuz.TabStop:=false;
     urh2gombtuz.Glyph.LoadFromFile('kepek\ikontuz.bmp');
     case urh2tuzgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh2tuzgomb)+' gomb'; gombfelirat[1]:=chr(urh2tuzgomb)+' button';
          end;
     end;
     felirat[0]:='2: Lövés: '+gombfelirat[nyelv]; felirat[1]:='2: Shoot: '+gombfelirat[nyelv];
     urh2gombtuz.Caption:=felirat[nyelv];
     urh2gombtuz.DoubleBuffered:=true;
     urh2gombtuz.OnClick:=@form1.j2tuzgbeallit;
     //
     urh2gombtankol:=TBitBtn.Create(urh2panel);
     urh2gombtankol.Parent:=urh2panel;
     urh2gombtankol.Left:=4;
     urh2gombtankol.Top:=urh2gombtuz.Top+urh2gombtuz.Height+8;
     urh2gombtankol.width:=urh2panel.width-8;
     urh2gombtankol.TabStop:=false;
     urh2gombtankol.Glyph.LoadFromFile('kepek\ikontankol.bmp');
     case urh2tankolgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh2tankolgomb)+' gomb'; gombfelirat[1]:=chr(urh2tankolgomb)+' button';
          end;
     end;
     felirat[0]:='2: Üzemanyagfeltöltés: '+gombfelirat[nyelv]; felirat[1]:='2: Refueling: '+gombfelirat[nyelv];
     urh2gombtankol.Caption:=felirat[nyelv];
     urh2gombtankol.DoubleBuffered:=true;
     urh2gombtankol.OnClick:=@form1.j2tankolgbeallit;
     //
     urh2gombfaljavit:=TBitBtn.Create(urh2panel);
     urh2gombfaljavit.Parent:=urh2panel;
     urh2gombfaljavit.Left:=4;
     urh2gombfaljavit.Top:=urh2gombtankol.Top+urh2gombtankol.Height+8;
     urh2gombfaljavit.width:=urh2panel.width-8;
     urh2gombfaljavit.TabStop:=false;
     urh2gombfaljavit.Glyph.LoadFromFile('kepek\ikonujraepit.bmp');
     case urh2faljavitgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh2faljavitgomb)+' gomb'; gombfelirat[1]:=chr(urh2faljavitgomb)+' button';
          end;
     end;
     felirat[0]:='2: Fal javítása: '+gombfelirat[nyelv]; felirat[1]:='2: Repair of wall: '+gombfelirat[nyelv];
     urh2gombfaljavit.Caption:=felirat[nyelv];
     urh2gombfaljavit.DoubleBuffered:=true;
     urh2gombfaljavit.OnClick:=@form1.j2faljavitgbeallit;
     //
     urh2gombjavit:=TBitBtn.Create(urh2panel);
     urh2gombjavit.Parent:=urh2panel;
     urh2gombjavit.Left:=4;
     urh2gombjavit.Top:=urh2gombfaljavit.Top+urh2gombfaljavit.Height+8;
     urh2gombjavit.width:=urh2panel.width-8;
     urh2gombjavit.TabStop:=false;
     urh2gombjavit.Glyph.LoadFromFile('kepek\ikonjavit.bmp');
     case urh2javitgomb of
     VK_LEFT: begin
          gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
          end;
     VK_RIGHT: begin
          gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
          end;
     VK_UP: begin
          gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
          end;
     VK_DOWN: begin
          gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
          end;
     VK_CONTROL: begin
          gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
          end;
     VK_MENU: begin
          gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
          end;
     VK_SPACE: begin
          gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
          end;
     else begin
          gombfelirat[0]:=chr(urh2javitgomb)+' gomb'; gombfelirat[1]:=chr(urh2javitgomb)+' button';
          end;
     end;
     felirat[0]:='2: Javítás: '+gombfelirat[nyelv]; felirat[1]:='2: Repair: '+gombfelirat[nyelv];
     urh2gombjavit.Caption:=felirat[nyelv];
     urh2gombjavit.DoubleBuffered:=true;
     urh2gombjavit.OnClick:=@form1.j2javitgbeallit;
     //
     urh2gombokalapba:=TBitBtn.Create(urh2panel);
     urh2gombokalapba.Parent:=urh2panel;
     urh2gombokalapba.Left:=4;
     urh2gombokalapba.Top:=urh2gombjavit.Top+urh2gombjavit.Height+16;
     urh2gombokalapba.width:=urh2panel.width-8;
     urh2gombokalapba.TabStop:=false;
     urh2gombokalapba.Glyph.LoadFromFile('kepek\ikonalapertek.bmp');
     felirat[0]:='Gombok vissza alapértelemezettbe'; felirat[1]:='Buttons reset to default';
     urh2gombokalapba.Caption:=felirat[nyelv];
     urh2gombokalapba.DoubleBuffered:=true;
     urh2gombokalapba.OnClick:=@form1.j2gombokalapba;
end;

procedure TForm1.j1bgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a balra mozgáshoz!'; kiiras[1]:='Press a key for move left!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh1panel.Left+urh1panel.Width+10;
     szovegmezo.Top:=urh1panel.Top+4;
     szovegmezo.Width:=urh1panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj1bg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j1jgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a jobbra mozgáshoz!'; kiiras[1]:='Press a key for move right!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh1panel.Left+urh1panel.Width+10;
     szovegmezo.Top:=urh1panel.Top+4;
     szovegmezo.Width:=urh1panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj1jg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j1tuzgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a lövéshez!'; kiiras[1]:='Press a key for shoot!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh1panel.Left+urh1panel.Width+10;
     szovegmezo.Top:=urh1panel.Top+4;
     szovegmezo.Width:=urh1panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj1tuzg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j1tankolgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a feltöltéshez!'; kiiras[1]:='Press a key for refueling!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh1panel.Left+urh1panel.Width+10;
     szovegmezo.Top:=urh1panel.Top+4;
     szovegmezo.Width:=urh1panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj1tankolg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j1faljavitgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a faljavításhoz!'; kiiras[1]:='Press a key for repair wall!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh1panel.Left+urh1panel.Width+10;
     szovegmezo.Top:=urh1panel.Top+4;
     szovegmezo.Width:=urh1panel.width;
     szovegmezo.OnKeyDown:=@form1.szovmezgombbekerj1faljavitg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j1javitgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a javításhoz!'; kiiras[1]:='Press a key for repair!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh1panel.Left+urh1panel.Width+10;
     szovegmezo.Top:=urh1panel.Top+4;
     szovegmezo.Width:=urh1panel.width;
     szovegmezo.OnKeyDown:=@form1.szovmezgombbekerj1javitg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j1gombokalapba(Sender: TObject);
var felirat,gombfelirat: array [0..1] of string;
begin
     urh1tuzgomb:=VK_CONTROL;
     urh1balragomb:=VK_LEFT;
     urh1jobbragomb:=VK_RIGHT;
     urh1faljavitgomb:=VK_UP;
     urh1tankolgomb:=VK_DOWN;
     urh1javitgomb:=VK_SPACE;
     gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
     felirat[0]:='1: Mozgás balra: '+gombfelirat[nyelv]; felirat[1]:='1: Move left: '+gombfelirat[nyelv];
     urh1gombbalra.Caption:=felirat[nyelv];
     gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
     felirat[0]:='1: Mozgás jobbra: '+gombfelirat[nyelv]; felirat[1]:='1: Move right: '+gombfelirat[nyelv];
     urh1gombjobbra.Caption:=felirat[nyelv];
     gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
     felirat[0]:='1: Fal javítása: '+gombfelirat[nyelv]; felirat[1]:='1: Repair of wall: '+gombfelirat[nyelv];
     urh1gombfaljavit.Caption:=felirat[nyelv];
     gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
     felirat[0]:='1: Üzemanyagfeltöltés: '+gombfelirat[nyelv]; felirat[1]:='1: Refueling: '+gombfelirat[nyelv];
     urh1gombtankol.Caption:=felirat[nyelv];
     gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
     felirat[0]:='1: Lövés: '+gombfelirat[nyelv]; felirat[1]:='1: Shoot: '+gombfelirat[nyelv];
     urh1gombtuz.Caption:=felirat[nyelv];
     gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
     felirat[0]:='1: Javítás: '+gombfelirat[nyelv]; felirat[1]:='1: Repair: '+gombfelirat[nyelv];
     urh1gombjavit.Caption:=felirat[nyelv];
end;

procedure TForm1.szovmezgombbekerj1bg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh1balragomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh1balragomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh1balragomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh1balragomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh1balragomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh1balragomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh1balragomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh1balragomb:=Key;
                end;
     end;
     felirat[0]:='1: Mozgás balra: '+gombfelirat[nyelv]; felirat[1]:='1: Move left: '+gombfelirat[nyelv];
     urh1gombbalra.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj1jg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh1jobbragomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh1jobbragomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh1jobbragomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh1jobbragomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh1jobbragomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh1jobbragomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh1jobbragomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh1jobbragomb:=Key;
                end;
     end;
     felirat[0]:='1: Mozgás jobbra: '+gombfelirat[nyelv]; felirat[1]:='1: Move right: '+gombfelirat[nyelv];
     urh1gombjobbra.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj1tuzg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh1tuzgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh1tuzgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh1tuzgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh1tuzgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh1tuzgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh1tuzgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh1tuzgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh1tuzgomb:=Key;
                end;
     end;
     felirat[0]:='1: Lövés: '+gombfelirat[nyelv]; felirat[1]:='1: Shoot: '+gombfelirat[nyelv];
     urh1gombtuz.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj1tankolg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh1tankolgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh1tankolgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh1tankolgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh1tankolgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh1tankolgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh1tankolgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh1tankolgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh1tankolgomb:=Key;
                end;
     end;
     felirat[0]:='1: Üzemanyagfeltöltés: '+gombfelirat[nyelv]; felirat[1]:='1: Refueling: '+gombfelirat[nyelv];
     urh1gombtankol.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj1faljavitg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh1faljavitgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh1faljavitgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh1faljavitgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh1faljavitgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh1faljavitgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh1faljavitgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh1faljavitgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh1faljavitgomb:=Key;
                end;
     end;
     felirat[0]:='1: Fal javítása: '+gombfelirat[nyelv]; felirat[1]:='1: Repair of wall: '+gombfelirat[nyelv];
     urh1gombfaljavit.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj1javitg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh1javitgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh1javitgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh1javitgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh1javitgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh1javitgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh1javitgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh1javitgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh1javitgomb:=Key;
                end;
     end;
     felirat[0]:='1: Fal javítása: '+gombfelirat[nyelv]; felirat[1]:='1: Repair of wall: '+gombfelirat[nyelv];
     urh1gombjavit.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.j2bgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a balra mozgáshoz!'; kiiras[1]:='Press a key for move left!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh2panel.Left-urh2panel.width-10;
     szovegmezo.Top:=urh2panel.Top+4;
     szovegmezo.Width:=urh2panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj2bg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j2jgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a jobbra mozgáshoz!'; kiiras[1]:='Press a key for move right!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh2panel.Left-urh2panel.width-10;
     szovegmezo.Top:=urh2panel.Top+4;
     szovegmezo.Width:=urh2panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj2jg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j2tuzgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a lövéshez!'; kiiras[1]:='Press a key for shoot!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh2panel.Left-urh2panel.width-10;
     szovegmezo.Top:=urh2panel.Top+4;
     szovegmezo.Width:=urh2panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj2tuzg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j2tankolgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a feltöltéshez!'; kiiras[1]:='Press a key for refueling!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh2panel.Left-urh2panel.width-10;
     szovegmezo.Top:=urh2panel.Top+4;
     szovegmezo.Width:=urh2panel.width;
     szovegmezo.OnKeyDown:=@szovmezgombbekerj2tankolg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j2faljavitgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a faljavításhoz!'; kiiras[1]:='Press a key for repair wall!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh2panel.Left-urh2panel.width-10;
     szovegmezo.Top:=urh2panel.Top+4;
     szovegmezo.Width:=urh2panel.width;
     szovegmezo.OnKeyDown:=@form1.szovmezgombbekerj2faljavitg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j2javitgbeallit(Sender: TObject);
var kiiras: array [0..1] of string;
begin
     if szovegmezo<>nil then FreeAndNil(szovegmezo);
     szovegmezo:=TEdit.Create(self);
     szovegmezo.Parent:=self;
     kiiras[0]:='Nyomj le egy gombot a javításhoz!'; kiiras[1]:='Press a key for repair!';
     szovegmezo.Text:=kiiras[nyelv];
     szovegmezo.Left:=urh2panel.Left-urh2panel.width-10;
     szovegmezo.Top:=urh2panel.Top+4;
     szovegmezo.Width:=urh2panel.width;
     szovegmezo.OnKeyDown:=@form1.szovmezgombbekerj2javitg;
     szovegmezo.SetFocus;
end;

procedure TForm1.j2gombokalapba(Sender: TObject);
var felirat: array [0..1] of string;
begin
     urh2tuzgomb:=VK_T;
     urh2balragomb:=VK_A;
     urh2jobbragomb:=VK_D;
     urh2faljavitgomb:=VK_W;
     urh2tankolgomb:=VK_S;
     urh2javitgomb:=VK_R;
     felirat[0]:='2: Mozgás balra: A'; felirat[1]:='2: Move left: A';
     urh2gombbalra.Caption:=felirat[nyelv];
     felirat[0]:='2: Mozgás jobbra: D'; felirat[1]:='2: Move right: D';
     urh2gombjobbra.Caption:=felirat[nyelv];
     felirat[0]:='2: Fal javítása: W'; felirat[1]:='2: Repair of wall: W';
     urh2gombfaljavit.Caption:=felirat[nyelv];
     felirat[0]:='2: Üzemanyagfeltöltés: S'; felirat[1]:='2: Refueling: S';
     urh2gombtankol.Caption:=felirat[nyelv];
     felirat[0]:='2: Lövés: T'; felirat[1]:='2: Shoot: T';
     urh2gombtuz.Caption:=felirat[nyelv];
     felirat[0]:='2: Javítás: R'; felirat[1]:='2: Repair: R';
     urh2gombjavit.Caption:=felirat[nyelv];
end;

procedure TForm1.szovmezgombbekerj2bg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh2balragomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh2balragomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh2balragomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh2balragomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh2balragomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh2balragomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh2balragomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh2balragomb:=Key;
                end;
     end;
     felirat[0]:='2: Mozgás balra: '+gombfelirat[nyelv]; felirat[1]:='2: Move left: '+gombfelirat[nyelv];
     urh2gombbalra.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj2jg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh2jobbragomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh2jobbragomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh2jobbragomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh2jobbragomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh2jobbragomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh2jobbragomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh2jobbragomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh2jobbragomb:=Key;
                end;
     end;
     felirat[0]:='2: Mozgás jobbra: '+gombfelirat[nyelv]; felirat[1]:='2: Move right: '+gombfelirat[nyelv];
     urh2gombjobbra.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj2tuzg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh2tuzgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh2tuzgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh2tuzgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh2tuzgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh2tuzgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh2tuzgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh2tuzgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh2tuzgomb:=Key;
                end;
     end;
     felirat[0]:='2: Lövés: '+gombfelirat[nyelv]; felirat[1]:='2: Shoot: '+gombfelirat[nyelv];
     urh2gombtuz.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj2tankolg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh2tankolgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh2tankolgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh2tankolgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh2tankolgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh2tankolgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh2tankolgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh2tankolgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh2tankolgomb:=Key;
                end;
     end;
     felirat[0]:='2: Üzemanyagfeltöltés: '+gombfelirat[nyelv]; felirat[1]:='2: Refueling: '+gombfelirat[nyelv];
     urh2gombtankol.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj2faljavitg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh2faljavitgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh2faljavitgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh2faljavitgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh2faljavitgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh2faljavitgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh2faljavitgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh2faljavitgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh2faljavitgomb:=Key;
                end;
     end;
     felirat[0]:='2: Fal javítása: '+gombfelirat[nyelv]; felirat[1]:='2: Repair of wall: '+gombfelirat[nyelv];
     urh2gombfaljavit.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure TForm1.szovmezgombbekerj2javitg(Sender: TObject; var Key: Word; Shift: TShiftState);
var felirat,gombfelirat: array [0..1] of string;
begin
     case Key of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                urh2javitgomb:=VK_LEFT;
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                urh2javitgomb:=VK_RIGHT;
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                urh2javitgomb:=VK_UP;
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                urh2javitgomb:=VK_DOWN;
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                urh2javitgomb:=VK_CONTROL;
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                urh2javitgomb:=VK_MENU;
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                urh2javitgomb:=VK_SPACE;
                end;
           else begin
                gombfelirat[0]:=chr(Key)+' gomb'; gombfelirat[1]:=chr(Key)+' button';
                urh2javitgomb:=Key;
                end;
     end;
     felirat[0]:='2: Fal javítása: '+gombfelirat[nyelv]; felirat[1]:='2: Repair of wall: '+gombfelirat[nyelv];
     urh2gombjavit.Caption:=felirat[nyelv];
     szovmeztorles:=true;
end;

procedure ikonokhozszoveg();
var gombfelirat: array [0..1] of string;
begin
     case urh1balragomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh1balragomb)+' gomb'; gombfelirat[1]:=chr(urh1balragomb)+' button';
                end;
     end;
     urh1balfelirat[nyelv]:=gombfelirat[nyelv];
     case urh1jobbragomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh1jobbragomb)+' gomb'; gombfelirat[1]:=chr(urh1jobbragomb)+' button';
                end;
     end;
     urh1jobbfelirat[nyelv]:=gombfelirat[nyelv];
     case urh1tuzgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh1tuzgomb)+' gomb'; gombfelirat[1]:=chr(urh1tuzgomb)+' button';
                end;
     end;
     urh1tuzfelirat[nyelv]:=gombfelirat[nyelv];
     case urh1tankolgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh1tankolgomb)+' gomb'; gombfelirat[1]:=chr(urh1tankolgomb)+' button';
                end;
     end;
     urh1tankolfelirat[nyelv]:=gombfelirat[nyelv];
     case urh1javitgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh1javitgomb)+' gomb'; gombfelirat[1]:=chr(urh1javitgomb)+' button';
                end;
     end;
     urh1javitfelirat[nyelv]:=gombfelirat[nyelv];
     case urh1faljavitgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh1faljavitgomb)+' gomb'; gombfelirat[1]:=chr(urh1faljavitgomb)+' button';
                end;
     end;
     urh1faljavitfelirat[nyelv]:=gombfelirat[nyelv];
     //A 2. űrhajó adatai:
     case urh2balragomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh2balragomb)+' gomb'; gombfelirat[1]:=chr(urh2balragomb)+' button';
                end;
     end;
     urh2balfelirat[nyelv]:=gombfelirat[nyelv];
     case urh2jobbragomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh2jobbragomb)+' gomb'; gombfelirat[1]:=chr(urh2jobbragomb)+' button';
                end;
     end;
     urh2jobbfelirat[nyelv]:=gombfelirat[nyelv];
     case urh2tuzgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh2tuzgomb)+' gomb'; gombfelirat[1]:=chr(urh2tuzgomb)+' button';
                end;
     end;
     urh2tuzfelirat[nyelv]:=gombfelirat[nyelv];
     case urh2tankolgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh2tankolgomb)+' gomb'; gombfelirat[1]:=chr(urh2tankolgomb)+' button';
                end;
     end;
     urh2tankolfelirat[nyelv]:=gombfelirat[nyelv];
     case urh2javitgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh2javitgomb)+' gomb'; gombfelirat[1]:=chr(urh2javitgomb)+' button';
                end;
     end;
     urh2javitfelirat[nyelv]:=gombfelirat[nyelv];
     case urh2faljavitgomb of
           VK_LEFT: begin
                gombfelirat[0]:='bal nyíl'; gombfelirat[1]:='left arrow';
                end;
           VK_RIGHT: begin
                gombfelirat[0]:='jobb nyíl'; gombfelirat[1]:='right arrow';
                end;
           VK_UP: begin
                gombfelirat[0]:='fel nyíl'; gombfelirat[1]:='up arrow';
                end;
           VK_DOWN: begin
                gombfelirat[0]:='le nyíl'; gombfelirat[1]:='down arrow';
                end;
           VK_CONTROL: begin
                gombfelirat[0]:='Ctrl gomb'; gombfelirat[1]:='Ctrl button';
                end;
           VK_MENU: begin
                gombfelirat[0]:='Alt gomb'; gombfelirat[1]:='Alt button';
                end;
           VK_SPACE: begin
                gombfelirat[0]:='szóköz gomb'; gombfelirat[1]:='space button';
                end;
           else begin
                gombfelirat[0]:=chr(urh2faljavitgomb)+' gomb'; gombfelirat[1]:=chr(urh2faljavitgomb)+' button';
                end;
     end;
     urh2faljavitfelirat[nyelv]:=gombfelirat[nyelv];
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: byte;
  kcsbal: integer;
  kepcsik: TBitMap;
  forrast,celt: TRect;
begin
  randomize;
  BorderStyle:=bsNone;
  WindowState:=wsFullScreen;
  width:=Screen.width;
  height:=Screen.height;
  cimszovnagy:=TBitmap.Create;
  hatterkep:=TBitmap.Create;
  hatterkep.LoadFromFile('kepek\hatter.bmp');
  cimszov[0]:=TBitmap.Create;
  cimszov[0].LoadFromFile('kepek\cimszoveghu.bmp');
  cimszov[0].Transparent:=true;
  cimszov[1]:=TBitmap.Create;
  cimszov[1].LoadFromFile('kepek\cimszovegen.bmp');
  cimszov[1].Transparent:=true;
  hvshkep[0]:=TBitmap.Create;
  hvshkep[0].LoadFromFile('kepek\hvshgomb0.bmp');
  hvshkep[1]:=TBitmap.Create;
  hvshkep[1].LoadFromFile('kepek\hvshgomb1.bmp');
  hvspckep[0]:=TBitmap.Create;
  hvspckep[0].LoadFromFile('kepek\hvspcgomb0.bmp');
  hvspckep[1]:=TBitmap.Create;
  hvspckep[1].LoadFromFile('kepek\hvspcgomb1.bmp');
  nyelvkep[0]:=TBitmap.Create;
  nyelvkep[0].LoadFromFile('kepek\angolulgomb.bmp');
  nyelvkep[1]:=TBitmap.Create;
  nyelvkep[1].LoadFromFile('kepek\magyarulgomb.bmp');
  urhajo1kep:=TBitMap.Create;
  urhajo1kep.LoadFromFile('kepek\urhajo1.bmp');
  urhajo1kep.Transparent:=true;
  urhajo2kep:=TBitMap.Create;
  urhajo2kep.LoadFromFile('kepek\urhajo2.bmp');
  urhajo2kep.Transparent:=true;
  lovedek1kep:=TBitMap.Create;
  lovedek1kep.LoadFromFile('kepek\lovedek1.bmp');
  lovedek1kep.Transparent:=true;
  lovedek2kep:=TBitMap.Create;
  lovedek2kep.LoadFromFile('kepek\lovedek2.bmp');
  lovedek2kep.Transparent:=true;
  raketaveto1kep:=TBitMap.Create;
  raketaveto1kep.LoadFromFile('kepek\raketaveto1.bmp');
  raketaveto1kep.Transparent:=true;
  raketaveto2kep:=TBitMap.Create;
  raketaveto2kep.LoadFromFile('kepek\raketaveto2.bmp');
  raketaveto2kep.Transparent:=true;
  raketafelkep:=TBitMap.Create;
  raketafelkep.LoadFromFile('kepek\raketafel.bmp');
  raketafelkep.Transparent:=true;
  raketalekep:=TBitMap.Create;
  raketalekep.LoadFromFile('kepek\raketale.bmp');
  raketalekep.Transparent:=true;
  aszteroida1kep:=TBitMap.Create;
  aszteroida1kep.LoadFromFile('kepek\aszteroida1.bmp');
  aszteroida1kep.Transparent:=true;
  aszteroida2kep:=TBitMap.Create;
  aszteroida2kep.LoadFromFile('kepek\aszteroida2.bmp');
  aszteroida2kep.Transparent:=true;
  for i:=1 to 7 do
  begin
   robbkepe[i-1]:=TBitMap.Create;
   robbkepe[i-1].LoadFromFile('kepek\robb'+inttostr(i)+'.bmp');
   robbkepe[i-1].transparent:=true;
  end;
  balraikonkep:=TBitmap.Create;
  balraikonkep.LoadFromFile('kepek\ikonbalra.bmp');
  jobbraikonkep:=TBitmap.Create;
  jobbraikonkep.LoadFromFile('kepek\ikonjobbra.bmp');
  tuzikonkep:=TBitmap.Create;
  tuzikonkep.LoadFromFile('kepek\ikontuz.bmp');
  javitikonkep:=TBitmap.Create;
  javitikonkep.LoadFromFile('kepek\ikonjavit.bmp');
  tankolikonkep:=TBitmap.Create;
  tankolikonkep.LoadFromFile('kepek\ikontankol.bmp');
  ujraepitikonkep:=TBitmap.Create;
  ujraepitikonkep.LoadFromFile('kepek\ikonujraepit.bmp');
  kepcsik:=TBitmap.Create;
  kepcsik.LoadFromFile('kepek\faldarab.bmp');
  kcsbal:=0;
  for i:=0 to 7 do
  begin
    vedofalkep[i]:=TBitmap.Create;
    forrast.left:=kcsbal; forrast.top:=0; forrast.right:=kcsbal+(kepcsik.width div 8); forrast.bottom:=kepcsik.height;
    celt.left:=0; celt.top:=0; celt.right:=kepcsik.width div 8; celt.bottom:=kepcsik.height;
    vedofalkep[i].SetSize(celt.width,celt.height);
    vedofalkep[i].Canvas.CopyRect(celt,kepcsik.Canvas,forrast);
    vedofalkep[i].mask(clGreen);
    if i<7 then kcsbal:=kcsbal+(kepcsik.width div 8);
  end;
  kepcsik.Free;
  kepcsik:=TBitmap.Create;
  kepcsik.LoadFromFile('kepek\gepagyu1.bmp');
  kcsbal:=0;
  for i:=0 to 1 do
  begin
    gepagyu1kep[i]:=TBitmap.Create;
    forrast.left:=kcsbal; forrast.top:=0; forrast.right:=kcsbal+(kepcsik.width div 2); forrast.bottom:=kepcsik.height;
    celt.left:=0; celt.top:=0; celt.right:=kepcsik.width div 2; celt.bottom:=kepcsik.height;
    gepagyu1kep[i].SetSize(celt.width,celt.height);
    gepagyu1kep[i].Canvas.CopyRect(celt,kepcsik.Canvas,forrast);
    gepagyu1kep[i].mask(clBlue);
    if i<1 then kcsbal:=kcsbal+(kepcsik.width div 2);
  end;
  kepcsik.LoadFromFile('kepek\gepagyu2.bmp');
  kcsbal:=0;
  for i:=0 to 1 do
  begin
    gepagyu2kep[i]:=TBitmap.Create;
    forrast.left:=kcsbal; forrast.top:=0; forrast.right:=kcsbal+(kepcsik.width div 2); forrast.bottom:=kepcsik.height;
    celt.left:=0; celt.top:=0; celt.right:=kepcsik.width div 2; celt.bottom:=kepcsik.height;
    gepagyu2kep[i].SetSize(celt.width,celt.height);
    gepagyu2kep[i].Canvas.CopyRect(celt,kepcsik.Canvas,forrast);
    gepagyu2kep[i].mask(clBlue);
    if i<1 then kcsbal:=kcsbal+(kepcsik.width div 2);
  end;
  kepcsik.Free;
  kepcsik:=TBitmap.Create;
  kepcsik.LoadFromFile('kepek\kisrobbanas.bmp');
  kcsbal:=0;
  for i:=0 to 4 do
  begin
    kisrobbkepe[i]:=TBitmap.Create;
    forrast.left:=kcsbal; forrast.top:=0; forrast.right:=kcsbal+(kepcsik.width div 5); forrast.bottom:=kepcsik.height;
    celt.left:=0; celt.top:=0; celt.right:=kepcsik.width div 5; celt.bottom:=kepcsik.height;
    kisrobbkepe[i].SetSize(celt.width,celt.height);
    kisrobbkepe[i].Canvas.CopyRect(celt,kepcsik.Canvas,forrast);
    kisrobbkepe[i].mask(clWhite);
    if i<4 then kcsbal:=kcsbal+(kepcsik.width div 5);
  end;
  kepcsik.Free;
  kepcsik:=TBitmap.Create;
  kepcsik.LoadFromFile('kepek\ufo.bmp');
  kcsbal:=0;
  for i:=0 to 23 do
  begin
    ufokepe[i]:=TBitmap.Create;
    forrast.left:=kcsbal; forrast.top:=0; forrast.right:=kcsbal+(kepcsik.width div 24); forrast.bottom:=kepcsik.height;
    celt.left:=0; celt.top:=0; celt.right:=kepcsik.width div 24; celt.bottom:=kepcsik.height;
    ufokepe[i].SetSize(celt.width,celt.height);
    ufokepe[i].Canvas.CopyRect(celt,kepcsik.Canvas,forrast);
    ufokepe[i].mask(clWhite);
    if i<23 then kcsbal:=kcsbal+(kepcsik.width div 24);
  end;
  kepcsik.Free;
  nyelv:=0; //Magyar az alapértelmezett nyelv.
  if not BASS_Init(-1, 44100, 0, Handle, nil) then
  begin
     ShowMessage('Hiba a hangkezelő (BASS) beállításában!');
     hangbe:=false; zenebe:=false;
  end
  else
  begin
       hangbe:=true; zenebe:=true;
  end;
  if zenebe=true then
  begin
    zene:=BASS_StreamCreateFile(0, PChar('hangok/cimzene.mp3'), 0, 0, BASS_SAMPLE_LOOP);
    if zene<>0 then BASS_ChannelPlay(zene, False);
  end;
  cimszovnagy.SetSize(form1.width div 2,cimszov[nyelv].height *((form1.width div 2) div cimszov[nyelv].width));
  gombalkep:=0;
  jatallapot:=0;
  urhajo1x:=(form1.width div 2)-urhajo1kep.width div 2;
  urhajo1y:=form1.height-urhajo1kep.height-32;
  urhajo2x:=(form1.width div 2)-urhajo2kep.width div 2;
  urhajo2y:=urhajo2kep.height div 2;
  urh1tuzgomb:=VK_CONTROL;
  urh1javitgomb:=VK_SPACE;
  urh1balragomb:=VK_LEFT;
  urh1jobbragomb:=VK_RIGHT;
  urh1faljavitgomb:=VK_UP;
  urh1tankolgomb:=VK_DOWN;
  urh2tuzgomb:=VK_T;
  urh2javitgomb:=VK_R;
  urh2balragomb:=VK_A;
  urh2jobbragomb:=VK_D;
  urh2faljavitgomb:=VK_W;
  urh2tankolgomb:=VK_S;
  szovmeztorles:=false;
  Form1.KeyPreview:=True;
  Form1.Canvas.Font.Size:=14;
  palyafrissito:=TTimer.Create(nil);
  palyafrissito.interval:=25;
  palyafrissito.ontimer:=@palyafrissites;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
var f,falx: word;
begin
  if Key=VK_ESCAPE then
     kilepgombkatt(form1)
  else
  begin
       case jatallapot of
       1: begin
         if szovegmezo=nil then
         begin
           urhajo1x:=(form1.width div 2)-urhajo1kep.width div 2;
           urhajo1y:=form1.height-urhajo1kep.height-32;
           urhajo2x:=(form1.width div 2)-urhajo2kep.width div 2;
           urhajo2y:=urhajo2kep.height div 2;
           jatelemdb:=0;
           setlength(jatelem,jatelemdb+1);
           jatelem[jatelemdb]:=Tjateleme.create;
           jatelem[jatelemdb].xhely:=urhajo1x;
           jatelem[jatelemdb].yhely:=urhajo1y;
           jatelem[jatelemdb].kepe:=urhajo1kep;
           jatelem[jatelemdb].alkepdb:=0;
           jatelem[jatelemdb].aktalkep:=0;
           jatelem[jatelemdb].torlendo:=false;
           jatelem[jatelemdb].neve:='urhajo1';
           inc(jatelemdb,1);
           setlength(jatelem,jatelemdb+1);
           jatelem[jatelemdb]:=Tjateleme.create;
           jatelem[jatelemdb].xhely:=urhajo1x;
           jatelem[jatelemdb].yhely:=urhajo1y;
           jatelem[jatelemdb].kepe:=gepagyu1kep[0];
           jatelem[jatelemdb].alkepdb:=1;
           jatelem[jatelemdb].aktalkep:=0;
           jatelem[jatelemdb].alkepvaltido:=2;
           jatelem[jatelemdb].neve:='gepagyu1';
           inc(jatelemdb,1);
           setlength(jatelem,jatelemdb+1);
           jatelem[jatelemdb]:=Tjateleme.create;
           jatelem[jatelemdb].xhely:=(urhajo1x+urhajo1kep.width)-raketaveto1kep.width;
           jatelem[jatelemdb].yhely:=urhajo1y;
           jatelem[jatelemdb].kepe:=raketaveto1kep;
           jatelem[jatelemdb].alkepdb:=0;
           jatelem[jatelemdb].aktalkep:=0;
           jatelem[jatelemdb].neve:='raketaveto1';
           inc(jatelemdb,1);
           setlength(jatelem,jatelemdb+1);
           jatelem[jatelemdb]:=Tjateleme.create;
           jatelem[jatelemdb].xhely:=urhajo2x;
           jatelem[jatelemdb].yhely:=urhajo2y;
           jatelem[jatelemdb].kepe:=urhajo2kep;
           jatelem[jatelemdb].alkepdb:=0;
           jatelem[jatelemdb].aktalkep:=0;
           jatelem[jatelemdb].torlendo:=false;
           jatelem[jatelemdb].neve:='urhajo2';
           inc(jatelemdb,1);
           setlength(jatelem,jatelemdb+1);
           jatelem[jatelemdb]:=Tjateleme.create;
           jatelem[jatelemdb].xhely:=urhajo2x+urhajo2kep.width-gepagyu2kep[0].width;
           jatelem[jatelemdb].yhely:=(urhajo2y+urhajo2kep.height)-gepagyu2kep[0].height;
           jatelem[jatelemdb].kepe:=gepagyu2kep[0];
           jatelem[jatelemdb].alkepdb:=1;
           jatelem[jatelemdb].aktalkep:=0;
           jatelem[jatelemdb].alkepvaltido:=2;
           jatelem[jatelemdb].neve:='gepagyu2';
           inc(jatelemdb,1);
           setlength(jatelem,jatelemdb+1);
           jatelem[jatelemdb]:=Tjateleme.create;
           jatelem[jatelemdb].xhely:=urhajo2x;
           jatelem[jatelemdb].yhely:=(urhajo2y+urhajo2kep.height)-raketaveto2kep.height;
           jatelem[jatelemdb].kepe:=raketaveto2kep;
           jatelem[jatelemdb].alkepdb:=0;
           jatelem[jatelemdb].aktalkep:=0;
           jatelem[jatelemdb].neve:='raketaveto2';
           inc(jatelemdb,1);
           urhajo1elete:=100; urhajo2elete:=100;
           urh1penze:=2000; urh2penze:=2000;
           urh1balramegy:=false; urh1jobbramegy:=false; urh1tuzel:=false;
           urh1uzemanyaga:=255; urh2uzemanyaga:=255;
           urh1raketai:=5; urh2raketai:=5;
           urh1lohetraketat:=true; urh2lohetraketat:=true;
           falx:=0; faltombdb:=0;
           while falx<form1.width do
           begin
                 setlength(jatelem,jatelemdb+1);
                 jatelem[jatelemdb]:=Tjateleme.create;
                 jatelem[jatelemdb].xhely:=falx;
                 jatelem[jatelemdb].yhely:=urhajo1y-vedofalkep[0].height*2;
                 jatelem[jatelemdb].kepe:=vedofalkep[0];
                 jatelem[jatelemdb].alkepdb:=7;
                 jatelem[jatelemdb].aktalkep:=0;
                 jatelem[jatelemdb].elete:=2;
                 jatelem[jatelemdb].torlendo:=false;
                 jatelem[jatelemdb].neve:='urh1faldarab';
                 inc(jatelemdb,1);
                 //
                 setlength(jatelem,jatelemdb+1);
                 jatelem[jatelemdb]:=Tjateleme.create;
                 jatelem[jatelemdb].xhely:=falx;
                 jatelem[jatelemdb].yhely:=urhajo2y+urhajo2kep.height+vedofalkep[0].height;
                 jatelem[jatelemdb].kepe:=vedofalkep[0];
                 jatelem[jatelemdb].alkepdb:=7;
                 jatelem[jatelemdb].aktalkep:=0;
                 jatelem[jatelemdb].elete:=2;
                 jatelem[jatelemdb].torlendo:=false;
                 jatelem[jatelemdb].neve:='urh2faldarab';
                 inc(jatelemdb,1);
                 //
                 setlength(urh1faltomb,faltombdb+1);
                 urh1faltomb[faltombdb]:=true;
                 setlength(urh2faltomb,faltombdb+1);
                 urh2faltomb[faltombdb]:=true;
                 inc(faltombdb,1);
                 falx:=falx+vedofalkep[0].width;
           end;
           ikonokhozszoveg();
           ActiveControl:=nil;
           Application.ReleaseComponent(urh1panel);
           Application.ReleaseComponent(urh2panel);
           vanuzenet:=false;
           if jatekmod=1 then
           begin
             urh2irvaltido:=round(random(25))+5;
             case round(random(4)) of
             0: urh2balramegy:=true;
             1: urh2jobbramegy:=true;
             else begin
                urh2balramegy:=false; urh2jobbramegy:=false;
             end;
             end;
           end;
           urh1uzalevonhat:=false;
           urh1uzalevonido:=0;
           urh2uzalevonhat:=false;
           urh2uzalevonido:=0;
           BASS_ChannelStop(zene);
           if zenebe=true then
           begin
             zene:=BASS_StreamCreateFile(0, PChar('hangok/htzene'+inttostr(round(random(1)))+'.mp3'), 0, 0, BASS_SAMPLE_LOOP);
             if zene<>0 then BASS_ChannelPlay(zene, False);
           end;
           johetujdologido:=round(random(50))+50;
           self.Cursor:=crNone;
           jatallapot:=2;
         end;
         end;
       2: begin
               if KEY=urh1balragomb then urh1balramegy:=true;
               if KEY=urh1jobbragomb then urh1jobbramegy:=true;
               if KEY=urh1tuzgomb then urh1tuzel:=true;
               if jatekmod=2 then
               begin
                    if KEY=urh2balragomb then urh2balramegy:=true;
                    if KEY=urh2jobbragomb then urh2jobbramegy:=true;
                    if KEY=urh2tuzgomb then urh2tuzel:=true;
               end;
          end;
       end;
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var penzlevonas: byte;
  i: word;
begin
  case jatallapot of
  2: begin
       if KEY=urh1balragomb then urh1balramegy:=false;
       if KEY=urh1jobbragomb then urh1jobbramegy:=false;
       if KEY=urh1tuzgomb then urh1tuzel:=false;
       if (KEY=urh1javitgomb) and (urhajo1elete<100) and (urhajo1elete>0) and (urh1penze>0) then
       begin
         if urh1penze>=100-urhajo1elete then
            penzlevonas:=100-urhajo1elete
         else penzlevonas:=urh1penze;
         urhajo1elete:=urhajo1elete+penzlevonas;
         urh1penze:=urh1penze-penzlevonas;
       end;
       if (KEY=urh1tankolgomb) and (urh1uzemanyaga<255) and (urh1penze>0) and (urhajo1elete>0) then
       begin
         if urh1penze>=255-urh1uzemanyaga then
            penzlevonas:=255-urh1uzemanyaga
         else penzlevonas:=urh1penze;
         urh1uzemanyaga:=urh1uzemanyaga+penzlevonas;
         urh1penze:=urh1penze-penzlevonas;
       end;
       if (KEY=urh1faljavitgomb) and (urhajo1elete>0) and (urh1penze>0) then
       begin
         for i:=0 to faltombdb-1 do
              if urh1faltomb[i]=false then
              begin
                if urh1penze>=5 then
                begin
                   setlength(jatelem,jatelemdb+1);
                   jatelem[jatelemdb]:=Tjateleme.create;
                   jatelem[jatelemdb].xhely:=i*vedofalkep[0].width;
                   jatelem[jatelemdb].yhely:=urhajo1y-vedofalkep[0].height*2;
                   jatelem[jatelemdb].kepe:=vedofalkep[0];
                   jatelem[jatelemdb].alkepdb:=7;
                   jatelem[jatelemdb].aktalkep:=0;
                   jatelem[jatelemdb].elete:=2;
                   jatelem[jatelemdb].torlendo:=false;
                   jatelem[jatelemdb].neve:='urh1faldarab';
                   inc(jatelemdb,1);
                   urh1faltomb[i]:=true;
                   urh1penze:=urh1penze-5;
                end
                else break;
              end;
       end;
       //
       if jatekmod=2 then
       begin
            if KEY=urh2balragomb then urh2balramegy:=false;
            if KEY=urh2jobbragomb then urh2jobbramegy:=false;
            if KEY=urh2tuzgomb then urh2tuzel:=false;
            if (KEY=urh2javitgomb) and (urhajo2elete<100) and (urhajo2elete>0) and (urh2penze>0) then
            begin
               if urh2penze>=100-urhajo2elete then
                  penzlevonas:=100-urhajo2elete
               else penzlevonas:=urh2penze;
               urhajo2elete:=urhajo2elete+penzlevonas;
               urh2penze:=urh2penze-penzlevonas;
            end;
            if (KEY=urh2tankolgomb) and (urh2uzemanyaga<255) and (urh2penze>0) and (urhajo2elete>0) then
            begin
               if urh2penze>=255-urh2uzemanyaga then
                  penzlevonas:=255-urh2uzemanyaga
               else penzlevonas:=urh2penze;
               urh2uzemanyaga:=urh2uzemanyaga+penzlevonas;
               urh2penze:=urh2penze-penzlevonas;
            end;
            if (KEY=urh2faljavitgomb) and (urhajo2elete>0) and (urh2penze>0) then
            begin
               for i:=0 to faltombdb-1 do
                    if urh2faltomb[i]=false then
                    begin
                      if urh2penze>=5 then
                      begin
                         setlength(jatelem,jatelemdb+1);
                         jatelem[jatelemdb]:=Tjateleme.create;
                         jatelem[jatelemdb].xhely:=i*vedofalkep[0].width;
                         jatelem[jatelemdb].yhely:=urhajo2y+urhajo2kep.height+vedofalkep[0].height;
                         jatelem[jatelemdb].kepe:=vedofalkep[0];
                         jatelem[jatelemdb].alkepdb:=7;
                         jatelem[jatelemdb].aktalkep:=0;
                         jatelem[jatelemdb].elete:=2;
                         jatelem[jatelemdb].torlendo:=false;
                         jatelem[jatelemdb].neve:='urh2faldarab';
                         inc(jatelemdb,1);
                         urh2faltomb[i]:=true;
                         urh2penze:=urh2penze-5;
                      end
                      else break;
                    end;
            end;
       end;
     end;
  end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case jatallapot of
  0: begin
        if (X>=(form1.width div 2)-nyelvkep[nyelv].width div 2) and (X<=(form1.width div 2)-nyelvkep[nyelv].width div 2+nyelvkep[nyelv].width) and (Y>=(form1.height div 2)+4+cimszovnagy.height+4) and (Y<=((form1.height div 2)+4+cimszovnagy.height+4)+nyelvkep[nyelv].height) then
        begin
             if nyelv=0 then
                nyelv:=1
             else nyelv:=0;
        end;
        if (X>=(form1.width div 2)-cimszovnagy.width div 2) and (X<=(form1.width div 2)-cimszovnagy.width div 2+cimszovnagy.width) and (Y>=(form1.height div 2)-4-cimszovnagy.height) and (Y<=(form1.height div 2)-4-cimszovnagy.height+cimszovnagy.height) then
        begin //Két játékos mód gomb:
             jatekmod:=2;
             eligtablacsinalas();
             jatallapot:=1;
        end;
        if (X>=(form1.width div 2)-cimszovnagy.width div 2) and (X<=(form1.width div 2)-cimszovnagy.width div 2+cimszovnagy.width) and (Y>=(form1.height div 2)+4) and (Y<=(form1.height div 2)+4+cimszovnagy.height) then
        begin
             jatekmod:=1;
             eligtablacsinalas();
             jatallapot:=1;
        end;
     end;
  end;
end;

procedure TForm1.FormPaint(Sender: TObject);
var edb,eletszazalek,csikszazalek,idex: word;
begin
  canvas.stretchdraw(Rect(0,0,form1.width,form1.height),hatterkep);
  case jatallapot of
  0: begin //Címképernyő:
           canvas.stretchdraw(Rect((form1.width div 2)-cimszovnagy.width div 2,4,((form1.width div 2)-cimszovnagy.width div 2)+cimszovnagy.width,4+cimszovnagy.height),cimszov[nyelv]);
           if (mouse.cursorpos.X>=(form1.width div 2)-cimszovnagy.width div 2) and (mouse.cursorpos.X<=(form1.width div 2)-cimszovnagy.width div 2+cimszovnagy.width) and (mouse.cursorpos.Y>=(form1.height div 2)-4-cimszovnagy.height) and (mouse.cursorpos.Y<=(form1.height div 2)-4-cimszovnagy.height+cimszovnagy.height) then
              canvas.stretchdraw(Rect((form1.width div 2)-cimszovnagy.width div 2,(form1.height div 2)-4-cimszovnagy.height,((form1.width div 2)-cimszovnagy.width div 2)+cimszovnagy.width,((form1.height div 2)-4-cimszovnagy.height)+cimszovnagy.height),hvshkep[1])
           else
               canvas.stretchdraw(Rect((form1.width div 2)-cimszovnagy.width div 2,(form1.height div 2)-4-cimszovnagy.height,((form1.width div 2)-cimszovnagy.width div 2)+cimszovnagy.width,((form1.height div 2)-4-cimszovnagy.height)+cimszovnagy.height),hvshkep[0]);
           if (mouse.cursorpos.X>=(form1.width div 2)-cimszovnagy.width div 2) and (mouse.cursorpos.X<=(form1.width div 2)-cimszovnagy.width div 2+cimszovnagy.width) and (mouse.cursorpos.Y>=(form1.height div 2)+4) and (mouse.cursorpos.Y<=(form1.height div 2)+4+cimszovnagy.height) then
              canvas.stretchdraw(Rect((form1.width div 2)-cimszovnagy.width div 2,(form1.height div 2)+4,((form1.width div 2)-cimszovnagy.width div 2)+cimszovnagy.width,(form1.height div 2)+4+cimszovnagy.height),hvspckep[1])
           else
               canvas.stretchdraw(Rect((form1.width div 2)-cimszovnagy.width div 2,(form1.height div 2)+4,((form1.width div 2)-cimszovnagy.width div 2)+cimszovnagy.width,(form1.height div 2)+4+cimszovnagy.height),hvspckep[0]);
           canvas.draw((form1.width div 2)-nyelvkep[nyelv].width div 2,(form1.height div 2)+4+cimszovnagy.height+4,nyelvkep[nyelv]);
           Form1.Canvas.Font.Size:=14;
           Form1.Canvas.Brush.Color:=clGray;
           Form1.Canvas.Font.Color:=clBlue;
           if nyelv=0 then
              canvas.TextOut(2,form1.height-28,'Esc: kilépés')
           else canvas.TextOut(2,form1.height-28,'Esc: exit');
     end;
  1: begin //Introszöveg:
           introszovkiiras(4);
     end;
  2: begin //Játéktér:
           idex:=2; //Lenti, 1. űrhajó adatai:
           Form1.Canvas.Brush.Color:=clGray;
           canvas.draw(idex,form1.height-32,balraikonkep); idex:=idex+balraikonkep.width+2;
           canvas.textout(idex,form1.height-32,urh1balfelirat[nyelv]); idex:=idex+Length(urh1balfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,form1.height-32,jobbraikonkep); idex:=idex+jobbraikonkep.width+2;
           canvas.textout(idex,form1.height-32,urh1jobbfelirat[nyelv]); idex:=idex+Length(urh1jobbfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,form1.height-32,tuzikonkep); idex:=idex+tuzikonkep.width+2;
           canvas.textout(idex,form1.height-32,urh1tuzfelirat[nyelv]); idex:=idex+Length(urh1tuzfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,form1.height-32,tankolikonkep); idex:=idex+tankolikonkep.width+2;
           canvas.textout(idex,form1.height-32,urh1tankolfelirat[nyelv]); idex:=idex+Length(urh1tankolfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,form1.height-32,javitikonkep); idex:=idex+javitikonkep.width+2;
           canvas.textout(idex,form1.height-32,urh1javitfelirat[nyelv]); idex:=idex+Length(urh1javitfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,form1.height-32,ujraepitikonkep); idex:=idex+ujraepitikonkep.width+2;
           canvas.textout(idex,form1.height-32,urh1faljavitfelirat[nyelv]); idex:=idex+Length(urh1faljavitfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           Form1.Canvas.Rectangle(idex,form1.height-32,idex+100,form1.height-16);
           if urhajo1elete<round(100/2) then Form1.Canvas.Brush.Color:=clRed
           else Form1.Canvas.Brush.Color:=clYellow;
           eletszazalek:=round((100*urhajo1elete)/100);
           csikszazalek:=round((100*eletszazalek)/100);
           Form1.Canvas.Rectangle(idex,form1.height-32,idex+csikszazalek,form1.height-16);
           idex:=idex+100+2;
           Form1.Canvas.Brush.Color:=clGray;
           Form1.Canvas.Rectangle(idex,form1.height-32,idex+100,form1.height-16);
           if urh1uzemanyaga<round(255/2) then Form1.Canvas.Brush.Color:=clRed
           else Form1.Canvas.Brush.Color:=clBlue;
           eletszazalek:=round((100*urh1uzemanyaga)/255);
           csikszazalek:=round((100*eletszazalek)/100);
           Form1.Canvas.Rectangle(idex,form1.height-32,idex+csikszazalek,form1.height-16);
           canvas.textout(idex+100+2,form1.height-32,inttostr(urh1penze));
           //Fenti, 2. űrhajó adatai:
           idex:=2;
           Form1.Canvas.Brush.Color:=clGray;
           canvas.draw(idex,2,balraikonkep); idex:=idex+balraikonkep.width+2;
           canvas.textout(idex,2,urh2balfelirat[nyelv]); idex:=idex+Length(urh2balfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,2,jobbraikonkep); idex:=idex+jobbraikonkep.width+2;
           canvas.textout(idex,2,urh2jobbfelirat[nyelv]); idex:=idex+Length(urh2jobbfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,2,tuzikonkep); idex:=idex+tuzikonkep.width+2;
           canvas.textout(idex,2,urh2tuzfelirat[nyelv]); idex:=idex+Length(urh2tuzfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,2,tankolikonkep); idex:=idex+tankolikonkep.width+2;
           canvas.textout(idex,2,urh2tankolfelirat[nyelv]); idex:=idex+Length(urh2tankolfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,2,javitikonkep); idex:=idex+javitikonkep.width+2;
           canvas.textout(idex,2,urh2javitfelirat[nyelv]); idex:=idex+Length(urh2javitfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           canvas.draw(idex,2,ujraepitikonkep); idex:=idex+ujraepitikonkep.width+2;
           canvas.textout(idex,2,urh2faljavitfelirat[nyelv]); idex:=idex+Length(urh2faljavitfelirat[nyelv])*Form1.Canvas.Font.Size+2;
           Form1.Canvas.Rectangle(idex,2,idex+100,18);
           if urhajo2elete<round(100/2) then Form1.Canvas.Brush.Color:=clRed
           else Form1.Canvas.Brush.Color:=clYellow;
           eletszazalek:=round((100*urhajo2elete)/100);
           csikszazalek:=round((100*eletszazalek)/100);
           Form1.Canvas.Rectangle(idex,2,idex+csikszazalek,18);
           idex:=idex+100+2;
           Form1.Canvas.Brush.Color:=clGray;
           Form1.Canvas.Rectangle(idex,2,idex+100,18);
           if urh2uzemanyaga<round(255/2) then Form1.Canvas.Brush.Color:=clRed
           else Form1.Canvas.Brush.Color:=clBlue;
           eletszazalek:=round((100*urh2uzemanyaga)/255);
           csikszazalek:=round((100*eletszazalek)/100);
           Form1.Canvas.Rectangle(idex,2,idex+csikszazalek,18);
           canvas.textout(idex+100+2,2,inttostr(urh2penze));
           if jatelemdb>0 then
           begin
                for edb:=0 to jatelemdb-1 do
                begin
                    if jatelem[edb].neve='kiiras' then
                    begin
                      Canvas.Brush.Color:=clBlue;
                      canvas.textout(jatelem[edb].xhely,jatelem[edb].yhely,jatelem[edb].felirata);
                    end
                    else canvas.draw(jatelem[edb].xhely,jatelem[edb].yhely,jatelem[edb].kepe);
                end;
           end;
     end;
  end;
end;

procedure TForm1.kilepgombkatt(Sender: TObject);
var valasz,stilus: integer;
begin
 stilus:=MB_ICONQUESTION + MB_YESNO;
 if nyelv=0 then
    valasz:=Application.MessageBox('Biztosan ki akarsz lépni?', 'Megerősítés', stilus)
 else valasz:=Application.MessageBox('Are you sure you want to exit?', 'Confirmation', stilus);
 if valasz=IDYES then
    case jatallapot of
    0: begin
         BASS_ChannelStop(zene);
         BASS_Free;
         Close;
       end;
    1: begin
              if Assigned(urh1panel) then Application.ReleaseComponent(urh1panel);
              if Assigned(urh2panel) then Application.ReleaseComponent(urh2panel);
              jatallapot:=0;
       end;
    2: begin
       palyatorles();
       BASS_ChannelStop(zene);
       self.Cursor:=crDefault;
       if zenebe=true then
       begin
          zene:=BASS_StreamCreateFile(0, PChar('hangok/cimzene.mp3'), 0, 0, BASS_SAMPLE_LOOP);
          if zene<>0 then BASS_ChannelPlay(zene, False);
       end;
       jatallapot:=0;
       end;
    end;
end;

procedure TForm1.palyafrissites(Sender: TObject);
var edb,edb2,j: word;
  penzlevonas,db,pluszpenz: byte;
begin
 case jatallapot of
 1: begin
    if szovmeztorles=true then
    begin
       FreeAndNil(szovegmezo);
       szovmeztorles:=false;
    end;
   end;
 2: begin
     if urh1uzalevonido>0 then
        urh1uzalevonido:=urh1uzalevonido-1
     else if urh1uzalevonhat=true then
     begin
          urh1uzalevonhat:=false;
          if urh1uzemanyaga>0 then urh1uzemanyaga:=urh1uzemanyaga-1;
     end;
     if urh2uzalevonido>0 then
        urh2uzalevonido:=urh2uzalevonido-1
     else if urh2uzalevonhat=true then
     begin
          urh2uzalevonhat:=false;
          if urh2uzemanyaga>0 then urh2uzemanyaga:=urh2uzemanyaga-1;
          if (jatekmod=1) and (urh2uzemanyaga<155) and (urh2penze>0) and (urhajo2elete>0) then
          begin //Ha ezt a számítógép irányítja:
             if urh2penze>=255-urh2uzemanyaga then
                penzlevonas:=255-urh2uzemanyaga
             else penzlevonas:=urh2penze;
             urh2uzemanyaga:=urh2uzemanyaga+penzlevonas;
             urh2penze:=urh2penze-penzlevonas;
          end;
     end;
     //
     if johetujdologido>0 then
        johetujdologido:=johetujdologido-1
     else
     begin
       johetujdologido:=round(random(50))+50;
       case round(random(10)) of
       0: begin
               setlength(jatelem,jatelemdb+1);
               jatelem[jatelemdb]:=Tjateleme.create;
               if round(random(2))=0 then
               begin
                    jatelem[jatelemdb].xhely:=-ufokepe[0].width;
                    jatelem[jatelemdb].mozgir:=0;
               end
               else
               begin
                    jatelem[jatelemdb].xhely:=form1.width+ufokepe[0].width;
                    jatelem[jatelemdb].mozgir:=180;
               end;
               jatelem[jatelemdb].yhely:=form1.height div 2;
               jatelem[jatelemdb].kepe:=ufokepe[0];
               jatelem[jatelemdb].alkepdb:=23;
               jatelem[jatelemdb].aktalkep:=0;
               jatelem[jatelemdb].elete:=4;
               jatelem[jatelemdb].torlendo:=false;
               jatelem[jatelemdb].sebesseg:=6;
               if round(random(2))=0 then
                  jatelem[jatelemdb].neve:='ufo'
               else jatelem[jatelemdb].neve:='raketasufo';
               inc(jatelemdb,1);
          end;
       1: begin
               setlength(jatelem,jatelemdb+1);
               jatelem[jatelemdb]:=Tjateleme.create;
               if round(random(2))=0 then
               begin
                    jatelem[jatelemdb].xhely:=-aszteroida1kep.width;
                    jatelem[jatelemdb].mozgir:=0;
               end
               else
               begin
                    jatelem[jatelemdb].xhely:=form1.width+aszteroida1kep.width;
                    jatelem[jatelemdb].mozgir:=180;
               end;
               jatelem[jatelemdb].yhely:=(urhajo2y+urhajo2kep.height+vedofalkep[0].height)+round(random((urhajo1y-vedofalkep[0].height*2)-(urhajo2y+urhajo2kep.height+vedofalkep[0].height)));
               jatelem[jatelemdb].kepe:=aszteroida1kep;
               jatelem[jatelemdb].alkepdb:=0;
               jatelem[jatelemdb].aktalkep:=0;
               jatelem[jatelemdb].elete:=1;
               jatelem[jatelemdb].torlendo:=false;
               jatelem[jatelemdb].sebesseg:=round(random(2))+4;
               jatelem[jatelemdb].neve:='aszteroida1';
               inc(jatelemdb,1);
          end;
       2: begin
               setlength(jatelem,jatelemdb+1);
               jatelem[jatelemdb]:=Tjateleme.create;
               if round(random(2))=0 then
               begin
                    jatelem[jatelemdb].xhely:=-aszteroida2kep.width;
                    jatelem[jatelemdb].mozgir:=0;
               end
               else
               begin
                    jatelem[jatelemdb].xhely:=form1.width+aszteroida2kep.width;
                    jatelem[jatelemdb].mozgir:=180;
               end;
               jatelem[jatelemdb].yhely:=(urhajo2y+urhajo2kep.height+vedofalkep[0].height)+round(random((urhajo1y-vedofalkep[0].height*2)-(urhajo2y+urhajo2kep.height+vedofalkep[0].height)));
               jatelem[jatelemdb].kepe:=aszteroida2kep;
               jatelem[jatelemdb].alkepdb:=0;
               jatelem[jatelemdb].aktalkep:=0;
               jatelem[jatelemdb].elete:=1;
               jatelem[jatelemdb].torlendo:=false;
               jatelem[jatelemdb].sebesseg:=round(random(2))+4;
               jatelem[jatelemdb].neve:='aszteroida2';
               inc(jatelemdb,1);
          end;
       end;
     end;
     //
     if (urh1balramegy=true) and (urhajo1elete>0) and (urh1uzemanyaga>0) then
     begin
           if jatelemdb>0 then
                for edb:=0 to jatelemdb-1 do
                    if jatelem[edb].neve='urhajo1' then
                    begin
                       if jatelem[edb].xhely-8>1 then
                       begin
                            if urh1uzalevonhat=false then
                            begin
                              urh1uzalevonhat:=true;
                              urh1uzalevonido:=10;
                            end;
                            jatelem[edb].xhely:=jatelem[edb].xhely-8;
                            urhajo1x:=jatelem[edb].xhely;
                            for edb2:=0 to jatelemdb-1 do
                                if (jatelem[edb2].neve='gepagyu1') or (jatelem[edb2].neve='raketaveto1') then
                                   jatelem[edb2].xhely:=jatelem[edb2].xhely-8;
                       end;
                       break;
                    end;
     end;
     if (urh1jobbramegy=true) and (urhajo1elete>0) and (urh1uzemanyaga>0) then
     begin
           if jatelemdb>0 then
           begin
                for edb:=0 to jatelemdb-1 do
                    if jatelem[edb].neve='urhajo1' then
                    begin
                       if jatelem[edb].xhely+urhajo1kep.width+8<form1.width then
                       begin
                            if urh1uzalevonhat=false then
                            begin
                              urh1uzalevonhat:=true;
                              urh1uzalevonido:=10;
                            end;
                            jatelem[edb].xhely:=jatelem[edb].xhely+8;
                            urhajo1x:=jatelem[edb].xhely;
                            for edb2:=0 to jatelemdb-1 do
                                if (jatelem[edb2].neve='gepagyu1') or (jatelem[edb2].neve='raketaveto1') then
                                   jatelem[edb2].xhely:=jatelem[edb2].xhely+8;
                       end;
                       break;
                    end;
           end;
     end;
     if (urh1tuzel=true) and (urhajo1elete>0) and (urhajo2elete>0) then
     begin
           if jatelemdb>0 then
           begin
                for edb:=0 to jatelemdb-1 do
                begin
                    if jatelem[edb].neve='gepagyu1' then
                    begin
                       if jatelem[edb].alkepvaltido>0 then
                          jatelem[edb].alkepvaltido:=jatelem[edb].alkepvaltido-1
                       else
                       begin
                            jatelem[edb].alkepvaltido:=5;
                            if jatelem[edb].aktalkep<jatelem[edb].alkepdb then
                            begin
                                 jatelem[edb].aktalkep:=jatelem[edb].aktalkep+1;
                                 jatelem[edb].kepe:=gepagyu1kep[jatelem[edb].aktalkep];
                            end
                            else
                            begin
                                 if hangbe=true then
                                 begin
                                        hang:=BASS_StreamCreateFile(0, PChar('hangok/loveshang.wav'), 0, 0, 0);
                                        if hang<>0 then BASS_ChannelPlay(hang, True);
                                 end;
                                 jatelem[edb].aktalkep:=0;
                                 jatelem[edb].kepe:=gepagyu1kep[jatelem[edb].aktalkep];
                                 setlength(jatelem,jatelemdb+1);
                                 jatelem[jatelemdb]:=Tjateleme.create;
                                 jatelem[jatelemdb].xhely:=jatelem[edb].xhely;
                                 jatelem[jatelemdb].yhely:=jatelem[edb].yhely-(jatelem[edb].kepe.height div 2);
                                 jatelem[jatelemdb].kepe:=lovedek1kep;
                                 jatelem[jatelemdb].alkepdb:=0;
                                 jatelem[jatelemdb].aktalkep:=0;
                                 jatelem[jatelemdb].levonelet:=1;
                                 jatelem[jatelemdb].torlendo:=false;
                                 jatelem[jatelemdb].sebesseg:=12;
                                 jatelem[jatelemdb].neve:='lovedek1';
                                 inc(jatelemdb,1);
                            end;
                       end;
                    end;
                    if jatelem[edb].neve='raketaveto1' then
                    begin
                      if (urh1raketai>0) and (urh1lohetraketat=true) then
                      begin
                       if hangbe=true then
                       begin
                              hang:=BASS_StreamCreateFile(0, PChar('hangok/raketahang.wav'), 0, 0, 0);
                              if hang<>0 then BASS_ChannelPlay(hang, True);
                       end;
                       setlength(jatelem,jatelemdb+1);
                       jatelem[jatelemdb]:=Tjateleme.create;
                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely;
                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely-(jatelem[edb].kepe.height div 2);
                       jatelem[jatelemdb].kepe:=raketafelkep;
                       jatelem[jatelemdb].alkepdb:=0;
                       jatelem[jatelemdb].aktalkep:=0;
                       jatelem[jatelemdb].levonelet:=5;
                       jatelem[jatelemdb].torlendo:=false;
                       jatelem[jatelemdb].sebesseg:=14;
                       jatelem[jatelemdb].raketatorloido:=100;
                       jatelem[jatelemdb].neve:='raketa1';
                       inc(jatelemdb,1);
                       urh1raketai:=urh1raketai-1;
                       urh1lohetraketat:=false
                      end;
                    end;
                end;
           end;
     end;
     //
     if jatekmod=1 then
     begin
          if urh2irvaltido>0 then
             urh2irvaltido:=urh2irvaltido-1
          else
          begin
             urh2irvaltido:=round(random(25))+5;
             case round(random(4)) of
             0: urh2balramegy:=true;
             1: urh2jobbramegy:=true;
             else begin
                urh2balramegy:=false; urh2jobbramegy:=false;
             end;
             end;
          end;
     end;
     //A 2. (fenti) űrhajó:
     if (urh2balramegy=true) and (urhajo2elete>0) and (urh2uzemanyaga>0) then
     begin
           if jatelemdb>0 then
                for edb:=0 to jatelemdb-1 do
                    if jatelem[edb].neve='urhajo2' then
                    begin
                       if jatelem[edb].xhely-8>1 then
                       begin
                            if urh2uzalevonhat=false then
                            begin
                              urh2uzalevonhat:=true;
                              urh2uzalevonido:=10;
                            end;
                            jatelem[edb].xhely:=jatelem[edb].xhely-8;
                            urhajo2x:=jatelem[edb].xhely;
                            for edb2:=0 to jatelemdb-1 do
                                if (jatelem[edb2].neve='gepagyu2') or (jatelem[edb2].neve='raketaveto2') then
                                begin
                                   jatelem[edb2].xhely:=jatelem[edb2].xhely-8;
                                   if jatekmod=1 then //Ha ezt a számítógép irányítja:
                                   begin
                                     urh2tuzel:=false;
                                     for j:=0 to jatelemdb-1 do
                                     begin
                                        if (jatelem[edb2].xhely>=jatelem[j].xhely) and (jatelem[edb2].xhely<=jatelem[j].xhely+jatelem[j].kepe.width) and ((jatelem[j].neve='urhajo1') or (jatelem[j].neve='urh1faldarab')) then
                                        begin
                                          urh2tuzel:=true;
                                          break;
                                        end;
                                     end;
                                   end;
                                end;
                       end
                       else if jatekmod=1 then //Ha ezt a számítógép irányítja:
                       begin
                         if round(random(2))=1 then
                            urh2jobbramegy:=true
                         else urh2balramegy:=false; //csak egyhelyben álljon.
                         urh2irvaltido:=round(random(25))+5;
                       end;
                       break;
                    end;
     end;
     if (urh2jobbramegy=true) and (urhajo2elete>0) and (urh2uzemanyaga>0) then
     begin
           if jatelemdb>0 then
           begin
                for edb:=0 to jatelemdb-1 do
                    if jatelem[edb].neve='urhajo2' then
                    begin
                       if jatelem[edb].xhely+urhajo1kep.width+8<form1.width then
                       begin
                            if urh2uzalevonhat=false then
                            begin
                              urh2uzalevonhat:=true;
                              urh2uzalevonido:=10;
                            end;
                            jatelem[edb].xhely:=jatelem[edb].xhely+8;
                            urhajo2x:=jatelem[edb].xhely;
                            for edb2:=0 to jatelemdb-1 do
                                if (jatelem[edb2].neve='gepagyu2') or (jatelem[edb2].neve='raketaveto2') then
                                begin
                                   jatelem[edb2].xhely:=jatelem[edb2].xhely+8;
                                   if jatekmod=1 then //Ha ezt a számítógép irányítja:
                                   begin
                                     urh2tuzel:=false;
                                     for j:=0 to jatelemdb-1 do
                                     begin
                                        if (jatelem[edb2].xhely>=jatelem[j].xhely) and (jatelem[edb2].xhely<=jatelem[j].xhely+jatelem[j].kepe.width) and ((jatelem[j].neve='urhajo1') or (jatelem[j].neve='urh1faldarab')) then
                                        begin
                                          urh2tuzel:=true;
                                          break;
                                        end;
                                     end;
                                   end;
                                end;
                       end
                       else if jatekmod=1 then //Ha ezt a számítógép irányítja:
                       begin
                         if round(random(2))=1 then
                            urh2balramegy:=true
                         else urh2jobbramegy:=false; //csak egyhelyben álljon.
                         urh2irvaltido:=round(random(25))+5;
                       end;
                       break;
                    end;
           end;
     end;
     if (urh2tuzel=true) and (urhajo2elete>0) and (urhajo1elete>0) then
     begin
           if jatelemdb>0 then
           begin
                for edb:=0 to jatelemdb-1 do
                begin
                    if jatelem[edb].neve='gepagyu2' then
                    begin
                       if jatelem[edb].alkepvaltido>0 then
                          jatelem[edb].alkepvaltido:=jatelem[edb].alkepvaltido-1
                       else
                       begin
                            jatelem[edb].alkepvaltido:=5;
                            if jatelem[edb].aktalkep<jatelem[edb].alkepdb then
                            begin
                                 jatelem[edb].aktalkep:=jatelem[edb].aktalkep+1;
                                 jatelem[edb].kepe:=gepagyu2kep[jatelem[edb].aktalkep];
                            end
                            else
                            begin
                                 if hangbe=true then
                                 begin
                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/loveshang.wav'), 0, 0, 0);
                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                 end;
                                 jatelem[edb].aktalkep:=0;
                                 jatelem[edb].kepe:=gepagyu2kep[jatelem[edb].aktalkep];
                                 setlength(jatelem,jatelemdb+1);
                                 jatelem[jatelemdb]:=Tjateleme.create;
                                 jatelem[jatelemdb].xhely:=jatelem[edb].xhely;
                                 jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                 jatelem[jatelemdb].kepe:=lovedek2kep;
                                 jatelem[jatelemdb].alkepdb:=0;
                                 jatelem[jatelemdb].aktalkep:=0;
                                 jatelem[jatelemdb].levonelet:=1;
                                 jatelem[jatelemdb].sebesseg:=12;
                                 jatelem[jatelemdb].torlendo:=false;
                                 jatelem[jatelemdb].neve:='lovedek2';
                                 inc(jatelemdb,1);
                            end;
                       end;
                    end;
                    //
                    if jatelem[edb].neve='raketaveto2' then
                    begin
                      if (urh2raketai>0) and (urh2lohetraketat=true) then
                      begin
                       if hangbe=true then
                       begin
                              hang:=BASS_StreamCreateFile(0, PChar('hangok/raketahang.wav'), 0, 0, 0);
                              if hang<>0 then BASS_ChannelPlay(hang, True);
                       end;
                       setlength(jatelem,jatelemdb+1);
                       jatelem[jatelemdb]:=Tjateleme.create;
                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely;
                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                       jatelem[jatelemdb].kepe:=raketalekep;
                       jatelem[jatelemdb].alkepdb:=0;
                       jatelem[jatelemdb].aktalkep:=0;
                       jatelem[jatelemdb].levonelet:=5;
                       jatelem[jatelemdb].torlendo:=false;
                       jatelem[jatelemdb].sebesseg:=14;
                       jatelem[jatelemdb].raketatorloido:=100;
                       jatelem[jatelemdb].neve:='raketa2';
                       inc(jatelemdb,1);
                       urh2raketai:=urh2raketai-1;
                       urh2lohetraketat:=false
                      end;
                    end;
                end;
           end;
     end;
     //
     edb:=0;
     if jatelemdb>0 then
        while edb<jatelemdb do
        begin
            if jatelem[edb].torlendo=true then
            begin
                 if jatelem[edb].neve='urhajo1' then
                 begin
                  if jatelem[edb].yhely<form1.height then
                  begin
                     jatelem[edb].yhely:=jatelem[edb].yhely+1;
                     for edb2:=0 to jatelemdb-1 do
                     begin
                          if jatelem[edb2].neve='gepagyu1' then jatelem[edb2].yhely:=jatelem[edb2].yhely+1;
                          if jatelem[edb2].neve='raketaveto1' then jatelem[edb2].yhely:=jatelem[edb2].yhely+1;
                     end;
                     setlength(jatelem,jatelemdb+1);
                     jatelem[jatelemdb]:=Tjateleme.create;
                     jatelem[jatelemdb].xhely:=jatelem[edb].xhely+random(urhajo1kep.width);
                     jatelem[jatelemdb].yhely:=jatelem[edb].yhely+random(urhajo1kep.height);
                     jatelem[jatelemdb].kepe:=robbkepe[0];
                     jatelem[jatelemdb].alkepdb:=6;
                     jatelem[jatelemdb].aktalkep:=0;
                     jatelem[jatelemdb].torlendo:=false;
                     jatelem[jatelemdb].neve:='robbanas';
                     inc(jatelemdb,1);
                  end
                  else
                  begin
                       if vanuzenet=false then
                       begin
                        vanuzenet:=true;
                        if nyelv=0 then
                           ShowMessage('Az űrszektorban a győztes: a 2. játékos!')
                        else ShowMessage('The winner in the space sector: player 2!');
                        palyatorles();
                        BASS_ChannelStop(zene);
                        if zenebe=true then
                        begin
                            zene:=BASS_StreamCreateFile(0, PChar('hangok/cimzene.mp3'), 0, 0, BASS_SAMPLE_LOOP);
                            if zene<>0 then BASS_ChannelPlay(zene, False);
                        end;
                        jatallapot:=0;
                       end;
                  end;
                 end
                 else
                 if jatelem[edb].neve='urhajo2' then
                 begin
                  if jatelem[edb].yhely+urhajo2kep.height>0 then
                  begin
                     jatelem[edb].yhely:=jatelem[edb].yhely-1;
                     for edb2:=0 to jatelemdb-1 do
                     begin
                          if jatelem[edb2].neve='gepagyu2' then jatelem[edb2].yhely:=jatelem[edb2].yhely-1;
                          if jatelem[edb2].neve='raketaveto2' then jatelem[edb2].yhely:=jatelem[edb2].yhely-1;
                     end;
                     setlength(jatelem,jatelemdb+1);
                     jatelem[jatelemdb]:=Tjateleme.create;
                     jatelem[jatelemdb].xhely:=jatelem[edb].xhely+random(urhajo2kep.width);
                     jatelem[jatelemdb].yhely:=jatelem[edb].yhely+random(urhajo2kep.height);
                     jatelem[jatelemdb].kepe:=robbkepe[0];
                     jatelem[jatelemdb].alkepdb:=6;
                     jatelem[jatelemdb].aktalkep:=0;
                     jatelem[jatelemdb].torlendo:=false;
                     jatelem[jatelemdb].neve:='robbanas';
                     inc(jatelemdb,1);
                  end
                  else
                  begin
                       if vanuzenet=false then
                       begin
                        vanuzenet:=true;
                        if nyelv=0 then
                           ShowMessage('Az űrszektorban a győztes: az 1. játékos!')
                        else ShowMessage('The winner in the space sector: player 1!');
                        palyatorles();
                        BASS_ChannelStop(zene);
                        if zenebe=true then
                        begin
                            zene:=BASS_StreamCreateFile(0, PChar('hangok/cimzene.mp3'), 0, 0, BASS_SAMPLE_LOOP);
                            if zene<>0 then BASS_ChannelPlay(zene, False);
                        end;
                        jatallapot:=0;
                       end;
                  end;
                 end
                 else
                 begin
                   if jatelem[edb].neve='urh1faldarab' then
                   begin
                      urh1faltomb[jatelem[edb].xhely div vedofalkep[0].width]:=false;
                      if hangbe=true then
                      begin
                             hang:=BASS_StreamCreateFile(0, PChar('hangok/robbanhang.wav'), 0, 0, 0);
                             if hang<>0 then BASS_ChannelPlay(hang, True);
                      end;
                      setlength(jatelem,jatelemdb+1);
                      jatelem[jatelemdb]:=Tjateleme.create;
                      jatelem[jatelemdb].xhely:=(jatelem[edb].xhely+jatelem[edb].kepe.width div 2)-robbkepe[0].width div 2;
                      jatelem[jatelemdb].yhely:=(jatelem[edb].yhely+jatelem[edb].kepe.height div 2)-robbkepe[0].height div 2;
                      jatelem[jatelemdb].kepe:=robbkepe[0];
                      jatelem[jatelemdb].alkepdb:=6;
                      jatelem[jatelemdb].aktalkep:=0;
                      jatelem[jatelemdb].torlendo:=false;
                      jatelem[jatelemdb].neve:='robbanas';
                      inc(jatelemdb,1);
                   end;
                   if jatelem[edb].neve='urh2faldarab' then
                   begin
                        urh2faltomb[jatelem[edb].xhely div vedofalkep[0].width]:=false;
                        if hangbe=true then
                        begin
                               hang:=BASS_StreamCreateFile(0, PChar('hangok/robbanhang.wav'), 0, 0, 0);
                               if hang<>0 then BASS_ChannelPlay(hang, True);
                        end;
                        setlength(jatelem,jatelemdb+1);
                        jatelem[jatelemdb]:=Tjateleme.create;
                        jatelem[jatelemdb].xhely:=(jatelem[edb].xhely+jatelem[edb].kepe.width div 2)-robbkepe[0].width div 2;
                        jatelem[jatelemdb].yhely:=(jatelem[edb].yhely+jatelem[edb].kepe.height div 2)-robbkepe[0].height div 2;
                        jatelem[jatelemdb].kepe:=robbkepe[0];
                        jatelem[jatelemdb].alkepdb:=6;
                        jatelem[jatelemdb].aktalkep:=0;
                        jatelem[jatelemdb].torlendo:=false;
                        jatelem[jatelemdb].neve:='robbanas';
                        inc(jatelemdb,1);
                        if (jatekmod=1) and (urhajo2elete>0) and (urh2penze>0) and (round(random(10))=1) then
                        begin
                           for j:=0 to faltombdb-1 do
                                if urh2faltomb[j]=false then
                                begin
                                  if urh2penze>=5 then
                                  begin
                                     setlength(jatelem,jatelemdb+1);
                                     jatelem[jatelemdb]:=Tjateleme.create;
                                     jatelem[jatelemdb].xhely:=j*vedofalkep[0].width;
                                     jatelem[jatelemdb].yhely:=urhajo2y+urhajo2kep.height+vedofalkep[0].height;
                                     jatelem[jatelemdb].kepe:=vedofalkep[0];
                                     jatelem[jatelemdb].alkepdb:=7;
                                     jatelem[jatelemdb].aktalkep:=0;
                                     jatelem[jatelemdb].elete:=2;
                                     jatelem[jatelemdb].torlendo:=false;
                                     jatelem[jatelemdb].neve:='urh2faldarab';
                                     inc(jatelemdb,1);
                                     urh2faltomb[j]:=true;
                                     urh2penze:=urh2penze-5;
                                  end
                                  else break;
                                end;
                        end;
                   end;
                   if (jatelem[edb].neve='lovedek1') or (jatelem[edb].neve='lovedek2') then
                   begin
                    if (jatelem[edb].yhely>0) and (jatelem[edb].yhely<form1.height) then
                    begin
                         if hangbe=true then
                         begin
                                hang:=BASS_StreamCreateFile(0, PChar('hangok/robbanhang.wav'), 0, 0, 0);
                                if hang<>0 then BASS_ChannelPlay(hang, True);
                         end;
                         setlength(jatelem,jatelemdb+1);
                         jatelem[jatelemdb]:=Tjateleme.create;
                         jatelem[jatelemdb].xhely:=jatelem[edb].xhely-kisrobbkepe[0].width div 2;
                         jatelem[jatelemdb].yhely:=jatelem[edb].yhely-kisrobbkepe[0].height div 2;
                         jatelem[jatelemdb].kepe:=kisrobbkepe[0];
                         jatelem[jatelemdb].alkepdb:=4;
                         jatelem[jatelemdb].aktalkep:=0;
                         jatelem[jatelemdb].torlendo:=false;
                         jatelem[jatelemdb].neve:='kisrobbanas';
                         inc(jatelemdb,1);
                    end;
                   end;
                   if (jatelem[edb].neve='raketa1') or (jatelem[edb].neve='raketa2') then
                   begin
                    if (jatelem[edb].yhely>0) and (jatelem[edb].yhely<form1.height) then
                    begin
                         if hangbe=true then
                         begin
                                hang:=BASS_StreamCreateFile(0, PChar('hangok/robbanhang.wav'), 0, 0, 0);
                                if hang<>0 then BASS_ChannelPlay(hang, True);
                         end;
                         setlength(jatelem,jatelemdb+1);
                         jatelem[jatelemdb]:=Tjateleme.create;
                         jatelem[jatelemdb].xhely:=(jatelem[edb].xhely+raketafelkep.width div 2)-robbkepe[0].width div 2;
                         jatelem[jatelemdb].yhely:=(jatelem[edb].yhely+raketalekep.height div 2)-robbkepe[0].height div 2;
                         jatelem[jatelemdb].kepe:=robbkepe[0];
                         jatelem[jatelemdb].alkepdb:=6;
                         jatelem[jatelemdb].aktalkep:=0;
                         jatelem[jatelemdb].torlendo:=false;
                         jatelem[jatelemdb].neve:='robbanas';
                         inc(jatelemdb,1);
                    end;
                   end;
                   FreeAndNil(jatelem[edb]);
                   if edb=jatelemdb-1 then
                      dec(jatelemdb)
                   else
                   begin
                        for j:=edb+1 to jatelemdb-1 do
                            jatelem[j-1]:=jatelem[j];
                        dec(jatelemdb);
                        dec(edb);
                   end;
                 end;
            end //Törlések vége.
            else
            begin
              case jatelem[edb].neve of
              'kiiras': begin
                         if jatelem[edb].elete>0 then
                         begin
                            jatelem[edb].elete:=jatelem[edb].elete-1;
                            if jatelem[edb].mozgir=90 then
                               jatelem[edb].yhely:=jatelem[edb].yhely-4
                            else jatelem[edb].yhely:=jatelem[edb].yhely+4;
                         end
                         else jatelem[edb].torlendo:=true;
                        end;
              'urh1faldarab','urh2faldarab': begin
                 if jatelem[edb].alkepvaltido>0 then
                    jatelem[edb].alkepvaltido:=jatelem[edb].alkepvaltido-1
                 else
                 begin
                      jatelem[edb].alkepvaltido:=5;
                      if jatelem[edb].aktalkep<jatelem[edb].alkepdb then
                      begin
                           jatelem[edb].aktalkep:=jatelem[edb].aktalkep+1;
                           jatelem[edb].kepe:=vedofalkep[jatelem[edb].aktalkep];
                      end
                      else
                      begin
                           jatelem[edb].aktalkep:=0;
                           jatelem[edb].kepe:=vedofalkep[jatelem[edb].aktalkep];
                      end;
                 end;
              end;
              'robbanas': begin
                 if jatelem[edb].alkepvaltido>0 then
                    jatelem[edb].alkepvaltido:=jatelem[edb].alkepvaltido-1
                 else
                 begin
                      jatelem[edb].alkepvaltido:=5;
                      if jatelem[edb].aktalkep<jatelem[edb].alkepdb then
                      begin
                           jatelem[edb].aktalkep:=jatelem[edb].aktalkep+1;
                           jatelem[edb].kepe:=robbkepe[jatelem[edb].aktalkep];
                      end
                      else jatelem[edb].torlendo:=true;
                 end;
              end;
              'kisrobbanas': begin
                 if jatelem[edb].alkepvaltido>0 then
                    jatelem[edb].alkepvaltido:=jatelem[edb].alkepvaltido-1
                 else
                 begin
                      jatelem[edb].alkepvaltido:=5;
                      if jatelem[edb].aktalkep<jatelem[edb].alkepdb then
                      begin
                           jatelem[edb].aktalkep:=jatelem[edb].aktalkep+1;
                           jatelem[edb].kepe:=kisrobbkepe[jatelem[edb].aktalkep];
                      end
                      else jatelem[edb].torlendo:=true;
                 end;
              end;
              'ufo','raketasufo': begin
                 if jatelem[edb].alkepvaltido>0 then
                    jatelem[edb].alkepvaltido:=jatelem[edb].alkepvaltido-1
                 else
                 begin
                      jatelem[edb].alkepvaltido:=5;
                      if jatelem[edb].aktalkep<jatelem[edb].alkepdb then
                      begin
                           jatelem[edb].aktalkep:=jatelem[edb].aktalkep+1;
                           jatelem[edb].kepe:=ufokepe[jatelem[edb].aktalkep];
                      end;
                 end;
                 case jatelem[edb].neve of
                 'ufo': if round(random(50))=1 then
                        begin
                             if hangbe=true then
                             begin
                                  hang:=BASS_StreamCreateFile(0, PChar('hangok/loveshang.wav'), 0, 0, 0);
                                  if hang<>0 then BASS_ChannelPlay(hang, True);
                             end;
                             setlength(jatelem,jatelemdb+1);
                             jatelem[jatelemdb]:=Tjateleme.create;
                             jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                             jatelem[jatelemdb].yhely:=jatelem[edb].yhely-lovedek1kep.height;
                             jatelem[jatelemdb].kepe:=lovedek1kep;
                             jatelem[jatelemdb].alkepdb:=0;
                             jatelem[jatelemdb].aktalkep:=0;
                             jatelem[jatelemdb].levonelet:=1;
                             jatelem[jatelemdb].sebesseg:=12;
                             jatelem[jatelemdb].torlendo:=false;
                             jatelem[jatelemdb].neve:='lovedek1';
                             inc(jatelemdb,1);
                             setlength(jatelem,jatelemdb+1);
                             jatelem[jatelemdb]:=Tjateleme.create;
                             jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                             jatelem[jatelemdb].yhely:=jatelem[edb].yhely+jatelem[edb].kepe.height+lovedek2kep.height;
                             jatelem[jatelemdb].kepe:=lovedek2kep;
                             jatelem[jatelemdb].alkepdb:=0;
                             jatelem[jatelemdb].aktalkep:=0;
                             jatelem[jatelemdb].levonelet:=1;
                             jatelem[jatelemdb].sebesseg:=12;
                             jatelem[jatelemdb].torlendo:=false;
                             jatelem[jatelemdb].neve:='lovedek2';
                             inc(jatelemdb,1);
                        end;
                 'raketasufo': if round(random(50))=1 then
                               begin
                               if hangbe=true then
                               begin
                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/raketahang.wav'), 0, 0, 0);
                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                               end;
                               setlength(jatelem,jatelemdb+1);
                               jatelem[jatelemdb]:=Tjateleme.create;
                               jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                               jatelem[jatelemdb].yhely:=jatelem[edb].yhely-raketafelkep.height;
                               jatelem[jatelemdb].kepe:=raketafelkep;
                               jatelem[jatelemdb].alkepdb:=0;
                               jatelem[jatelemdb].aktalkep:=0;
                               jatelem[jatelemdb].levonelet:=5;
                               jatelem[jatelemdb].torlendo:=false;
                               jatelem[jatelemdb].sebesseg:=14;
                               jatelem[jatelemdb].raketatorloido:=100;
                               jatelem[jatelemdb].neve:='raketa1';
                               inc(jatelemdb,1);
                               setlength(jatelem,jatelemdb+1);
                               jatelem[jatelemdb]:=Tjateleme.create;
                               jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                               jatelem[jatelemdb].yhely:=jatelem[edb].yhely+jatelem[edb].kepe.height+raketalekep.height;
                               jatelem[jatelemdb].kepe:=raketalekep;
                               jatelem[jatelemdb].alkepdb:=0;
                               jatelem[jatelemdb].aktalkep:=0;
                               jatelem[jatelemdb].levonelet:=5;
                               jatelem[jatelemdb].torlendo:=false;
                               jatelem[jatelemdb].sebesseg:=14;
                               jatelem[jatelemdb].raketatorloido:=100;
                               jatelem[jatelemdb].neve:='raketa2';
                               inc(jatelemdb,1);
                               end;
                 end;
                 if jatelem[edb].mozgir=0 then
                 begin
                   jatelem[edb].xhely:=jatelem[edb].xhely+jatelem[edb].sebesseg;
                   if jatelem[edb].xhely>form1.width then jatelem[edb].torlendo:=true;
                 end
                 else
                 begin
                   jatelem[edb].xhely:=jatelem[edb].xhely-jatelem[edb].sebesseg;
                   if jatelem[edb].xhely+jatelem[edb].kepe.width<0 then jatelem[edb].torlendo:=true;
                 end;
              end;
              'aszteroida1','aszteroida2': begin
                 if jatelem[edb].mozgir=0 then
                 begin
                   jatelem[edb].xhely:=jatelem[edb].xhely+jatelem[edb].sebesseg;
                   if jatelem[edb].xhely>form1.width then jatelem[edb].torlendo:=true;
                 end
                 else
                 begin
                   jatelem[edb].xhely:=jatelem[edb].xhely-jatelem[edb].sebesseg;
                   if jatelem[edb].xhely+jatelem[edb].kepe.width<0 then jatelem[edb].torlendo:=true;
                 end;
              end;
              'raketa1': begin
                if (jatelem[edb].raketatorloido>0) and (urhajo2elete>0) then
                begin
                   if (urhajo2x+urhajo2kep.width<jatelem[edb].xhely) and (jatelem[edb].yhely<urhajo1y-vedofalkep[0].height*2) then
                   begin
                        jatelem[edb].xhely:=jatelem[edb].xhely-jatelem[edb].sebesseg;
                        jatelem[edb].yhely:=jatelem[edb].yhely-jatelem[edb].sebesseg;
                   end
                   else if (urhajo2x>jatelem[edb].xhely) and (jatelem[edb].yhely<urhajo1y-vedofalkep[0].height*2) then
                   begin
                        jatelem[edb].xhely:=jatelem[edb].xhely+jatelem[edb].sebesseg;
                        jatelem[edb].yhely:=jatelem[edb].yhely-jatelem[edb].sebesseg;
                   end
                   else jatelem[edb].yhely:=jatelem[edb].yhely-jatelem[edb].sebesseg;
                   jatelem[edb].kepe:=raketafelkep;
                   jatelem[edb].raketatorloido:=jatelem[edb].raketatorloido-1;
                   for edb2:=0 to jatelemdb-1 do
                   begin
                         if (jatelem[edb].xhely<jatelem[edb2].xhely+jatelem[edb2].kepe.width) and
                         (jatelem[edb].xhely+jatelem[edb].kepe.width>jatelem[edb2].xhely) and
                         (jatelem[edb].yhely<jatelem[edb2].yhely+jatelem[edb2].kepe.height) and (jatelem[edb].kepe.height+jatelem[edb].yhely>jatelem[edb2].yhely) then
                          begin
                               case jatelem[edb2].neve of
                               'urhajo2': begin
                                               if urhajo2elete-jatelem[edb].levonelet>0 then
                                               begin
                                                  urhajo2elete:=urhajo2elete-jatelem[edb].levonelet;
                                                  if (jatekmod=1) and (urhajo2elete<50) and (urh2penze>0) then
                                                  begin
                                                     if urh2penze>=100-urhajo2elete then
                                                        penzlevonas:=100-urhajo2elete
                                                     else penzlevonas:=urh2penze;
                                                     urhajo2elete:=urhajo2elete+penzlevonas;
                                                     urh2penze:=urh2penze-penzlevonas;
                                                  end;
                                               end
                                               else
                                               begin
                                                    urhajo2elete:=0;
                                                    jatelem[edb2].torlendo:=true; //Űrhajó2 törlése
                                               end;
                                               jatelem[edb].torlendo:=true; //Rakéta törlése
                                               urh1lohetraketat:=true;
                                          end;
                               'urh2faldarab': begin
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    setlength(jatelem,jatelemdb+1);
                                                    jatelem[jatelemdb]:=Tjateleme.create;
                                                    jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                    jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                    jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                    jatelem[jatelemdb].elete:=100;
                                                    jatelem[jatelemdb].torlendo:=false;
                                                    jatelem[jatelemdb].sebesseg:=8;
                                                    jatelem[jatelemdb].felirata:='+5';
                                                    jatelem[jatelemdb].neve:='kiiras';
                                                    jatelem[jatelemdb].mozgir:=270;
                                                    inc(jatelemdb,1);
                                                    jatelem[edb2].torlendo:=true;  //Faldarab törlése
                                                    urh1penze:=urh1penze+5;
                                               end;
                                               jatelem[edb].torlendo:=true; //Rakéta törlése
                                               urh1lohetraketat:=true;
                                          end;
                               'ufo','raketasufo','aszteroida1','aszteroida2': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/robbanhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    if (jatelem[edb2].neve='ufo') or (jatelem[edb2].neve='raketasufo') then
                                                       db:=9
                                                    else db:=0;
                                                    for j:=0 to db do
                                                    begin
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=(jatelem[edb2].xhely+round(random(jatelem[edb2].kepe.width)))-robbkepe[0].width div 2;
                                                       jatelem[jatelemdb].yhely:=(jatelem[edb2].yhely+round(random(jatelem[edb2].kepe.height)))-robbkepe[0].height div 2;
                                                       jatelem[jatelemdb].kepe:=robbkepe[0];
                                                       jatelem[jatelemdb].alkepdb:=6;
                                                       jatelem[jatelemdb].aktalkep:=0;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].neve:='robbanas';
                                                       inc(jatelemdb,1);
                                                    end;
                                                    jatelem[edb2].torlendo:=true; //dolgok törlése
                                                    if jatelem[edb2].neve='ufo' then
                                                    begin
                                                       urh1penze:=urh1penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       jatelem[jatelemdb].felirata:='+50';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=270;
                                                       inc(jatelemdb,1);
                                                    end
                                                    else if jatelem[edb2].neve='raketasufo' then
                                                    begin
                                                       urh1penze:=urh1penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       if nyelv=0 then
                                                          jatelem[jatelemdb].felirata:='+50 és +5 rakéta'
                                                       else jatelem[jatelemdb].felirata:='+50 and +5 missiles';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=270;
                                                       inc(jatelemdb,1);
                                                       urh1raketai:=urh1raketai+5;
                                                    end
                                                    else
                                                    begin
                                                         pluszpenz:=round(random(10))+5;
                                                         urh1penze:=urh1penze+pluszpenz;
                                                         setlength(jatelem,jatelemdb+1);
                                                         jatelem[jatelemdb]:=Tjateleme.create;
                                                         jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                         jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                         jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                         jatelem[jatelemdb].elete:=100;
                                                         jatelem[jatelemdb].torlendo:=false;
                                                         jatelem[jatelemdb].sebesseg:=8;
                                                         jatelem[jatelemdb].felirata:='+'+inttostr(pluszpenz);
                                                         jatelem[jatelemdb].neve:='kiiras';
                                                         jatelem[jatelemdb].mozgir:=270;
                                                         inc(jatelemdb,1);
                                                    end;
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               end;
                          end;
                    end;
                end
                else
                begin
                     jatelem[edb].torlendo:=true;
                     urh1lohetraketat:=true;
                end;
              end;
              'raketa2': begin
                if (jatelem[edb].raketatorloido>0) and (urhajo1elete>0) then
                begin
                   if (urhajo1x+urhajo1kep.width<jatelem[edb].xhely) and (jatelem[edb].yhely>urhajo2y+urhajo2kep.height+vedofalkep[0].height) then
                   begin
                        jatelem[edb].xhely:=jatelem[edb].xhely-jatelem[edb].sebesseg;
                        jatelem[edb].yhely:=jatelem[edb].yhely+jatelem[edb].sebesseg;
                   end
                   else if (urhajo1x>jatelem[edb].xhely) and (jatelem[edb].yhely>urhajo2y+urhajo2kep.height+vedofalkep[0].height) then
                   begin
                        jatelem[edb].xhely:=jatelem[edb].xhely+jatelem[edb].sebesseg;
                        jatelem[edb].yhely:=jatelem[edb].yhely+jatelem[edb].sebesseg;
                   end
                   else jatelem[edb].yhely:=jatelem[edb].yhely+jatelem[edb].sebesseg;
                   jatelem[edb].kepe:=raketalekep;
                   jatelem[edb].raketatorloido:=jatelem[edb].raketatorloido-1;
                   for edb2:=0 to jatelemdb-1 do
                    begin
                         if (jatelem[edb].xhely<jatelem[edb2].xhely+jatelem[edb2].kepe.width) and
                         (jatelem[edb].xhely+jatelem[edb].kepe.width>jatelem[edb2].xhely) and
                         (jatelem[edb].yhely<jatelem[edb2].yhely+jatelem[edb2].kepe.height) and (jatelem[edb].kepe.height+jatelem[edb].yhely>jatelem[edb2].yhely) then
                          begin
                               case jatelem[edb2].neve of
                               'urhajo1': begin
                                               if urhajo1elete-jatelem[edb].levonelet>0 then
                                                  urhajo1elete:=urhajo1elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    urhajo1elete:=0;
                                                    jatelem[edb2].torlendo:=true; //Űrhajó1 törlése
                                               end;
                                               jatelem[edb].torlendo:=true; //Rakéta törlése
                                               urh2lohetraketat:=true;
                                          end;
                               'urh1faldarab': begin
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    setlength(jatelem,jatelemdb+1);
                                                    jatelem[jatelemdb]:=Tjateleme.create;
                                                    jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                    jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                    jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                    jatelem[jatelemdb].elete:=100;
                                                    jatelem[jatelemdb].torlendo:=false;
                                                    jatelem[jatelemdb].sebesseg:=8;
                                                    jatelem[jatelemdb].felirata:='+5';
                                                    jatelem[jatelemdb].neve:='kiiras';
                                                    jatelem[jatelemdb].mozgir:=90;
                                                    inc(jatelemdb,1);
                                                    jatelem[edb2].torlendo:=true;  //Faldarab törlése
                                                    urh2penze:=urh2penze+5;
                                               end;
                                               jatelem[edb].torlendo:=true; //Rakéta törlése
                                               urh2lohetraketat:=true;
                                          end;
                               'ufo','raketasufo','aszteroida1','aszteroida2': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/robbanhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    if (jatelem[edb2].neve='ufo') or (jatelem[edb2].neve='raketasufo') then
                                                       db:=9
                                                    else db:=0;
                                                    for j:=0 to db do
                                                    begin
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=(jatelem[edb2].xhely+round(random(jatelem[edb2].kepe.width)))-robbkepe[0].width div 2;
                                                       jatelem[jatelemdb].yhely:=(jatelem[edb2].yhely+round(random(jatelem[edb2].kepe.height)))-robbkepe[0].height div 2;
                                                       jatelem[jatelemdb].kepe:=robbkepe[0];
                                                       jatelem[jatelemdb].alkepdb:=6;
                                                       jatelem[jatelemdb].aktalkep:=0;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].neve:='robbanas';
                                                       inc(jatelemdb,1);
                                                    end;
                                                    jatelem[edb2].torlendo:=true; //dolgok törlése
                                                    if jatelem[edb2].neve='ufo' then
                                                    begin
                                                       urh2penze:=urh2penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       jatelem[jatelemdb].felirata:='+50';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=270;
                                                       inc(jatelemdb,1);
                                                    end
                                                    else if jatelem[edb2].neve='raketasufo' then
                                                    begin
                                                       urh2penze:=urh2penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       if nyelv=0 then
                                                          jatelem[jatelemdb].felirata:='+50 és +5 rakéta'
                                                       else jatelem[jatelemdb].felirata:='+50 and +5 missiles';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=270;
                                                       inc(jatelemdb,1);
                                                       urh2raketai:=urh2raketai+5;
                                                    end
                                                    else
                                                    begin
                                                         pluszpenz:=round(random(10))+5;
                                                         urh2penze:=urh2penze+pluszpenz;
                                                         setlength(jatelem,jatelemdb+1);
                                                         jatelem[jatelemdb]:=Tjateleme.create;
                                                         jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                         jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                         jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                         jatelem[jatelemdb].elete:=100;
                                                         jatelem[jatelemdb].torlendo:=false;
                                                         jatelem[jatelemdb].sebesseg:=8;
                                                         jatelem[jatelemdb].felirata:='+'+inttostr(pluszpenz);
                                                         jatelem[jatelemdb].neve:='kiiras';
                                                         jatelem[jatelemdb].mozgir:=270;
                                                         inc(jatelemdb,1);
                                                    end;
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               end;
                          end;
                    end;
                end
                else
                begin
                     jatelem[edb].torlendo:=true;
                     urh2lohetraketat:=true;
                end;
              end;
              'lovedek1': begin
                 if jatelem[edb].yhely>0 then
                 begin
                    jatelem[edb].yhely:=jatelem[edb].yhely-jatelem[edb].sebesseg;
                    for edb2:=0 to jatelemdb-1 do
                    begin
                         if (jatelem[edb].xhely<jatelem[edb2].xhely+jatelem[edb2].kepe.width) and
                         (jatelem[edb].xhely+jatelem[edb].kepe.width>jatelem[edb2].xhely) and
                         (jatelem[edb].yhely<jatelem[edb2].yhely+jatelem[edb2].kepe.height) and (jatelem[edb].kepe.height+jatelem[edb].yhely>jatelem[edb2].yhely) then
                          begin
                               case jatelem[edb2].neve of
                               'urhajo2': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/utkozikhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if urhajo2elete-jatelem[edb].levonelet>0 then
                                               begin
                                                  urhajo2elete:=urhajo2elete-jatelem[edb].levonelet;
                                                  if (jatekmod=1) and (urhajo2elete<50) and (urh2penze>0) then
                                                  begin
                                                     if urh2penze>=100-urhajo2elete then
                                                        penzlevonas:=100-urhajo2elete
                                                     else penzlevonas:=urh2penze;
                                                     urhajo2elete:=urhajo2elete+penzlevonas;
                                                     urh2penze:=urh2penze-penzlevonas;
                                                  end;
                                               end
                                               else
                                               begin
                                                    urhajo2elete:=0;
                                                    jatelem[edb2].torlendo:=true; //Űrhajó2 törlése
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               'urh2faldarab': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/utkozikhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    setlength(jatelem,jatelemdb+1);
                                                    jatelem[jatelemdb]:=Tjateleme.create;
                                                    jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                    jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                    jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                    jatelem[jatelemdb].elete:=100;
                                                    jatelem[jatelemdb].torlendo:=false;
                                                    jatelem[jatelemdb].sebesseg:=8;
                                                    jatelem[jatelemdb].felirata:='+5';
                                                    jatelem[jatelemdb].neve:='kiiras';
                                                    jatelem[jatelemdb].mozgir:=270;
                                                    inc(jatelemdb,1);
                                                    jatelem[edb2].torlendo:=true; //Faldarab törlése
                                                    urh1penze:=urh1penze+5;
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               'ufo','raketasufo','aszteroida1','aszteroida2': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/utkozikhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    if (jatelem[edb2].neve='ufo') or (jatelem[edb2].neve='raketasufo') then
                                                       db:=9
                                                    else db:=0;
                                                    for j:=0 to db do
                                                    begin
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=(jatelem[edb2].xhely+round(random(jatelem[edb2].kepe.width)))-robbkepe[0].width div 2;
                                                       jatelem[jatelemdb].yhely:=(jatelem[edb2].yhely+round(random(jatelem[edb2].kepe.height)))-robbkepe[0].height div 2;
                                                       jatelem[jatelemdb].kepe:=robbkepe[0];
                                                       jatelem[jatelemdb].alkepdb:=6;
                                                       jatelem[jatelemdb].aktalkep:=0;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].neve:='robbanas';
                                                       inc(jatelemdb,1);
                                                    end;
                                                    jatelem[edb2].torlendo:=true; //dolgok törlése
                                                    if (jatelem[edb2].neve='ufo') or (jatelem[edb2].neve='raketasufo') then
                                                       db:=9
                                                    else db:=0;
                                                    for j:=0 to db do
                                                    begin
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=(jatelem[edb2].xhely+round(random(jatelem[edb2].kepe.width)))-robbkepe[0].width div 2;
                                                       jatelem[jatelemdb].yhely:=(jatelem[edb2].yhely+round(random(jatelem[edb2].kepe.height)))-robbkepe[0].height div 2;
                                                       jatelem[jatelemdb].kepe:=robbkepe[0];
                                                       jatelem[jatelemdb].alkepdb:=6;
                                                       jatelem[jatelemdb].aktalkep:=0;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].neve:='robbanas';
                                                       inc(jatelemdb,1);
                                                    end;
                                                    jatelem[edb2].torlendo:=true; //dolgok törlése
                                                    if jatelem[edb2].neve='ufo' then
                                                    begin
                                                       urh1penze:=urh1penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       jatelem[jatelemdb].felirata:='+50';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=270;
                                                       inc(jatelemdb,1);
                                                    end
                                                    else if jatelem[edb2].neve='raketasufo' then
                                                    begin
                                                       urh1penze:=urh1penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       if nyelv=0 then
                                                          jatelem[jatelemdb].felirata:='+50 és +5 rakéta'
                                                       else jatelem[jatelemdb].felirata:='+50 and +5 missiles';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=270;
                                                       inc(jatelemdb,1);
                                                       urh1raketai:=urh1raketai+5;
                                                    end
                                                    else
                                                    begin
                                                         pluszpenz:=round(random(10))+5;
                                                         urh1penze:=urh1penze+pluszpenz;
                                                         setlength(jatelem,jatelemdb+1);
                                                         jatelem[jatelemdb]:=Tjateleme.create;
                                                         jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                         jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                         jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                         jatelem[jatelemdb].elete:=100;
                                                         jatelem[jatelemdb].torlendo:=false;
                                                         jatelem[jatelemdb].sebesseg:=8;
                                                         jatelem[jatelemdb].felirata:='+'+inttostr(pluszpenz);
                                                         jatelem[jatelemdb].neve:='kiiras';
                                                         jatelem[jatelemdb].mozgir:=270;
                                                         inc(jatelemdb,1);
                                                    end;
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               end;
                          end;
                    end;
                 end
                 else
                 begin
                      jatelem[edb].torlendo:=true; //Lövedék törlése
                 end;
              end;
              'lovedek2': begin
                 if jatelem[edb].yhely<form1.height then
                 begin
                    jatelem[edb].yhely:=jatelem[edb].yhely+jatelem[edb].sebesseg;
                    for edb2:=0 to jatelemdb-1 do
                    begin
                         if (jatelem[edb].xhely<jatelem[edb2].xhely+jatelem[edb2].kepe.width) and
                         (jatelem[edb].xhely+jatelem[edb].kepe.width>jatelem[edb2].xhely) and
                         (jatelem[edb].yhely<jatelem[edb2].yhely+jatelem[edb2].kepe.height) and (jatelem[edb].kepe.height+jatelem[edb].yhely>jatelem[edb2].yhely) then
                          begin
                               case jatelem[edb2].neve of
                               'urhajo1': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/utkozikhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if urhajo1elete-jatelem[edb].levonelet>0 then
                                                  urhajo1elete:=urhajo1elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    urhajo1elete:=0;
                                                    jatelem[edb2].torlendo:=true; //Űrhajó1 törlése
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               'urh1faldarab': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/utkozikhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    setlength(jatelem,jatelemdb+1);
                                                    jatelem[jatelemdb]:=Tjateleme.create;
                                                    jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                    jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                    jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                    jatelem[jatelemdb].elete:=100;
                                                    jatelem[jatelemdb].torlendo:=false;
                                                    jatelem[jatelemdb].sebesseg:=8;
                                                    jatelem[jatelemdb].felirata:='+5';
                                                    jatelem[jatelemdb].neve:='kiiras';
                                                    jatelem[jatelemdb].mozgir:=90;
                                                    inc(jatelemdb,1);
                                                    jatelem[edb2].torlendo:=true; //Faldarab törlése
                                                    urh2penze:=urh2penze+5;
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               'ufo','raketasufo','aszteroida1','aszteroida2': begin
                                               if hangbe=true then
                                               begin
                                                      hang:=BASS_StreamCreateFile(0, PChar('hangok/utkozikhang.wav'), 0, 0, 0);
                                                      if hang<>0 then BASS_ChannelPlay(hang, True);
                                               end;
                                               if jatelem[edb2].elete-jatelem[edb].levonelet>0 then
                                                  jatelem[edb2].elete:=jatelem[edb2].elete-jatelem[edb].levonelet
                                               else
                                               begin
                                                    if (jatelem[edb2].neve='ufo') or (jatelem[edb2].neve='raketasufo') then
                                                       db:=9
                                                    else db:=0;
                                                    for j:=0 to db do
                                                    begin
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=(jatelem[edb2].xhely+round(random(jatelem[edb2].kepe.width)))-robbkepe[0].width div 2;
                                                       jatelem[jatelemdb].yhely:=(jatelem[edb2].yhely+round(random(jatelem[edb2].kepe.height)))-robbkepe[0].height div 2;
                                                       jatelem[jatelemdb].kepe:=robbkepe[0];
                                                       jatelem[jatelemdb].alkepdb:=6;
                                                       jatelem[jatelemdb].aktalkep:=0;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].neve:='robbanas';
                                                       inc(jatelemdb,1);
                                                    end;
                                                    jatelem[edb2].torlendo:=true; //dolgok törlése
                                                    if (jatelem[edb2].neve='ufo') or (jatelem[edb2].neve='raketasufo') then
                                                       db:=9
                                                    else db:=0;
                                                    for j:=0 to db do
                                                    begin
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=(jatelem[edb2].xhely+round(random(jatelem[edb2].kepe.width)))-robbkepe[0].width div 2;
                                                       jatelem[jatelemdb].yhely:=(jatelem[edb2].yhely+round(random(jatelem[edb2].kepe.height)))-robbkepe[0].height div 2;
                                                       jatelem[jatelemdb].kepe:=robbkepe[0];
                                                       jatelem[jatelemdb].alkepdb:=6;
                                                       jatelem[jatelemdb].aktalkep:=0;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].neve:='robbanas';
                                                       inc(jatelemdb,1);
                                                    end;
                                                    jatelem[edb2].torlendo:=true; //dolgok törlése
                                                    if jatelem[edb2].neve='ufo' then
                                                    begin
                                                       urh2penze:=urh2penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       jatelem[jatelemdb].felirata:='+50';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=90;
                                                       inc(jatelemdb,1);
                                                    end
                                                    else if jatelem[edb2].neve='raketasufo' then
                                                    begin
                                                       urh2penze:=urh2penze+50;
                                                       setlength(jatelem,jatelemdb+1);
                                                       jatelem[jatelemdb]:=Tjateleme.create;
                                                       jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                       jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                       jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                       jatelem[jatelemdb].elete:=100;
                                                       jatelem[jatelemdb].torlendo:=false;
                                                       jatelem[jatelemdb].sebesseg:=8;
                                                       if nyelv=0 then
                                                          jatelem[jatelemdb].felirata:='+50 és +5 rakéta'
                                                       else jatelem[jatelemdb].felirata:='+50 and +5 missiles';
                                                       jatelem[jatelemdb].neve:='kiiras';
                                                       jatelem[jatelemdb].mozgir:=90;
                                                       inc(jatelemdb,1);
                                                       urh2raketai:=urh2raketai+5;
                                                    end
                                                    else
                                                    begin
                                                         pluszpenz:=round(random(10))+5;
                                                         urh2penze:=urh2penze+pluszpenz;
                                                         setlength(jatelem,jatelemdb+1);
                                                         jatelem[jatelemdb]:=Tjateleme.create;
                                                         jatelem[jatelemdb].xhely:=jatelem[edb].xhely+(jatelem[edb].kepe.width div 2);
                                                         jatelem[jatelemdb].yhely:=jatelem[edb].yhely+(jatelem[edb].kepe.height div 2);
                                                         jatelem[jatelemdb].kepe:=TBitmap.Create;
                                                         jatelem[jatelemdb].elete:=100;
                                                         jatelem[jatelemdb].torlendo:=false;
                                                         jatelem[jatelemdb].sebesseg:=8;
                                                         jatelem[jatelemdb].felirata:='+'+inttostr(pluszpenz);
                                                         jatelem[jatelemdb].neve:='kiiras';
                                                         jatelem[jatelemdb].mozgir:=90;
                                                         inc(jatelemdb,1);
                                                    end;
                                               end;
                                               jatelem[edb].torlendo:=true; //Lövedék törlése
                                          end;
                               end;
                          end;
                    end;
                 end
                 else
                 begin
                      jatelem[edb].torlendo:=true; //Lövedék törlése
                 end;
               end;
              end;
            end;
            inc(edb);
        end;
    end;
 end;
 with canvas do invalidate;
end;

end.

