Давайте сделаем рогалик. Глава 22: Дистанционный бой

При первом рассмотрении, кажется, что добавить дистанционные атаки достаточно просто. Мы должны выбрать цель, запустить снаряд и проверить — попали ли мы им куда либо. Рассмотрев задачу более подробно, мы можем разложить ее на несколько простых подзадач, которые нам необходимо реализовать:

• Система выбора цели
• Боеприпасы и их количество
• Система перезарядки оружия
• Анимация атаки
• Расчет повреждений

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

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

inv.bi

'Оружие.
 Type weapontype
   id As weaponids           'Тип орежия
   evaldr As Integer         'Сложность опознания. Если > 0 то магический предмет.
   eval As Integer           'Если опознано.
   spell As spellid          'Заклинание.
   noise As Integer          'Кол-во генерируемого шума.
   use As itemuse            'Как используется.
   dam As integer            'Наносимые повреждения.
   hands As Integer          'Необходимое кол-во рук для использования.
   wslot(1 To 2) As wieldpos 'Занимаемые слоты (до 2-х слотов).
   weapontype As weaptype    'Тип оружия: контактное, дистанционное.
   capacity As Integer       'Емкость обоймы.
   ammotype As ammoids       'Тип используемых снарядов.
   ammocnt As Integer        'Кол-во снарядов в обойме.
 End Type

Перечисление Weaponids позволит легко определить — является оружие контактным или дистанционным.

inv.bi

'Типы оружия.
 Enum weaptype
   wtNone
   wtMelee
   wtProjectile
 End Enum

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

Следующее новое поле в описании типа оружия, это емкость обоймы (в нашем случае - ствол арбалета). Это позволит нам создавать оружие, не требующее перезарядки после каждого выстрела. Большая часть оружия у нас будет однозарядными, так как мы создаем фентезийную игру использующую средневековый стиль оружия. Тем не менее, мы можем использовать эту же структуру и для фантастической игры, где луч лазера может выстрелить раз сто без перезарядки. Удобство данного подхода в том, что данная система также прекрасно работает и для однозарядного оружия, в результате мы получаем большую гибкость кода.

Тип боеприпасов задается перечислением ammoids.

inv.bi

'Типы боеприпасов.
 Enum ammoids
   amNone
   amBagStones
   amCaseBolts
   amQuiverArrows
 End Enum

Здесь у нас задаются три типа боеприпасов: камни для пращи, болты для арбалетов и стрелы для луков. Каждый из них будет содержать количество зарядов. Обратите внимание, что у нас нет боеприпасов по отдельности, т. е. одна стрела или один камень. Я выбрал такой дизайн из за моей нелюбви к боеприпасам по одиночке. Очевидно, что одна стрела, сама по себе, бесполезна, потому я заменю их на «коробки с патронами». Однако это добавит в игру спорный фактор — после выстрела снаряд исчезнет, так как у нас нет снарядов по одиночке. Хотя это может показаться странным, но есть разумное обоснование для этого — боеприпасы становятся бесполезны после их использования. Стрелы и камни, попадая в броню, вероятнее всего разрушились бы в «реальной жизни». Хотя, на самом деле, это всего лишь упрощение и мои собственные предпочтения о вопросе с зарядами.

Последнее поле в описании типа оружия, это ammocnt , которое отвечает за количество снарядов, заряженных в оружие. В большинстве случаев оно будет равно 0 или 1, но в случае с арбалетом, у которого емкость обоймы 6, данный параметр будет варьироваться от 0 до 6.

Когда мы создаем новое оружие нам нужно заполнить эти поля.

inv.bi:GenerateWeapon

Case wpBarrelcrossbow  'двуручное, повреждения 18
         inv.desc = "Barrel Crossbow"
         inv.icon = Chr(209)
         inv.weapon.noise = 12
         inv.weapon.dam = 18
         inv.weapon.hands = 2
         inv.weapon.weapontype = wtProjectile
         inv.weapon.capacity = 6
         inv.weapon.ammotype = amCaseBolts

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

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

inv.bi

'Боеприпасы.
 Type ammotype
   id As ammoids
   cnt As Integer
   noise As Integer
   eval as Integer
 End Type

