delphiX и куча одинаковых объектов

[Virus191288]

решил написать небольшую игру..... нужно создать примерно 50-100 абсолютно одинаковы объектов! сумел создать так

 for i:=0 to 50 do begin
    bricks[i]:=TBrick.Create(DXSpriteEngine1.Engine);
    bricks[i].Image:= form1.DxImageList1.items.find('vrag');
    bricks[i].x:=x;
    bricks[i].y:=y;
    bricks[i].visible:=true;
    bricks[i].width:=bricks[i].image.Width;
    bricks[i].height:=bricks[i].image.height;
    x:=x+50;
    if x>form1.DXDraw1.SurfaceWidth-30 then begin
      y:=y+40;
      x:=10;
    end;
    end;

но при столкновении 2 объектов вылетает ошибка так вот может кто нибудь написать пример создания кучи объектов и их уничтожения при определенном условии.... или помочь доделать мой???

[Virus191288]

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

procedure TBoll.DoCollision(Sprite: Tsprite; var Done: Boolean);
begin
  if Sprite is TBrick then begin
       TBrick(Sprite).Dead;
     end;
  end;

end;

появился другой вопрос... как можно определить куда ударил объект? я пишу арканоид и мне нужно как то узнать куда ударился шар... то есть если вверх то то шар должен лететь вверх если ударил вниз то и полететь должен вниз и тп.... кто нибудь знает?

[Virus191288]

кто нибудь может помочь?

[Alex Cones]

Координаты. Если совпадают с другим объектом, то зеркалируйте вектор скорости.

[Virus191288]

Alex Cones это я понял еще когда не начал писат... но почемуто при попытке

if (w.x-8>sprite.X) and (sprite.X+43<w.x)and (w.y>19) then dvigY:=1;//w.x и w.y это координаты шара по идее...

код не срабатывает

[Beermonza]

Тут смотрели?
http://programmersforum.ru/showthrea...E0%ED%EE%E8%E4

[Virus191288]

написал так

if (x1-4<x2) and (x1+34+4>x2) and (y1+20+8>y2) then dvigY:=1;
if (x1-4<x2) and (x1+34+4>x2) and (y1-8>y2)    then dvigY:=0;

if (y1-4<y2) and (y1+20+4>y2) and (x1+34+8>x2) then dvigX:=1;
if (y1-4<y2) and (y1+20+4>y2) and (x1-8>x2)    then dvigX:=0;
{x1 и y1 это кубики размеров 34х20 
 x2 и y2 это шар размером 16х16
 dvig направление движения... ниже его работа}

  If dvigX=0 then  x:=x-3;
  If dvigX=1 then  x:=x+3;
  If dvigy=0 then y:=y-3;
  If dvigy=1 then  y:=y+3;

но иногда немного не правильно срабатывает.... вместо того чтобы только влево полететь он летит влево вниз.... может кто поправит?

[Alex Cones]

If dvigX=0 then x:=x-3;
If dvigX=1 then x:=x+3;
If dvigy=0 then y:=y-3;
If dvigy=1 then y:=y+3;

Я бы сотворил нечто такое:

DX : ShortInt;
DY : ShortInt;
...
X:=X+DX; //так осуществляется движение
Y:=Y+DY;
...
DX:=-DX; //Так - отражение DX
DY:=-DY; // DY

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

[Virus191288]

Alex Cones я также в начале сделал... но так не всегда удобно... например когда в 2 одинаковых случаях в 1 нужно менять во 2 не нужно и это зависит от того в какую сторону летит шарик у меня достаточно поставить 0 или 1 и он в какую сторону летел в ту и полетит а тут придется еще и направление вычислять... короче я переписал и сделал так....
да и со своим вопросом тоже разобрался просто сделал так

if y2>y1+10 then dvigY:=1;
if y2<y1    then dvigY:=0;

if X2>X1+10 then dvigX:=1;
if X2<X1    then dvigX:=0;

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