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

[L_M]

я еще не делал игр с движением, поэтому не знаю: стоит ли выводить на канву формы? или сразу надо учить, например опенгль. при рисовании по канве возникает мерцание... В общем что перспективнее: простота канвы или красота более профессиональных библиотек. И подскажите если стоит чего - учить, то что.

[mutabor]

Не путай библиотеки с умением делать игры. Библиотека это инструмент, как у художника кисть. Если ты в принципе можешь сделать игру, не важно в чем, ты сможешь сделать ее и в OpenGL, естественно после того как научишься с ней работать. Простой пример: в справке Дельфи описаны все функции канвы, ты видел там пример игры? Вот и в мануалах к OpenGL не увидишь.
Нужно кстати поднять общий уровень программирования, не только что касается игр. А то элементарно будут технические проблемы подключения, импортирования функций и т.д.

Учить однозначно стоит, если в перспективе игры только под Windows, учи DirectX. Если больше интересует кроссплатформ, твой выбор - OpenGL.
Не хочешь вникать в детали, есть движки, к-рые многое делают за тебя. Тут правда придется учить интерфейс движка, но он обычно намного легче и более высокоуровневый чем "родной" интерфейс библиотек.

[Beermonza]

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

... при рисовании по канве возникает мерцание...

Это явление нелогичной последовательности операций. Обычно мы выводим графику через Canvas.Draw когда нам вздумается, в циклах множество раз и тп. Как происходит отображение графики в OGL и DX? ...строится кадр в буфере и только самой последней командой выводится видеокартой на экран. Если делать Flip (вывод буфера на экран) когда вздумается, то будет такое же мерцание, падение fps, и нагрузка на видеокарту многократно возрастет. Так вот, применительно к играм: канвой (Canvas.Draw) нужно пользоваться только при выводе готового кадра, а построение выполнять в буфере.

Канва для игр перспективной вообще в принципе быть не может, ...это только некоторые экземпляры не требующие быстрого вывода и большого fps: типа первой Цивилизации или древней Симсити, карточных игр, простейших шахмат и пр. могут быть на ней реализованы в качестве макета, первого теста, учебного пособия, для себя от нечего делать, или как еще угодно.

[mutabor]

Человек просил ход конем, выкладываю в уроках, может еще кому пригодится. Когда-то это должны были быть шашки, но теперь будут шахматы, конь уже есть )

[anton14]

А можно еще вопрос? Как сделать, чтоб картинка (допустим через 5 сек) появлялась в разных местах (то там, то здесь). Представление имею как делать, но решил все же уточнить, Спасибо!

[Kostia]

например так

if GetTickCount mod 5000 = 0 then form1.Canvas.Draw(random(100),rando m(100),pic);

Хотя правильнее было бы так

var
  time: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  time:=GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetTickCount - time >= 5000 then
  begin
    form1.Canvas.Draw(random(form1.ClientWidth-pic.Width),
                      random(form1.ClientHeight-pic.Height),pic);
    time:=GetTickCount;
  end;
end;

[Kostia]

Дума не только мне было интересно как реализовать ходьбу человека туда куда он смотрит. Возьмем тот же Crimsonland где человечек смотрит на мышь и идет туда по нажатию кнопки W. По этому алгоритму можно реализовать полет пули.

Вспомним тригонометрию, уравнение окружности выглядит следующим образом:

x=cos(a);
y=sin(a);

Рассмотрим x и y не как точки, а как некий прирост по оси x и оси y.
Допустим что a=pi/4, то sin(pi/4)=sqrt(2)/2 и cos(pi/4)=sqrt(2)/2, это значит, что нам нужно из начала координат (0,0) сдвинуться по оси x и y на sqrt(2)/2 и поставить там точку.

А теперь задача с человечком. Допустим, что угол его взора равен a и нам необходимо изменить его координаты x и y так чтобы он пошел вперед.

x:=x+cos(a);
y:=y+sin(a);

чтобы он пошол назад

x:=x-cos(a);
y:=y-sin(a);

вот и все

[zetrix]

var
time: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
time:=GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetTickCount - time >= 5000 then
begin
form1.Canvas.Draw(random(form1.Clie ntWidth-pic.Width),
random(form1.ClientHeight-pic.Height),pic);
time:=GetTickCount;
end;
end;

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

//интервал таймера выставить в 5000

procedure TForm1.Timer1Timer(Sender: TObject);   
begin  
form1.Canvas.Draw(random(form1.ClientWidth-pic.Width), random(form1.ClientHeight-pic.Height),pic);   
end;

[Kostia]

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

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

//интервал таймера выставить в 5000

procedure TForm1.Timer1Timer(Sender: TObject);   
begin  
form1.Canvas.Draw(random(form1.ClientWidth-pic.Width), random(form1.ClientHeight-pic.Height),pic);   
end;

Отличие лишь в одном, ваш пример для конкретного случая, а мой для общего. Так уж меня научили, делать не одноразовые вещи, а универсальные.

[mutabor]

извините, но мне кажется это бред...

И я того же мнения )
Или TickCount использовать или таймер, а то получается и то и другое и можно без хлеба.