Здесь все просто и должно быть понятно. Единственная причина, из за которой мы добавили отдельный тип предмета для зарядов, это возможность хранения персонажем в инвентаре снарядов различных типов для разных типов оружия. Ключевое поле здесь, это col — которое показывает количество боеприпасов содержащихся в данной структуре. Персонажу нет необходимости определять снаряды, так как у них нет каких либо специальных свойств, но мы добавили поле eval, которое необходимо для правильной работы процедуры опознания предметов. Когда мы будем создавать боеприпасы, мы будем отмечать их как уже опознанные, для правильного отображения в инвентаре.

inv.bi

'Создает боеприпасы.
 Sub GenerateAmmo(inv As invtype, currlevel As Integer, ammoid As ammoids = amNone)
   Dim item As ammoids

   If ammoid = amNone Then
      item = RandomRange(amBagStones, amQuiverArrows)
   Else
      item = ammoid
   End If
   'Установим идентификатор типа.
   inv.classid = clAmmo
   inv.ammo.id = item
   inv.iconclr = fbCadmiumYellow
   inv.ammo.eval = TRUE
   Select Case item
      Case amBagStones   
         inv.desc = "Bag of Stones"
         inv.ammo.cnt = RandomRange(10, 20)
         inv.ammo.noise = inv.ammo.cnt 
         inv.icon = Chr(167)
      Case amCaseBolts
         inv.desc = "Case of Bolts"
         inv.ammo.cnt = RandomRange(10, 20)
         inv.ammo.noise = inv.ammo.cnt 
         inv.icon = Chr(22)
      Case amQuiverArrows
         inv.desc = "Quiver of Arrows"
         inv.ammo.cnt = RandomRange(10, 20)
         inv.ammo.noise = inv.ammo.cnt 
         inv.icon = Chr(173)
      Case Else
         inv.desc = "Unknown Ammo"
         inv.ammo.cnt = 0
         inv.ammo.noise = 0 
         inv.icon = "?"
   End Select
 
 End Sub

Как видите, тут используется наш стандартный формат процедуры генерации предметов. Все эти подпрограммы идентичны и легко узнаваемы, и, что более важно, это позволяет сразу увидеть что все параметры заданы верно. В результате это поможет избавится от ошибок, так как каждый элемент создается идентичным образом. Используя это идею «шаблонов» в своих программах, вы сделаете код легче читаемым и более простым в отладке и поддержке.

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

Дистанционное оружие бесполезно, если в нем нет боеприпасов, поэтому мы должны реализовать команду перезарядки оружия. Перезаряжаем его мы в процедуре LoadAmmo.

dod.bas

'Перезарядка дистанционного оружия.
 Sub LoadAmmo ()
   Dim amid As ammoids
   Dim As Integer ret
 
   'Убедимся, что в руках дистанционное оружие.
   If pchar.ProjectileEquipped(wAny) = TRUE Then
      'Проверим первый слот.
      If pchar.ProjectileEquipped(wPrimary) = TRUE Then
         If pchar.IsLoaded(wPrimary) = FALSE Then
            'Получим тип боеприпасов.
            amid = pchar.GetAmmoID(wPrimary)
            'Проверим на правильность типа.
            If amid <> amNone Then
               'Проверим инвентарь на наличие боеприпасов.
               ret = pchar.LoadProjectile(amid, wPrimary)
               If ret = TRUE Then
                  PrintMessage "Weapon is loaded."
               Else
                  PrintMessage "Weapon could not be loaded."
               EndIf
            EndIf
         Else
            PrintMessage "Weapon is already loaded."
         EndIf
      End If
      If pchar.ProjectileEquipped(wSecondary) = TRUE Then
         If pchar.IsLoaded(wSecondary) = FALSE Then
            'Check the inventoru and load weapon if ammo is present.
            ret = pchar.LoadProjectile(amid, wSecondary)
            If ret = TRUE Then
               PrintMessage "Weapon is loaded."
            Else
               PrintMessage "Weapon could not be loaded."
            EndIf
         Else
            PrintMessage "Weapon is already loaded."
         EndIf
      EndIf
   Else
      PrintMessage "Not carrying a projectile weapon."
   EndIf
 End Sub

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

Первое, что нужно сделать, это убедится, что у персонаджа в руках дистанционное оружие, это делает метод ProjectileEquipped объекта персонажа.

character.bi

