Уроки по созданию игр для новичков...

[Kostia]

Эх, надеюсь не забанят.
http://delphideveloper.narod.ru/
Сайт на фреймах поэтому прямой ссылки дать не могу. Pascal/Delphi -> Delphi,Direct3D,2D -> 1. Определение поддерживаемых режимов монитора...

[Maxadal]

Боольшое спасибо попробую разобраться)

[Beermonza]

Maxadal, это ты миникарту в уголку реализуешь или что?

[AlDelta]

я незнаю как мне сделать прокрутку игровай карты

Нет, у него игровое пространство больше чем размеры экрана.

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

[Beermonza]

Выводить 2D на экран посредством Direct3D - это просто кощунственно по отношению к нему, и для каких грандиозных целей он был создан
Вообще все просто. Нужно создать большой спрайт участка карты, чуть больше экрана, и банально грузить на него изменяющуюся текстуру поверхности, которая строится исходя из модели поверхности под ногами. Камера, надеюсь, не плавает? В моменты перехода на клетку (а карта смещается так же как и объект, по клетке матрицы, с плавным смещением) происходит сканирование определенного участка матрицы всей карты (модель с параметрами, которой не видим) и вывод на наш фрагмент - спрайт видимого участка. Сама текстура собирается по кусам.

[Алекс Ялта]

Столкнулся с проблемой. Как проверить столкновение объектов Bitmap на канве. В теории я понимаю, что нужно проверять на столкновение углы прямоугольников. Но, если, у меня есть объект Bullet (Bitmap - пуля) с координатами BulletX,BulletY, который я отрисовываю в буффер так Buffer.canvas.Draw(BulletX,BulletY, bullet) и объект Enemy, с координатами Ex,Ey , как должен выглядеть код?
Я пробовал,к примеру, так (проверка только по оси Y)

procedure Collision1();
begin
If ((BulletX,BulletY)>=(Ex,Ey)) or ((BulletX+10,BulletY)>=(Ex+40,Ey))
then EnemyDestroy;
end;

программа не компилируется и ругается " ')' expected but ',' found "

[DomiNick]

" ')' expected but ',' found "

Дословно с английского означает: "должна быть скобка, а обнаружена запятая"... )
Ты просто скобку где-нибудь пропустил...


Дополнение

Так... А что это за условие такое странное "((BulletX,BulletY)>=(Ex,Ey)) or ((BulletX+10,BulletY)>=(Ex+40,Ey))" ..?

Может лучше так:

If ((BulletX+60>Ex) And (Ex+60>BulletX)) And ((BulletY+60>Ey) And (Ey+60>BulletY)) Then

Там два битмапа 60х60...

[Beermonza]

Все нужно выполнять в модели, а отрисовка подчиняется изменению состояния модели. Т.е. мы работаем с цифрами, ...в клетке X,Y должна лететь пуля в таком-то направлении, ...создаем ее на карте под кодом, задаем направление, допустим по-Y вверх, в таймере обработки всех объектов, объект "пуля" с текущими координатами X,Y отнимает от Y ее скорость Speed, и постепенно "летит" по матрице карты, начисляя себе смещения и сменяя клетку, как только смещение упирается в конец. Таким образом, тот кто попадет в одну из клеток на пути перемещения пули будет поражен, это из условия (если в клетке есть объект, то травмировать его). Графика строится в конце цикла обработки объектов, ...перебираются клетки карты, и если там записаны объекты, то нарисовать их с их свойствами, где был, какое смещение, какая анимация, какой кадр и пр. пр. пр.

[Алекс Ялта]

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

Дополнение

Так... А что это за условие такое странное "((BulletX,BulletY)>=(Ex,Ey)) or ((BulletX+10,BulletY)>=(Ex+40,Ey))" ..?

Может лучше так:

If ((BulletX+60>Ex) And (Ex+60>BulletX)) And ((BulletY+60>Ey) And (Ey+60>BulletY)) Then

Там два битмапа 60х60...

Конечно же так лучше) Только Битмап пули я сделал 10х10 и хотел задать коллизию без построения поклеточного уровня. Как задать коллизию на карте, составленного из клеток, я понимаю. Я думал, что возможно просчитать столкновение по координатам т.н. вершин прямоугольников(или рамок), как это делается в DelphiX.

[Алекс Ялта]

Извиняюсь перед всеми, кому задурил голову) И снова DomiNick был прав. Пока не начертил на бумаге эскиз с координатами, не понял сути. Мне нужна простая коллизия по оси Y. Поэтому код такой:

procedure collision();
begin
if (BulletX+10>=EnemyX) and (bulletX<=Enemyx+30)
and (BulletY<=EnemyY+30)
then begin
BulletDestroy;
EnemyDestroy;
end;