Код игры Арканоид

[Mclaren]

Люди, нужно понять код игрушки (ну что обозначает отдельная процедурка) . Срочно! Если согласны отпишите... Пожалусто.

[Mclaren]

Вот исходник

[Пепел Феникса]

что именно не понятно?
задай вопрос конкретный!
я же написал в той теме еще?

З.Ы.:процедур там не мало вообще то

[Mclaren]

Первое что за формат dxg? Второе как создавались уровни? За что отвечает константа sig='LAOS'? Классы: tvline, thline? И где описаны бонусы, ну как они работают, почему падают?

[Пепел Феникса]

1)там на форме компонент DXImageList1: TDXImageList все свои картинки он складывает в этот файл
2)разбери этот код(сейчас времени просто нет) в нем сохранение файла с уровнем

procedure TArkanoid.SaveLevel(filename:string);
var
  f:file;
  i,i1:dword;
begin
  DXTimer1.Enabled:=false;
  AssignFile(f,filename);
  Rewrite(f,1);
  filemode:=fmOpenWrite;
  BlockWrite(f,sig,sizeof(sig));
  for i:=0 to length(bricks)-1 do begin
    BlockWrite(f,bricks[i].life,sizeof(bricks[i].life));
    i1:=round(bricks[i].x);
    BlockWrite(f,i1,sizeof(i1));
    i1:=round(bricks[i].y);
    BlockWrite(f,i1,sizeof(i1));
    BlockWrite(f,bricks[i].visible,sizeof(bricks[i].visible));
  end;
  CloseFile(f);
  DXTimer1.Enabled:=true;
end;

3)sig - сокращение от signature = сигнатура
это дополнительная проверка того что файл(или блок данных) имеет нужный формат(помимо расширения)
4)видишь линии внутри блоков?
(между гранью и белым кубиком внутри блока)
это они как я понял
5)класс TBonus
здесь описанно их появление procedure TBrick.Hit(ball:TBall);
а конкретно:

if random(5)=0 then
    for i:=0 to length(bonuses)-1 do begin
      if not bonuses[i].Visible then begin
        bonuses[i].value:=random(maxbonusimages);
        bonuses[i].Image := Arkanoid.DXImageList1.Items.Find('bonus'+inttostr(bonuses[i].value));
        bonuses[i].Width := bonuses[i].Image.Width;
        bonuses[i].Height := bonuses[i].Image.Height;
        bonuses[i].Z := 1;
        bonuses[i].X := X;
        bonuses[i].Y := Y;
        bonuses[i].speed:=round(ball.speed);
        bonuses[i].Visible:=true;
      end;

[Mclaren]

Спосиб больш. Начинаю догонять.

[Пепел Феникса]

обращайся