'Возвращает True если персонаж вооружен дистанционным оружием.
 Function character.ProjectileEquipped(slot As wieldpos) As Integer 
   Dim As Integer ret = FALSE
 
   'Убедимся что classid это оружие.
   If _cinfo.cwield(wPrimary).classid = clWeapon Then
      'Убедимся что оружие дистанционное.
      If _cinfo.cwield(wPrimary).weapon.weapontype = wtProjectile Then
         'Проверим слот.
         If (slot = wAny) Or (slot = wPrimary) Then
            ret = TRUE
         End If
      EndIf
   Else
      'Убедимся что classid это оружие.
      If _cinfo.cwield(wSecondary).classid = clWeapon Then
         'Убедимся что оружие дистанционное.
         If _cinfo.cwield(wSecondary).weapon.weapontype = wtProjectile Then
            'Проверим слот.
            If (slot = wAny) Or (slot = wSecondary) Then
               ret = TRUE
            End If
         EndIf
      EndIf
   EndIf
   
   Return ret
 End Function

Вначале необходимо убедиться, что персонаж держит в руках оружие (в первичном или вторичном слотах), затем необходимо проверить тип оружия, для того чтобы убедиться что оружие дистанционное. Если оно дистанционное, то мы возвращает true. Обратите внимание, что для указания слооты мы используем не только типы wPrimary и wSecondary, но и тип wAny — указывающий на то, что оружие может быть в любой руке. Тип проверяемого слота передается в функцию и если он будет иметь значение wAny и в первичном слоте обнаружиться дистанционное оружие, то мы выйдем из функции без проверки вторичного слота.

В LoadAmmo после подтверждения нахождения в руках персонажа дистанционного оружия мы переходим к рассмотрению каждого из оружейных слотов по отдельности.

dod.bas:LoadAmmo

...
      If pchar.ProjectileEquipped(wPrimary) = TRUE Then
         If pchar.IsLoaded(wPrimary) = FALSE Then
...

Следующее что нам нужно сделать. это проверить — заряжено ли оружие. Если оно уже заряжено, то перезаряжать его не имеет смысла. Функция IsLoaded сообщает, заряжено ли оружие полностью или нет.

character.bi

'Возвращает true если дистанционное орудие в руках заряжено.
 Function character.IsLoaded(slot As wieldpos) As Integer
   Dim As Integer ret = FALSE
   
   'Убедимся что в руках оружие.
   If _cinfo.cwield(slot).classid = clWeapon Then
      'Убедимся что оно дистанционное.
      If _cinfo.cwield(slot).weapon.weapontype = wtProjectile Then
         'Проверим на кол-во боеприпасов.
         ret = (_cinfo.cwield(slot).weapon.ammocnt < _cinfo.cwield(slot).weapon.capacity)
      EndIf
   EndIf
   
   Return ret
 End Function

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

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

dod.bas:LoadAmmo

...
   'Получим идентификатор боеприпасов.
   amid = pchar.GetAmmoID(wPrimary)
   'Проверим на правильность идентификатора.
   If amid <> amNone Then
 ...

Функция GetAmmoId возвращает идентификатор боеприпасов для выбранного оружия.

character.bi

'Возвращает идентификатор боеприпасов для дистанционного оружия в выбранном слоте.
 Function character.GetAmmoID(slot As wieldpos) As ammoids
   Dim ret As armorids
 
   'Убедимся что в слоте оружие.
   If _cinfo.cwield(slot).classid = clWeapon Then
      'Убедимся что оно дистанционное.
      If _cinfo.cwield(slot).weapon.weapontype = wtProjectile Then
         ret = _cinfo.cwield(slot).weapon.ammotype
      Else
         ret = amNone
      EndIf
   Else
      ret = amNone
   EndIf
   Return ret
 End Function

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

dod.bas:LoadAmmo

...
  'Проверим инвентарь и перезарядим оружие если есть боеприпасы.
  ret = pchar.LoadProjectile(amid, wPrimary)
  If ret = TRUE Then
    PrintMessage "Weapon is loaded."
  Else
    PrintMessage "Weapon could not be loaded."
  EndIf
 ...

После получения идентификатора необходимых боеприпасов, мы можем перезарядить оружие. Это реализовано в методе LoadProjectile объекта персонажа.

character.bi

