Open GL. при нажатии клавиш Left, Ridth, Up и Down точка должна двигаться по форме

[Roof]

и так нужно, чтобы неограниченное число снарядов могло вылететь

[mutabor]

здесь только то что нужно добавить или заменить

type
TShotDirect = (dUp, dDown, dLeft, dRight);
TShot = record
  x, y: double;
  end;

const
  speed = 0.01;
  shotspeed = 0.02;
  shotinterval = 100; //милисекунд

var
  //добавить эти
  Shots: array of TShot;
  ShotDirect: TShotDirect;
  interval: integer;
  //snar не нужна

procedure TForm1.FormPaint(Sender: TObject);
var
i: integer;
begin
   glViewPort (0, 0, ClientWidth, ClientHeight);
   glClear (GL_COLOR_BUFFER_BIT);
   glColor3f(1.0, 0.85, 0.35);
   glviewPort(0, 0, ClientWidth, ClientHeight);
   glPointSize(20);
   glBegin(GL_POINTS);
     glvertex2f(px,py);
     glEnd;

    glPointSize(5);
    glBegin(GL_POINTS);
    glColor3f(0.6, 0.2, 0.8);
    glvertex2f(px, py);
    glEnd;

{запуск снаряда}
  for i:=0 to Length(Shots)-1 do
     begin
     glPointSize(5);
     glBegin(GL_POINTS);
     glColor3f(1.0, 0.1, 0.2);
     glvertex2f(Shots[i].x, Shots[i].y);
     glEnd;
     end;
  SwapBuffers (DC);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 37 then lef:=true;
if key = 38 then up:=true;
if key = 39 then right:=true;
if key = 40 then down:=true;
if key = 32 then //32 - пробел
  if not fire then
    begin
    SetLength(Shots,Length(Shots)+1);
    Shots[Length(Shots)-1].x:=px;
    Shots[Length(Shots)-1].y:=py;
    fire:=true;
    end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 37 then lef:=false;
if key = 38 then up:=false;
if key = 39 then right:=false;
if key = 40 then down:=false;
if key = 32 then
  begin
  fire:=false;
  interval:=0;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i, j: integer;
m: array of byte;
begin
if lef then px:=px-speed;
if right then px:=px+speed;
if up then py:=py+speed;
if down then py:=py-speed;
for i:=0 to Length(Shots)-1 do
  begin
  case ShotDirect of
    dUp: begin
           Shots[i].y:=Shots[i].y+shotspeed;
           if Shots[i].y > 1 then
             begin
             SetLength(m,Length(m)+1);
             m[Length(m)-1]:=i;
             end;
           end;
    dDown: ;
    dLeft: ;
    dRight: ;
    end;
  end;
  for i:=0 to length(m)-1 do
    begin
    for j:=m[i] to Length(Shots)-2 do
      Shots[j]:=Shots[j+1];
    SetLength(Shots,Length(Shots)-1);
    end;
  if fire then
    begin
    interval:=interval+20;
    if interval >= shotinterval then
      begin
      interval:=0;
      SetLength(Shots,Length(Shots)+1);
      Shots[Length(Shots)-1].x:=px;
      Shots[Length(Shots)-1].y:=py;
      end;
    end;
InvalidateRect(Handle,nil,False);
end;

если что не понятно будет, спрашивай

[Roof]

я не понял про переменные m и j )))

[mutabor]

Все пули видимые в текущий момент содержатся в массиве Shots. Когда одна или несколько из них покидают экран, массив нужно уменьшить на соотв. число элементов. Но в общем цикле этого делать нельзя, так как будут ошибки при обращении к массиву. Для этого и нужен массив m, в него записываются элементы к-рые нужно удалить из Shots.
j - счетчик цикла (i уже задействована) в к-ром удаляются элементы

[Roof]

все работает замечательно
Спасибо!!!

[Roof]

2 mutabor
Здравствуй! у меня небольшой вопросик по программке, в которой ты мне очень помог, про стреляющую точку. Мне остались непонятны некоторые моменты в коде...
я прикрепляю исходник, в котором пометил вопросами что мне непонятно, про вылет снаряда.
Напиши пожалуйста подробные комментарии, если не сложно.

[mutabor]

Несколько распухший Unit1.pas

[Roof]

Спасибо тебе большое, теперь начало доходить постепенно )