Отправляет email-рассылки с помощью сервиса Sendsay

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Особенности национального бизнеса" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей Бобровский

Статистика

1.883 подписчиков
0 за неделю
←   Все выпуски   →

Создание ролевой компьютерной игры 19) Монстры бросаются в погоню


Информационный Канал Subscribe.Ru

Разработка ролевой игры

19) Монстры бросаются в погоню

Чтобы сражения в нашей игре обрели подобие реальных схваток, им не хватает малости. Хотя монстры научились давать сдачу, они пока не умеют преследовать персонажа. Поэтому герой в случае неудачно развивающейся схватки может без проблем покинуть поле боя, восстановить силы в источнике, после чего вновь напасть на ослабевшего и недвижимого монстра. Чтобы подобных несправедливостей не возникало, добавим в программу новую процедуру MonstersStep. Она представляет собой реализацию очереди хода монстров - враги перемещаются в направлении персонажа и, если есть такая возможность, нападают на него. Остается только уточнить, в каком месте программы должна вызываться такая процедура.

Некоторые игры позволяют герою в ходе сражения выполнять неограниченное количество вспомогательных действий - например, без конца перемещать предметы между слотами, принимать напитки, восстанавливающие здоровье, или магические эликсиры, дающие дополнительные возможности - волшебную броню, неуязвимость против различных видов атак и так далее. Другие игры наоборот весьма требовательны к персонажу. Каждое действие героя требует расхода пунктов, отведенных на ход. Например, исходные пять пунктов можно потратить на две атаки или одно обращение к инвентарю и смену оружия и одну атаку. Конкретный способ учета действий зависит прежде всего от выбранной игровой системы. Так, достаточно строга в этом плане уже упоминавшаяся GURPS.

Данные ограничения относится в основном к играм, проходящим в пошаговом режиме. Однако они применимы и к сражениям, протекающим в масштабе реального времени. Дело в том, что классические РПГ допускают в любой момент быстроразвивающегося сражения возможность вызвать режим паузы, во время которого человеку удается выполнить множество вспомогательных действий. Режим реального времени при этом, очевидно, теряет смысл.

В любом случае некоторый объем действий героя рано или поздно приводит к активизации противника. Если персонаж длительное время ничего не делает, то монстры постепенно подберутся к нему и нападут. То же произойдет, если персонаж ведет бой, оставаясь на одном месте. Он может быть обнаружен врагом, если, конечно, находится в зоне его видимости. Мы как авторы игры должны решить, будут ли монстры реагировать на любую активность героя - в таком случае вызов процедуры MonstersStep можно поместить в начало цикла опроса клавиатуры главной программы, туда, где вызывается процедура ShowGame, отображающая ситуацию в локации. В результате любое действие персонажа, будь то обращение к инвентарю или обмундированию или подъем предметов с земли, будет расценено как полноценное игровое действие, на которое расходуется достаточно большой период времени, и после которого настает очередь хода монстров. Это справедливо.