'Заряжает оружие и возвращает True в случае успеха.
 Function character.LoadProjectile(aid As ammoids, slot As wieldpos) As Integer 
   Dim As Integer ret = FALSE, i, iitem
   Dim As invtype inv
 
   'Провеним инвентарь на наличие необходимых боеприпасов.
   For i = LowInv To HighInv
     'Выходим, если оружие полностью заряжено.
     If _cinfo.cwield(slot).weapon.ammocnt = _cinfo.cwield(slot).weapon.capacity Then
         Exit For
     EndIf
     iitem = HasInvItem(i)
     If iitem = TRUE Then
       'Получим предмет инвентаря.
       GetInventoryItem i, inv
       'Проверим идентификатор предмета.
       If inv.classid = clAmmo Then
          'Проверим тип боеприпасов.
          If inv.ammo.id = aid Then
             'Зарядим оружие до емкости обоймы.
             Do While _cinfo.cwield(slot).weapon.ammocnt < _cinfo.cwield(slot).weapon.capacity
                'Зарядим оружие.
                _cinfo.cwield(slot).weapon.ammocnt += 1
                inv.ammo.cnt -= 1
                'Если закончились боеприпасы — выход из цикла.
                If inv.ammo.cnt = 0 Then
                   Exit Do
                EndIf
             Loop
             'Обновим инвентарь.
             If inv.ammo.cnt > 0 Then
                AddInvItem i,inv
             Else
                ClearInv inv
                AddInvItem i,inv
             EndIf
             'Если есть заряженные боеприпасы, то вернем true
             If _cinfo.cwield(slot).weapon.ammocnt > 0 Then
                ret = TRUE
             EndIf
          EndIf
       EndIf
     EndIf
   Next
 
   Return ret
 End Function

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

После того, как оружие заряжено, мы можем его использовать. Первое что нужно сделать - выбрать цель. Мы делаем это в подпрограмме TargetEnemy.

dod.bas

'Выбор цели и атака дистанционным оружием.
 Sub TargetEnemy ()
   Dim As vec target, source
   Dim As Integer ret
   
   'Проверим, вооружен ли персонаж дистанционным оружием.
   If pchar.ProjectileEquipped(wAny) = TRUE Then
      'Получим вектор цели.
      ret = GetTargetCoord(target)
      source.vx = pchar.Locx
      source.vy = pchar.Locy
      'Игрок нажал enter.
      If ret = TRUE Then
         'Проверим первый слот на дистанционное оружие.
         If pchar.ProjectileEquipped(wPrimary) = TRUE Then
            'Убедимся что заряжено.
            If pchar.IsLoaded(wPrimary) = TRUE Then
               'Выстрелим.
               level.AnimateProjectile source, target
               'Удалим снаряд из оружия.
               pchar.DecrementAmmo wPrimary
               'Убелимся что попали в монстра.
               If level.IsMonster(target.vx, target.vy) = TRUE Then
                  'Нанесем повреждения.
                  DoProjectileCombat target.vx, target.vy, wPrimary
               Else
                  PrintMessage "No monster at target location."
               End If
            Else
               PrintMessage "Weapon is not loaded."
            EndIf
         Else 'Возможно в другом слоте?.
            'Проверим, заряжено ли.
            If pchar.IsLoaded(wSecondary) = FALSE Then
               'Выстрелим.
               level.AnimateProjectile source, target
               'Удалим снаряд из оружия.
               pchar.DecrementAmmo wSecondary
               'Убедимся что попали в монстра.
               If level.IsMonster(target.vx, target.vy) = TRUE Then
                  'Нанесем повреждения.
                  DoProjectileCombat target.vx, target.vy, wPrimary
               Else
                  PrintMessage "No monster at target location."
               End If
            Else
               PrintMessage "Weapon is not loaded."
            EndIf
         EndIf
      EndIf
   Else
      PrintMessage "Not carrying a projectile weapon."
   EndIf
 End Sub

Вначале мы убеждаемся что в руках персонажа дистанционное оружие и получаем координаты цели при помощи функции GetTargetCoord.

dod.bas

