Function rolld4()

Dim d4 As Integer

d4 = Int((4 * Rnd) + 1)
rolld4 = d4
End Function
Function rolld6()

Dim d6 As Integer

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

Dim d8 As Integer

d8 = Int((8 * Rnd) + 1)
rolld8 = d8
End Function
Function rolld10()

Dim d10 As Integer

d10 = Int((10 * Rnd) + 1)
rolld10 = d10
End Function
Function rolld12()

Dim d12 As Integer

d12 = Int((12 * Rnd) + 1)
rolld12 = d12
End Function
Function rolld20()

Dim d20 As Integer

d20 = Int((20 * Rnd) + 1)
rolld20 = d20
End Function

 

Реклама