Данный макрос был написан для проекта Palant Character Builder, который позволяет автоматизировать процесс создания персонажа в настольной игре Dungeons & Dragons

Sub AbilityRoll4d6()
Dim S As Integer

Label2:
Range(«ac42»).Value = ability_roll()
Range(«ac44»).Value = ability_roll()
Range(«ac46»).Value = ability_roll()
Range(«ac48»).Value = ability_roll()
Range(«ac50»).Value = ability_roll()
Range(«ac52»).Value = ability_roll()

S = Range(«ad42»).Value + Range(«ad44»).Value + Range(«ad46»).Value + Range(«ad48»).Value + Range(«ad50»).Value + Range(«ad52»).Value ‘Определение суммы параметров

If S < 4 Then GoTo Label2 ‘В случае если сумма модификаторов параметров меньше или равна 5, то игрок имеет право перебросить набор

End Sub

Dim d6 As Integer

d6 = Int((6 * Rnd) + 1)
rolld6 = d6
End Function

 

Реклама