'Возвращает true если персонаж выбрал врага, false — если нет. Координаты сохраняются в векторе vt.
 Function GetTargetCoord(vt As vec) As Integer
   Dim As String ch, rtl = "*"
   Dim As vec v, vtmp
   Dim As Integer ret = FALSE
 
   'Зададим начальные координаты.
   v.vx = pchar.Locx
   v.vy = pchar.Locy
   'Зададим новую цель.
   level.SetTarget(v.vx, v.vy, Asc(rtl), fbYellowBright)
   level.DrawMap
   Do
      ch = InKey
      If ch <> "" Then
         If ch = key_up Then
            'Зададим текущие координаты.
            vtmp = v
            'Обновим вектор.
            vtmp += north
            'Проверим ячейку карты.
            If level.IsTileVisible(vtmp.vx, vtmp.vy) = TRUE Then
               'Очистим предыдущую цель.
               level.SetTarget(v.vx, v.vy, 0)
               'Сохраним текущие координаты.
               v = vtmp
               'Установим новую цель.
               level.SetTarget(v.vx, v.vy, Asc(rtl), fbYellowBright)
               'Перерисуем карту.
               ScreenLock
               level.DrawMap
               ScreenUnLock
            End If
         EndIf
         If ch = key_dn Then
            'Зададим текущие координаты.
            vtmp = v
            'Обновим вектор.
            vtmp += south
            'Проверим ячейку карты.
            If level.IsTileVisible(vtmp.vx, vtmp.vy) = TRUE Then
               'Очистим предыдущую цель.
               level.SetTarget(v.vx, v.vy, 0)
               'Сохраним текущие координаты.
               v = vtmp
               'Установим новую цель.
               level.SetTarget(v.vx, v.vy, Asc(rtl), fbYellowBright)
               'Перерисуем карту.
               ScreenLock
               level.DrawMap
               ScreenUnLock
            End If
         EndIf
         If ch = key_rt Then
            'Зададим текущие координаты.
            vtmp = v
            'Обновим вектор.
            vtmp += east
            'Проверим ячейку карты.
            If level.IsTileVisible(vtmp.vx, vtmp.vy) = TRUE Then
               'Очистим предыдущую цель.
               level.SetTarget(v.vx, v.vy, 0)
               'Сохраним текущие координаты.
               v = vtmp
               'Установим новую цель.
               level.SetTarget(v.vx, v.vy, Asc(rtl), fbYellowBright)
               'Перерисуем карту.
               ScreenLock
               level.DrawMap
               ScreenUnLock
            End If
         EndIf
         If ch = key_lt Then
            'Зададим текущие координаты.
            vtmp = v
            'Обновим вектор.
            vtmp += west
            'Проверим ячейку карты.
            If level.IsTileVisible(vtmp.vx, vtmp.vy) = TRUE Then
               'Очистим предыдущую цель.
               level.SetTarget(v.vx, v.vy, 0)
               'Сохраним текущие координаты.
               v = vtmp
               'Установим новую цель.
               level.SetTarget(v.vx, v.vy, Asc(rtl), fbYellowBright)
               'Перерисуем карту.
               ScreenLock
               level.DrawMap
               ScreenUnLock
            End If
         EndIf
      EndIf
      Sleep 1
   Loop Until (ch = key_enter) Or (ch = key_esc)
   If ch = key_enter Then 
      ret = TRUE
   EndIf
   'Очистим предыдущую цель.
   level.SetTarget(v.vx, v.vy, 0)
   level.DrawMap   
   vt = v
 
   Return ret
 End Function

В данной функции мы в цикле опрашиваем нажатые пользователем клавиши и в соответствии с ними перемещаем курсор. Текущие координаты курсора хранятся в переменной векторного типа vt, значение которой вернется в основную программу после завершения выбора цели. Так как игрок не может выбрать цель за пределами видимости персонажа, то мы, вначале, проверяем выбранную ячейку на видимость при помощи функции IsTileVisible. При нажатии клавиши направления мы обновляем позицию курсора путем вызова метода SetTarget объекта уровня, а затем вызываем метод DrawMap для перерисовки карты и отображения курсора на новом месте.

map.bi

'Установить прицел в координаты x, y карты уровня.
 Sub levelobj.SetTarget(x As Integer, y As Integer, id As Integer, tcolor As  UInteger = fbBlack)
   _level.lmap(x, y).target.id = id
   _level.lmap(x, y).target.tcolor = tcolor
 End Sub

SetTarget обновляет новую структуру данных target, содержащуюся в описании ячейки карты объекта уровня.

map.bi

'Прицел.
 Type targettype
   id As Integer      'Код иконки.
   tcolor As UInteger 'Цвет иконки.
 End Type

  'Информация о ячейке карты
  Type mapinfotype
    terrid As terrainids  'Тип местности.
    monidx As Integer     'Индекс монстра в массиве монстров.
    visible As Integer    'Персонаж видит ячейку.
    seen As Integer       'Персонаж уже видел ячейку.
    doorinfo As doortype  'Информация о двери.
    sndvol As Integer     'Громкость звука в ячейке.
    target As targettype  'Цель и карта снарядов.
  End Type

