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

[L_M]

у меня возникла такая проблема: как заставить юнита идти в нужную точку? ну с прямой это просто и понятно:

while (man.x<>click_x)and(man.y<>click_y) do begin
     man.x:=man.x+speedx;
     man.y:=man.y+speedy;
end;

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

[Beermonza]

Возвращаемся к посту #155, еще раз разбираем код:

 procedure TForm1.Timer1Timer(Sender: TObject);  
 begin  
   for i:=0 to 255 do  // количество юнитов 256
     begin  
       with UnitMas[i] do  // работаем с массивом
         begin  
           if UUses and UGo then  // если юнит используется и он может перемещаться
             begin  
               if UPosX<>UPointX then // если его текущая позиция на карте по-X не равна той которая указана (куда он должен перейти)
                 begin  
                   if UPointX>UPosX then UDispX:=1;  // если новая позиция правее, то будем прибавлять координате 1
                   if UPointX<UPosX then UDispX:=-1; // если новая позиция левее, то будем отнимать 1 (прибавлять минус единицу)  
                   if (UMoveX>{половина длины тайла}) Or (UMoveX<-{половина длины тайла}) then  // вот тут у нас размеры одной клетки всплывают,
// задаем половину и юнит будет топать столько пикселей, сколько нужно до перехода на следующий тайл (клетку карты).
                     begin
                       //  по завершению перехода текущая позиция меняется
                       // смещение обнюляется
                       UMoveX:=0;  
                       UPosX:=UPosX+UDispX;  
                     end;
                   // тут мы "двигаем" юнита на один пиксел в нужном направлении  
                   UMoveX:=UMoveX+UDispX;  
                 end  
               else UMoveX:=0;  
               
// по оси Y аналогично, только лишь через UDelay смещаем во времени сдвиг ровно в два раза относительно X                 
               if UPosY<>UPointY then  
                 begin  
                   if UPointY>UPosY then UDispY:=1;  
                   if UPointY<UPosY then UDispY:=-1;  
                   UDelay:=UDelay+1;  // вот сдвиг
                   if UDelay>1 then  
                     begin  
                       UDelay:=0;  
                       if (UMoveY>{половина высоты тайла}) Or (UMoveY<-{половина высоты тайла}) then  
                         begin  
                           UMoveY:=0;  
                           UPosY:=UPosY+UDispY;  
                         end;  
                       UMoveY:=UMoveY+UDispY;  
                     end;  
                 end  
               else UMoveY:=0;  
             end;


           ...



        end;  
     end;  
 end;

Если вы создали модель уровня (карту) и модель юнита, создали одну запись в массиве - включили юнита, то по процедуре описанной в посте #155 юнит идет в любую точку карты, которую вы задали при помощи мышки, через формулу интерпретации координат мыши в координаты карты, причем, направление перемещения юнит меняет сам.

[Titan123]

пожалуйста, напишите урок по создании крестиков-ноликов. хотя бы простейших 3*3
разбираю исходники, не понимаю кода!

[AlDelta]

Titan123, а что именно непонятно? Давайте первый непонятный кусок кода.

[mutabor]

Titan123, тебе нужно поучиться алгоритмы составлять. Не обязательно на играх, любые задачки подойдут. Есть книжки такие с задачками и с их алгоритмами, например "200 задач на С/С++", может для Дельфи такие есть, но язык не важен, также как и среда, хоть в КьюБейсике, главное - алгоритмы.
Иначе у тебя будут постоянно подобные вопросы.

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

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

[L_M]

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

[mutabor]

L_M, уже обсуждали, причем привели несколько вариантов.
http://www.programmersforum.ru/showt...3612#post53612

[Kostia]

Насчет оптимизации. Это очень обширная тема про которую можно не один том написать. Советую начать с изучения архитектуры компьютера. Когда знаешь как работает твое железо, то можно и оптимальную для него программу написать.
Хранение различных ресурсов - это уже не раз обсуждалось, поиск по форуму или Google.

[Titan123]

я писал крестики-нолики, составил несколько десятков комбинаций противника, кода получилось очень много, рассматривая другой исходник К-Н я понимал, что делаю неправильно.
у меня все банально: например,

if  (panel1.caption='0') and (panel5.Caption='0') and  (panel9.Caption<>'x') then begin panel9.caption:='0'; end
else begin
if  (panel9.caption='0') and (panel5.Caption='0') and  (panel1.Caption<>'x') then begin panel1.caption:='0'; end
.........

panel и-это и есть игровое поле.
но это все неверно.

выкладываю не мои К-Н, может, вы объясните мне о чем там говориться.

[Beermonza]

To L_M

Мде, я немного затерялся в вашем коде. При разработке игры создайте дополнительно панельку (Panel), в которую поместите лэйблы (Label), напишите процедуру сбора данных, это вам поможет видеть текущие значения переменных и тем самым ошибки работы программы. Обязательно текущие координаты мыши, клетки карты, позиция персонажа, и дополнительные на тип действия или еще что.

Я предложил простейший пример движения персонажа, мне кажется он самый простой в понимании и реализации, ...вот так он выглядит на практике:

0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 Т 0 0 0 0 0
0 0 0 0 0 0 0 0 | 0 0 0 0 0
0 0 0 0 0 0 0 0 | 0 0 0 0 0
0 0 0 0 0 0 0 / 0 0 0 0 0 0
0 0 0 0 0 0 / 0 0 0 0 0 0 0
0 0 0 0 0 / 0 0 0 0 0 0 0 0
0 0 0 0 П 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0

П - текущие координаты персонажа
Т - точка, куда нужно переместиться

Логика

Зная координаты персонажа и новой точки нужно сравнивать поочереди X и Y.

if UPointX>UPosX then UDispX:=1;
if UPointX<UPosX then UDispX:=-1;
...
if UPointY>UPosY then UDispY:=1;    
if UPointY<UPosY then UDispY:=-1;

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

if UPosX<>UPointX then
  begin
    UPosX:=UPosX+UDispX;
  end;
...
if UPosY<>UPointY then
  begin
    UPosY:=UPosY+UDispY;
  end;

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