La Nuit Tombe (изометрический движок)

[NetBuilding]

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

[cherepets]

могу скинуть в личку ключевые моменты (весь исходник игры не буду скидывать, потому что ты только запутаешься в итоге)

[Rock2roll]

Не скидать. А продавать! Ты трудился над двигом и не должен роспостранять. Хотя можешь.
ЗЫ. Это мой совет если не хочешь чтобы в итоге по форуму пробежалась волна игр на твоём движке но без твоего авторства с коментами: "Сделал сам, ещё и без либ!" =)
Улыбно, но правда

[cherepets]

думаю даже если я выложу полный исходник - такого не произойдет.
исходник Stille Nacht'a лежит же на форуме, а единственная игра на нем - мой же дум стори.

правда там двиг в очень странном виде и с ним тяжело разобраться, может в этом и все дело...

[Nuprahtor]

Stille Nacht, La Nuit Tombe
Творческий подход к названию движков, так держать!

[Rock2roll]

Как сказано на форуме МОТОфан.ру: "Твоя жизнь, твой выбор". Твой исходник- его судьба в твох руках =). Всё выше сказанное мной было написано с добрыми намереньями))( #48 )

[cherepets]

блиииин...
для новой игры старый алгоритм сортировки не пойдет (он сортировал только врагов, количество которых известно заранее) и делил все остальное на 2 группы (перед игроком и за игроком).

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

подробнее о том что есть:

var object:array[1..400,1..2] of integer;
quan:integer;

400 - максимальное колиство объектов.
quan - реальное количество объектов.
1я строка в массиве - координата x.
2я строка в массиве - координата y.
объекты в массиве должны идти по возрастанию суммы x и y.

[_Nox_]

for i:=1 to quan do
 begin
  p:=false;
  for j:=1 to quan-1 do
   if object [j,1]+object [j,2] >  object [j+1,1]+object [j+1,2] then
    begin 
     cc:=object [j,1];
     object [j,1]:=object [j+1,1];
     object [j+1,1]:=cc;
     cc:=object [j,2];
     object [j,2]:=object [j+1,2];
     object [j+1,2]:=cc;
     p:=true;
    end;
   if not p then break;
  end;

Походу так, самый простой вариант

[cherepets]

ты по-видимому опечатался, for j:=1 to quan
а вообще спасибо)) не знаю почему меня ввел в ступор вроде простой вопрос...

[cherepets]

_Nox_, а зачем нужно p:boolean?
у меня когда я его использую графика подглючивает (видимо сортировка не до конца проходит)

[cherepets]

Решил вместо пузырьковой использовать быструю сортировку и был слегка шокирован результатом:


Отсортировать надо по возрастанию суммы 1го и 2го "столбца".
Вот исходник, может посмотрите как такое может быть?

[_Nox_]

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

ты по-видимому опечатался, for j:=1 to quan
а вообще спасибо)) не знаю почему меня ввел в ступор вроде простой вопрос...

Нет я не опечатался, можно даже for j:=1 to quan-i do

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

_Nox_, а зачем нужно p:boolean?
у меня когда я его использую графика подглючивает (видимо сортировка не до конца проходит)

Этот булин служит как флаг для того, что-бы когда в цикле после прохода ничего не изменилось просто выходить, например если у нас 1000 элементов, и на каком-то шаге например 257 массив уже отсортирован, то зачем гонять сортировку, можно просто выйти

Лучше поздно чем никогда

Может криво из-за рекурсии, я не знаю. можно сортировать кучей, тоже за O(n log n) работает, там рекурсия не нада. Если надо могу написать сортировку

[cherepets]

Новые элементы всегда добавляются в конец, так что первые 257 у меня могут идти правильно, а дальше - нет.

Если можешь - напиши, пожалуйста.

[_Nox_]

Объясни подробней как тебе сортировать надо, а то ты меня что-то запутал

[cherepets]

так же как и в примере.
если object[i,1]+object[i,2]>object[j,1]+object[j,2], то меняем их местами так:
object[i,1] = object[j,1]
object[i,2] = object[j,2]
и наоборот