Структура targettype содержит поля для ASCII символа курсора для указания цели и его цвета. Эта запись находится в структуре mapinfotype, для того, чтобы мы могли его отобразить в каждой ячейке карты уровня.

Давайте подробнее рассмотрим процесс из GetTargetCoord в одном из направлений движения. Все остальные направления ведут себя таким же образом, за исключением самого направления.

dod.bas:GetTargetCoord

If ch = key_up Then
            'Установим текущий вектор.
            vtmp = v
            'Обновим вектор.
            vtmp += north
            'Проверим ячейку карты.
            If level.IsTileVisible(vtmp.vx, vtmp.vy) = TRUE Then
               'Очистим предыдущую цель.
               level.SetTarget(v.vx, v.vy, 0)
               'Сохранить текущую позицию.
               v = vtmp
               'Устновим новую цель.
               level.SetTarget(v.vx, v.vy, Asc(rtl), fbYellowBright)
               'Перерисуем карту.
               ScreenLock
               level.DrawMap
               ScreenUnLock
            End If
         EndIf

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

dod.bas:GetTargetCoord

Loop Until (ch = key_enter) Or (ch = key_esc)
  If ch = key_enter Then 
    ret = TRUE
  EndIf

Мы выходим из цикла, когда игрок наживает клавишу Enter или Escape. Если нажат Enter, то мы возвращаем true, что указывает на то, что игрок выбрал цели. При нажатии escape функция вернет false, что говорит нам о том, что выбор цели отменен.

Если функция вернула true, то в TargetEnemy мы обрабатываем выбор цели.

dod.bas:TargetEnemy

'Игрок нажал enter.
      If ret = TRUE Then
         'Проверим первый слот на наличие дистанционного оружия.
         If pchar.ProjectileEquipped(wPrimary) = TRUE Then
            'Убедимся что заряжено.
            If pchar.IsLoaded(wPrimary) = TRUE Then
               'Отобразим анимацию выстрела.
               level.AnimateProjectile source, target

Также, как мы это делали в LoadAmmo, нам нужно проверить что у персонажа есть дистанционное оружие в первичном или вторичном слоте. Проверка одинакова для обоих слотов, поэтому мы рассмотрим проверку только первичного слота. Функция IsLoaded говорит нам о том, что оружие заряжено и готово к выстрелу. Затем мы отображаем анимацию полета снаряда при помощи метода объекта уровня AnimateProjectile.

map.bi

'Анимированный полет снаряда.
 Sub levelobj.AnimateProjectile (source As vec, target As vec)
   Dim As Integer x = source.vx, y = source.vy, d = 0, dx = target.vx - source.vx 
   Dim As Integer dy = target.vy - source.vy, c, m, xinc = 1, yinc = 1
   Dim As Integer delay = 10
   
   If dx < 0 Then
      xinc = -1
      dx = -dx
   EndIf
   If dy < 0 Then
      yinc = -1
      dy = -dy
   EndIf
   If dy < dx Then
      c = 2 * dx
      m = 2 * dy
      Do While x <> target.vx
         _level.lmap(x, y).target.id = 7
         _level.lmap(x, y).target.tcolor = fbYellow
         DrawMap
         Sleep delay
         _level.lmap(x, y).target.id = 0
         _level.lmap(x, y).target.tcolor = fbBlack
         DrawMap
         x += xinc
         d += m
         If d > dx Then
            y += yinc
            d -= c
         EndIf
      Loop
   Else
      c = 2 * dy
      m = 2 * dx
      Do While y <> target.vy
         _level.lmap(x, y).target.id = 7
         _level.lmap(x, y).target.tcolor = fbYellow
         DrawMap
         Sleep delay
         _level.lmap(x, y).target.id = 0
         _level.lmap(x, y).target.tcolor = fbBlack
         DrawMap
         y += yinc
         d += m
         If d > dy Then
            x += xinc
            d -= c
         EndIf
      Loop
   EndIf
   _level.lmap(x, y).target.id = 249
   _level.lmap(x, y).target.tcolor = fbYellow
   DrawMap
   Sleep delay
   _level.lmap(x, y).target.id = 0
   _level.lmap(x, y).target.tcolor = fbBlack
   DrawMap
 End Sub