Мы выберем другой подход - не потому, что он лучше или хуже, а просто потому, чтобы продемонстрировать все возможные в таких ситуациях приемы. Обращение к процедуре MonstersStep будет происходить в процедуре MoveHero, то есть в момент, который по определению должен вызвать ответную реакцию противника. Ситуацию, когда персонаж наносит монстрам удар, мы вроде бы отработали, так как ответное нападение вызывается из процедуры MonstersAttack. Однако эта отработка не завершена, потому что монстры только наносят ответный удар, но не передвигаются. Поэтому заменим вызов MonstersAttack на MonstersStep, и такой же вызов поместим в самый конец процедуры, когда герой уже выполнил перемещение:

  procedure MoveHero( dx,dy: Integer );
  var m, dam: Integer;
  begin
  if not FreeTile( GameMap[CurMap].Cells[
  Heroes[CurHero].x+dx,Heroes[CurHero].y+dy].Tile ) then
     Exit;

  m := IsMonsterOnTile(Heroes[CurHero].x+dx, Heroes[CurHero].y+dy);
  if m > 0 then
     begin
     HeroAttack(Heroes[CurHero], m);
     MonstersStep;
     Exit
     end;

  inc(Heroes[CurHero].x,dx);
  inc(Heroes[CurHero].y,dy);
  SetHeroVisible(CurHero);

  if (abs(Heroes[CurHero].x - GameMap[CurMap].LocalMapLeft) <
  SCROLL_DELTA) or
     (abs(Heroes[CurHero].x - GameMap[CurMap].LocalMapLeft) >
  LOCAL_MAP_WIDTH-SCROLL_DELTA) or
     (abs(Heroes[CurHero].y - GameMap[CurMap].LocalMapTop) <
  SCROLL_DELTA) or
     (abs(Heroes[CurHero].y - GameMap[CurMap].LocalMapTop) >
  LOCAL_MAP_HEIGHT-SCROLL_DELTA) then
     ScrollMap;

  if GameMap[CurMap].Cells[ Heroes[CurHero].x,Heroes[CurHero].y].Tile in
  TrapTileSet then
     begin
     GameMap[CurMap].Cells[ Heroes[CurHero].x,Heroes[CurHero].y].Tile :=
  tileGround;
     if not SkillTest(Heroes[CurHero], skillTrapSearch) then
        begin
        dam := random( round(Heroes[CurHero].MaxHP * 1.1) ) + 1;
        ShowInfo(STR_TRAP + IntToStr(abs(dam)));
        IncHP( Heroes[CurHero], -dam );
        end;
     end;

  if GameMap[CurMap].Cells[ Heroes[CurHero].x,Heroes[CurHero].y].Tile in
  LiveTileSet then
     begin
     ShowInfo(STR_LIVE);
     IncHP( Heroes[CurHero], Heroes[CurHero].MaxHP );
     end;

  MonstersStep;
  end;

Подготовим в первом приближении реализацию новой процедуры, поместив ее в модуль Monster:

  procedure MonstersStep;
  var i: Integer;
  begin
  for i := 1 to MaxMonsters do
    if (Monsters[i].HP > 0) and
       CanTrace(i, CurHero) then
       begin
       MonsterStep(i, CurHero);
       end;

  MonstersAttack;
  end;

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

  function CanTrace(mi, hi: Integer): Boolean;
  var d: Integer;
  begin
  d := Distance( Monsters[mi].x,Monsters[mi].y,
                 Heroes[hi].x,Heroes[hi].y );
  CanTrace := (d <= Monsters[mi].ViewZone) and (d > 1);
  end;

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

Перемещение монстра, процесс погони за героем, будет более сложным по замыслу. Этот процесс называется поиском кратчайшего пути. Различные соответствующие алгоритмы многократно описаны специалистами по искусственному интеллекту. В нашем случае хитроумные методы не потребуются, однако выбранное представление локации и размещенных на ней препятствий вызывает определенные дополнительные трудности. Если мы попробуем механически сокращать расстояние до персонажа по кратчайшему пути, уменьшая наиболее длинную (или наиболее короткую - не имеет значения) координату, то монстры окажутся слишком тупы и предсказуемы. Взглянем, например, на следующую ситуацию.

o . . . . .
. o o o . Г
M . o . . .
. . . . . .

Герой ведет бой в точке "Г". Монстр находится в точке "М". Если мы решим, что всегда надо сокращать самую длинную координату (в данном случае это будет абсцисса), и монстру надо двигаться вправо, то через один шаг монстр упрется в препятствие, и хотя расстояние по абсциссе по прежнему будет больше расстояния по ординате, монстр так и останется стоять на месте в единственном тупике, хотя вокруг него раскинуто открытое пространство. Ничего не даст алгоритм, по которому сокращать надо не самое длинное расстояние до героя по одной из координатных осей, а самое короткое. В нашем примере монстр сделает шаг вверх, а затем опять остановится.

Выходов из данного логического тупика два. Они будут рассмотрены в следующем выпуске.

(c) 2004-2005 Сергей Бобровский bobrovsky@russianenterprisesolutions.com

Школа программирования с нуля
Все предыдущие выпуски базового курса тут:
http://russianenterprisesolutions.com/sbo/

Дизайн рассылки: Алексей Голубев - Web-дизайн и web-программирование
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.prognull.game
Архив рассылки 		Отписаться
Вспомнить пароль
В избранное