2D стратегия, юнит приклеился к камере

[cashmail]

Здравствуйте, решил попробывать сделать 2D стратегия, типо warcraft
Нашел на форуме исходник загрузки карты из файла, сделал вывод карты!
Если карта невходит в экран, сделал прокрутку (как в обычных стратегиях). Сделал постройку барака, но вот если прокрутить карту вниз и построить там барак, он подымается вверх

Еще сделал передвижение юнита, но если карту прокрутить вниз, он летит вместье с камерой!

Прикладываю исходник, как мне сделать, чтобы юнит не летал за камерой и чтобы бараки нормально строились?

[Odinok]

Сообщение от cashmail

Прикладываю исходник, как мне сделать, чтобы юнит не летал за камерой и чтобы бараки нормально строились?

Не возможности откомпилировать, но думаю догадываюсь что за проблема с бараками.Выложи ехе файл

А и вот

// рисуем в буфере кадра персонажа в нужном месте
  Buf.Canvas.Draw( Pers.PosX*Rax                       // положение по-X
                  + Pers.MoveX                         // смещение по-X
                  + Round(Abs(Rax-Pers.TexWidth)/2)    // центрирование по-X
                  , Pers.PosY*Ray                      // положение по-Y
                  + Pers.MoveY                         // смещение по-Y
                  + Round(Abs(Ray-Pers.TexHeight)/2)   // центрирование по-Y
                  , PersAnimTex);

у тебя тут учитывается скролл, то есть при увеличение значения скролла карты персонаж смещается в обратную сторону... Эмм короче надо откомпилированный файл.

[cashmail]

Хмм, у меня все нормально компилируется!
Вот exe

[Odinok]

Сообщение от cashmail

Хмм, у меня все нормально компилируется!
Вот exe

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

у тебя при движение человека, не где нет привязки к сдвигу карты. и при отрисовки человека у тебя тоже не учитывается сдвиг карты. Должны еще участвовать вот эти переменные cameray camerax

/движение персонажа
  if Pers.PosX <> Pers.PointX then
    begin
      if Pers.PointX > Pers.PosX then Pers.DispX:=1;
      if Pers.PointX < Pers.PosX then Pers.DispX:=-1;
      if (Pers.MoveX > (Ray-1)) or (Pers.MoveX < (1-Ray)) then
        begin
          Pers.MoveX:=0;
          Pers.PosX:=Pers.PosX+Pers.DispX;

        end;
      Pers.MoveX:=Pers.MoveX+Pers.DispX;
    end
  else Pers.MoveX:=0;

  if Pers.PosY <> Pers.PointY then
    begin
      if Pers.PointY > Pers.PosY then Pers.DispY:=1;
      if Pers.PointY < Pers.PosY then Pers.DispY:=-1;
      if (Pers.MoveY > (Ray-1)) or (Pers.MoveY < (1-Ray)) then
        begin
          Pers.MoveY:=0;
          Pers.PosY:=Pers.PosY+Pers.DispY;

        end;
      Pers.MoveY:=Pers.MoveY+Pers.DispY;
    end
  else Pers.MoveY:=0;

[cashmail]

А можно примерчик?)) Я не могу придумать, как)