Начальные координаты полета, это координаты персонажа, а конечные — выбранная игроком цель. Здесь мы используем алгоритм Брезенхэма рисования линий для обновления массива target объекта уровня и перерисовываем карту уровня. При выполнении подпрограммы мы будем видеть анимацию снаряда, летящего к указанной цели.

После анимации выстрела мы возвращаемся в TargetEnemy и уменьшаем количество зарядов в оружии.

dod.bas:TargetEnemy

'Отобразим анимацию выстрела.
   level.AnimateProjectile source, target
   'Удаляем снаряд из оружия.
   pchar.DecrementAmmo wPrimary

Метод объекта персонажа DecrementAmmo удаляет один снаряд из оружия в указанном слоте.

character.bi

'Уменьшим заряды в используемом оружии.
 Sub character.DecrementAmmo(slot As wieldpos)
   _cinfo.cwield(slot).weapon.ammocnt -= 1
   If _cinfo.cwield(slot).weapon.ammocnt < 0 Then 
      _cinfo.cwield(slot).weapon.ammocnt = 0
   EndIf
 End Sub

Как вы можете видеть, мы просто уменьшаем на 1 значение поля ammocnt у объекта оружия.

Далее необходимо проверить, попали ли мы во что либо и выполнить соответствующие действия.

dod.bas:TargetEnemy

'Удаляем снаряд из оружия.
    pchar.DecrementAmmo wPrimary
    'Проверим есть ли в координатах цели монстр.
    If level.IsMonster(target.vx, target.vy) = TRUE Then
      'Нанесем ему повреждения.
      DoProjectileCombat target.vx, target.vy, wPrimary
    Else
      PrintMessage "No monster at target location."
    End If
  Else
    PrintMessage "Weapon is not loaded."
  EndIf

Сначала мы проверяем, есть ли в указанных координатах монстр, и если это так, то нанесем ему повреждения при помощи подпрограммы DoProjectileCombat.

dod.bas

'Применяем повреждения от дистанционной атаки.
 Sub DoProjectileCombat(mx As Integer, my As Integer, wslot As wieldpos)
   Dim As Integer cf, df, croll, mroll, dam, isdead, midx, mxp, xp 
   Dim As String txt, mname
   Dim As Single marm
   
   'Получим фактор защиты монстра.
   df = level.GetMonsterDefense(mx, my)
   mname = level.GetMonsterName(mx, my)
   'Здоровье монстра.
   mxp = level.GetMonsterXP(mx, my)
   'Убедимся что что то есть.
   If df > 0 Then
      'Возвращает боевой фактор в зависимости от того что держит персонаж.
      cf = pchar.GetProjectileCombatFactor()
      'Получим случайные значения.
      croll = RandomRange(1, cf)
      mroll = RandomRange(1, df)
      'Проверим, попал ли персонаж по монстру.
      If croll > mroll Then
         'Получим общий урон наносимый оружием.
         dam = pchar.GetWeaponDamage(wslot)
         'Получим рейтинг брони монстра.
         marm = level.GetMonsterArmor(mx, my)
         'Уменьшим кол-во наносимых повреждений в зависимости от брони.
         dam = dam - (dam * marm)
         If dam <= 0 Then dam = 1
         'Обновим здоровье монстра.
         isdead = level.ApplyDamage(mx, my, dam)
         'Выведем сообщение.
         If isdead = TRUE Then
            'Добавим опыт персонажу.
            xp = pchar.CurrXP
            xp += mxp
            pchar.CurrXP = xp
            xp = pchar.TotXP
            xp += mxp
            pchar.TotXP = xp
            'Напечатаем сообщение.
            txt = pchar.CharName & " killed the " & mname & " with " & dam & " damage points."
            PrintMessage txt
         Else
            txt = pchar.CharName & " hit the " & mname & " for " & dam & " damage points."
            PrintMessage txt
         EndIf
      Else
         txt = pchar.CharName & " missed the " & mname & "."
         PrintMessage txt
      EndIf
   EndIf
 End Sub

Здесь происходит тоже самое, что и при ближнем бое, за исключением того, что используются значения для дистанционных а не контактных атак. GetProjectileCombatFactor возвращает объединенные боевые факторы.

character.bi

'Возвращает боевой фактор для дистанционных атак.
 Function character.GetProjectileCombatFactor() As Integer
   Return CurrPCF + BonPcf
 End Function

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

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